Rohde & Schwarz FSQ series, Quick Start Manual

Page: 200 / 229

R&S FSQ Brief Introduction to Remote Control
Detailed Programming Examples
7.18 Quick Start Guide 1313.9652.62 - 02
REM -- Setting frequency, level and bandwidth for measuring harmonics -----
status = viWrite(analyzer, "FREQ:CENT 400MHz;Span 1MHz", 26, retCnt)
'Set freq of 3rd harmonic
status = viWrite(analyzer, "BAND:RES 1kHz", 13, retCnt)
'Set suitable RBW
status = viWrite(analyzer, "SWEEP:TIME:AUTO ON", 18, retCnt)
'Couple sweep time
status = viWrite(analyzer, "INP:ATT:AUTO ON", 15, retCnt)
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -50dBm", 28, retCnt)
'Select more sensitive level setting
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:DELT:MAX;X:REL?;Y?", 23, retCnt)
'Read delta marker
status = viRead(analyzer, result$, 100, retCnt)
'Read frequency and level
Print "Deltamarker 1: "; result$
END SUB
REM ************************************************************************
7.2.2.4 Measuring Noise and Phase Noise
When phase noise is measured, the noise power related to a bandwidth of 1 Hz is set in
relation to the power of an adjacent carrier signal. A commonly used offset between the
measured frequency and the carrier frequency is 10 kHz.
When noise is measured, the measured absolute level is related to a bandwidth of 1 Hz.
The following example is also based on a signal at 100 MHz with a level of -30 dBm. Two
markers are used to determine both the noise and the phase noise at a 10 kHz offset from the
carrier signal.
REM ************************************************************************
Public Sub Noise()
Dim status As ViStatus
Dim retCnt As Long
result$ = Space$(100)
REM ------ Default setting of the R&S FSQ ----------------------------------
Call SetupStatusReg
'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)'Single sweep mode
REM ------ Setting the frequency -------------------------------------------
status = viWrite(analyzer, "FREQUENCY:CENTER 100MHz", 23, retCnt)
'Center frequency
status = viWrite(analyzer, "FREQ:SPAN 100 kHz", 17, retCnt)
'Span
REM ------ Setting the level -----------------------------------------------
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -20dBm", 28, retCnt)