Rohde & Schwarz R&S FSVR Guide De Démarrage Rapide page 158

®
R&S FSVR
'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")
END SUB
REM ***********************************************************************
Guide de démarrage rapide 1311.0670.63 ─ 03
Brève introduction à la commande à distance
Exemples détaillés de programmation
'Sweep with sync
158