Rohde & Schwarz FSV - Page 160

Controlling the R&S FSVA/FSV Remotely
R&S
®
FSVA/FSV
145Quick Start Guide 1321.3066.02 ─ 06
8.3.1.5 Reading Out Instrument Settings
The settings made above can now be read out. To do so, the abbreviated com-
mands 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*************************************************************************
8.3.1.6 Marker Positioning and Readout
REM -------- Example of marker function -----------------------------------
PUBLIC SUB ReadMarker()
Dim retCount as Long
CALL InstrWrite(analyzer, "CALC:MARKER ON;MARKER:MAX")
'Activate marker 1 and search for peak
MKmark$ = SPACE$(30) 'Provide text variable (30 characters)
CALL InstrWrite(analyzer, "CALC:MARK:X?;Y?")
'Query frequency and level
CALL InstrRead(analyzer, MKmark$, 30, retCount)
'Read value
REM --------- Displaying values in the Immediate window -------------------
Debug.Print "Marker frequency/level "; MKmark$,
Brief Introduction to Remote Control