R&S ESR Series User Manual page 615

®
R&S ESR
'--------- 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 ***********************************************************************
Frequency Counting
The following example is based on a signal at 100 MHz with a level of -30 dBm. Again,
the instrument's default setting can be used (SetupInstrument). The purpose of fre-
quency counting is to determine the exact frequency of the signal at 100 MHz.
REM *************************************************************************
Public Sub MarkerCount()
Dim retCount as Long
CALL SetupInstrument
'--------- Defining signal frequency with frequency counter ----------------
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")
'Activate marker 1
CALL InstrWrite(analyzer,"CALC:MARK:TRAC 1")
'Set marker 1 to trace 1
CALL InstrWrite(analyzer,"CALC:MARK:X 100MHz")
'Set marker 1 to 100 MHz
CALL InstrWrite(analyzer,"CALC:MARK:COUNT ON")
'Activate frequency counter
CALL InstrWrite(analyzer,"INIT;*WAI")
CALL InstrWrite(analyzer,"CALC:MARK:COUNT:FREQ?")
'Query and read measured frequency
User Manual 1175.7068.02 ─ 12
'Sweep with sync
'Default setting
'Perform sweep with sync
Remote Control
Controlling the R&S ESR Remotely
612