R&S ESR Series

Remote Control
R&S
®
ESR
606User Manual 1175.7068.02 ─ 12
REM -------- Instrument setting commands -----------------------------------
PUBLIC SUB SimpleSettings()
CALL InstrWrite(analyzer, "FREQUENCY:CENTER 128MHz")
'Center frequency 128 MHz
CALL InstrWrite(analyzer, "FREQUENCY:SPAN 10MHZ")
'Set span to 10 MHz
CALL InstrWrite(analyzer, "DISPLAY:TRACE:Y:RLEVEL -10dBm")
'Set reference level to -10dBm
END SUB
REM ************************************************************************
Switching to Manual Operation
REM -------- Switching instrument to manual operation ----------------------
CALL viGpibControlREN(analyzer, VI_GPIB_REN_ADDRESS_GTL)
'Set instrument to Local state
REM ************************************************************************
Reading Out Instrument Settings
The settings made above can now be read out. To do so, the abbreviated commands
are used.
REM --------- Reading out instrument settings ------------------------------
PUBLIC SUB ReadSettings()
Dim retCount as Long
CFfrequency$ = SPACE$(20) 'Provide text variable (20 characters)
CALL InstrWrite(analyzer, "FREQ:CENT?")
'Request center frequency
CALL InstrRead(analyzer, CFfrequency$, 20, retCount)
'Read value
CR&S FSVan$ = SPACE$(20) 'Provide text variable (20 characters)
CALL InstrWrite(analyzer, "FREQ:SPAN?")
'Request span
CALL InstrRead(analyzer, CR&S FSVan$, 20, retCount)
'Read value
RLlevel$ = SPACE$(20) 'Provide text variable (20 characters)
CALL InstrWrite(analyzer, "DISP:TRAC:Y:RLEV?")
'Request ref level setting
CALL InstrRead(analyzer, RLlevel$, 20, retCount)
'Read value
REM --------- Displaying values in the Immediate window --------------------
Debug.Print "Center frequency: "; CFfrequency$,
Debug.Print "Span: "; CR&S FSVan$,
Debug.Print "Reference level: "; RLlevel$,
END SUB
REM*************************************************************************
Marker Positioning and Readout
REM -------- Example of marker function -----------------------------------
PUBLIC SUB ReadMarker()
Controlling the R&S
ESR Remotely