R&S ESR Series

Quick Start
R&S
®
ESR
130User Manual 1175.7068.02 ─ 12
'Set marker 1 to trace 1
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:MARK:MAX;X?;Y?")
'Marker to peak; read frequency and level
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Marker 1: ";result$
CALL InstrWrite(analyzer,"CALC:DELT2:STAT ON;MAX;MAX:LEFT")
'Activate delta marker 2,
'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
Brief Introduction to Remote Control