R&S FSL
CALL InstrWrite(analyzer, "DISPLAY:TRACE:Y:RLEVEL –10dBm")
END SUB
REM ************************************************************************
Auf Handbedienung umschalten
REM –––––––– Switching instrument to manual operation ––––––––––––––––––––––
CALL viGpibControlREN(analyzer, VI_GPIB_REN_ADDRESS_GTL)
REM ************************************************************************
Geräteeinstellungen auslesen
Die oben vorgenommenen Einstellungen werden hier wieder ausgelesen. Dabei werden die
abgekürzten Befehle verwendet.
REM ––––––––– Reading out instrument settings ––––––––––––––––––––––––––––––
PUBLIC SUB ReadSettings()
Dim retCount as Long
CFfrequency$ = SPACE$(20)
CALL InstrWrite(analyzer, "FREQ:CENT?")
CALL InstrRead(analyzer, CFfrequency$, 20, retCount)
CFspan$ = SPACE$(20)
CALL InstrWrite(analyzer, "FREQ:SPAN?")
CALL InstrRead(analyzer, CFspan$, 20, retCount)
RLlevel$ = SPACE$(20)
CALL InstrWrite(analyzer, "DISP:TRAC:Y:RLEV?")
CALL InstrRead(analyzer, RLlevel$, 20, retCount)
REM ––––––––– Displaying values in the Immediate window ––––––––––––––––––––
Debug.Print "Center frequency: "; CFfrequency$,
Debug.Print "Span:
Debug.Print "Reference level:
END SUB
REM *************************************************************************
1300.2519.61
Programmierung der Fernsteuerung – erste Schritte
'Set reference level to –10dBm
'Set instrument to Local state
'Provide text variable (20 characters)
'Request center frequency
'Read value
'Provide text variable (20 characters)
'Request span
'Read value
'Provide text variable (20 characters)
'Request ref level setting
'Read value
"; CFspan$,
"; RLlevel$,
6.7
D-3