R&S ESR Series

Quick Start
R&S
®
ESR
133User Manual 1175.7068.02 ─ 12
REM ************************************************************************
Public Sub Noise()
Dim retCount as Long
'--------- Default setting of the R&S FSV --------------------------------
CALL SetupStatusReg 'Configure status register
CALL InstrWrite(analyzer,"*RST") 'Reset instrument
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'Single sweep mode
'--------- Setting the frequency ------------------------------------------
CALL InstrWrite(analyzer,"FREQUENCY:CENTER 100MHz")
'Center frequency
CALL InstrWrite(analyzer,"FREQ:SPAN 100 kHz")
'Span
'--------- Setting the level ----------------------------------------------
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:RLEV -20dBm")
'Reference level
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
'--------- Setting the reference point ------------------------------------
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:MAX")
'Set marker 1 to 100 MHz
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO ON")
'Define reference point for phase noise
'--------- Measuring the phase noise --------------------------------------
CALL InstrWrite(analyzer,"CALC:DELT:X 10kHz")
'Position delta marker
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO:RES?")
'Query and output phase noise result
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Phase Noise [dBc/Hz]: "; result$
'--------- Measuring the noise --------------------------------------------
CALL InstrWrite(analyzer,"CALC:MARK:X 99.96MHz")
'Position marker 1
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:NOIS:RES?")
'Query and output result
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Print "Noise [dBm/Hz]: "; result$
END SUB
REM ************************************************************************
Brief Introduction to Remote Control