Rohde & Schwarz FSQ series, Quick Start Manual

Page: 190 / 229

R&S FSQ Brief Introduction to Remote Control
Basic Steps in Programming using the VISA Interface
7.8 Quick Start Guide 1313.9652.62 - 02
7.1.4 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 status As ViStatus
Dim retCnt As Long
CFfrequenz$ = Space$(20)
'Provide text variable (20 characters)
status = viWrite(analyzer, "FREQ:CENT?", 10, retCnt)
'Request center frequency
status = viRead(analyzer, CFfrequenz$, 20, retCnt)
'Read in value
CFspan$ = Space$(20)
'Provide text variable (20 characters)
status = viWrite(analyzer, "FREQ:SPAN?", 10, retCnt)
'Request span
status = viRead(analyzer, CFspan$, 20, retCnt)
'Read in value
RLpegel$ = Space$(20)
'Provide text variable (20 characters)
status = viWrite(analyzer, "DISP:TRAC:Y:RLEV?", 17, retCnt)
'Request ref level setting
status = viRead(analyzer, RLpegel$, 20, retCnt)
'Read in value
REM -------- Displaying values on the screen -----------------------------
Print "Center frequency: "; CFfrequenz$,
Print "Span: "; CFspan$,
Print "Reference level: "; RLpegel$,
END SUB
REM************************************************************************