Rohde & Schwarz FSL6 Kompakthandbuch Seite 137

Komplexere Programmbeispiele
Das folgende Beispiel geht wieder von einem Signal bei 100 MHz mit einem Pegel von -30
dBm aus. Mit zwei Markern werden sowohl das Rauschen als auch das Phasenrauschen in
10 kHz Abstand vom Trägersignal ermittelt.
REM ************************************************************************
Public Sub Noise()
Dim retCount as Long
'––––––––– Default setting of the R&S FSL ––––––––––––––––––––––––––––––––
CALL SetupStatusReg
CALL InstrWrite(analyzer,"*RST")
CALL InstrWrite(analyzer,"INIT:CONT OFF")
'––––––––– Setting the frequency ––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQUENCY:CENTER 100MHz")
CALL InstrWrite(analyzer,"FREQ:SPAN 100 kHz")
'––––––––– Setting the level ––––––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:RLEV –20dBm")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
'––––––––– Setting the reference point ––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"CALC:MARK:PEXC 6DB")
CALL InstrWrite(analyzer,"CALC:MARK:STAT ON")
CALL InstrWrite(analyzer,"CALC:MARK:TRAC 1")
CALL InstrWrite(analyzer,"CALC:MARK:MAX")
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO ON")
'––––––––– Measuring the phase noise ––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"CALC:DELT:X 10kHz")
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:PNO:RES?")
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")
CALL InstrWrite(analyzer,"CALC:MARK:FUNC:NOIS:RES?")
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Print "Noise [dBm/Hz]: "; result$
END SUB
REM ************************************************************************
1300.2519.61
'Configure status register
'Reset instrument
'Single sweep mode
'Center frequency
'Span
'Reference level
'Define peak excursion
'Activate marker 1
'Set marker 1 to trace 1
'Set marker 1 to 100 MHz
'Define reference point for phase noise
'Position delta marker
'Query and output phase noise result
'Position marker 1
'Query and output result
6.16
R&S FSL
D-3