Rohde & Schwarz FSV40 - Page 166

Controlling the R&S FSVA/FSV Remotely
R&S
®
FSVA/FSV
151Quick Start Guide 1321.3066.02 ─ 06
'set to peak and then to next peak left
CALL InstrWrite(analyzer,"CALC:DELT2:X?;Y?")
'Read delta marker 2 frequency and level
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Delta 2: ";result$
'--------- Peak search with search range limit in x direction --------------
CALL InstrWrite(analyzer,"CALC:MARK:X:SLIM:STAT ON;LEFT _
0Hz;RIGHt 100.05MHz")
'Activate search limit,
'set at right below AF
CALL InstrWrite(analyzer,"CALC:DELT3:STAT ON;MAX;MAX:RIGHt")
'Activate delta marker 3,
'set to peak and then to next peak right
CALL InstrWrite(analyzer,"CALC:DELT3:X:REL?;:CALC:DELT3:Y?")
'Read delta marker 3 frequency and level;
'both must have a value of 0
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Print "Delta 3: ";result$
'--------- Peak search with search range limit in y direction --------------
CALL InstrWrite(analyzer,"CALC:THR:STAT ON")
CALL InstrWrite(analyzer,"CALC:THR -35DBM")
'Activate threshold and set it above the AF
CALL InstrWrite(analyzer,"CALC:DELT3:STAT ON;MAX;MAX:NEXT")
'Activate delta marker 3,
'set to peak and then to next peak
'=> is not found
CALL InstrWrite(analyzer,"CALC:DELT3:X:REL?;:CALC:DELT3:Y?")
'Query and read delta marker 3
'frequency and level;
'both must have a value of 0
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Delta 3: ";result$
'---- Setting center frequency and reference level with markers ------------
CALL InstrWrite(analyzer,"CALC:MARK2:FUNC:CENT")
'Delta marker 2 -> marker and
'center frequency = marker 2
CALL InstrWrite(analyzer,"CALC:MARK2:FUNC:REF")
'Ref level = marker 2
CALL InstrWrite(analyzer,"INIT;*WAI") 'Sweep with sync
END SUB
REM ***********************************************************************
Brief Introduction to Remote Control