R&S ESR Series User Manual page 614

®
R&S ESR
Carrier signal level
AF frequency
Modulation depth
Marker 1 and then delta marker 2 are set to the largest maximum points on the trace.
The frequency and level are then read. In the following measurements, the instru-
ment's default setting can be used for measurements (SetupInstrument).
REM ************************************************************************
Public Sub MarkerSearch()
Dim retCount as Long
result$ = Space$(100)
CALL SetupInstrument
'--------- Peak search without search range limits--------------------------
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Switch to single sweep
CALL InstrWrite(analyzer,"CALC:MARK:PEXC 6DB")
'Define peak excursion
CALL InstrWrite(analyzer,"CALC:MARK:STAT ON")
'Enable marker 1
CALL InstrWrite(analyzer,"CALC:MARK:TRAC 1")
'Set marker 1 to trace 1
CALL InstrWrite(analyzer,"INIT;*WAI")
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$
User Manual 1175.7068.02 ─ 12
-30 dBm
100 kHz
50 %
'Default Setting
'Perform sweep with sync
Remote Control
Controlling the R&S ESR Remotely
611