R&S esu, Quick Start Manual

Page: 193 / 223

Quick Start Guide 1302.6163.62 - 04 7.15
R&S ESU Brief Introduction to Remote Control
Detailed Programming Examples
status = viWrite(analyzer, "CALC:MARK:MAX", 13, retCnt)
'Set marker 1 to 100 MHz
status = viWrite(analyzer, "CALC:DELT:FUNC:FIX ON", 21, retCnt)
'Define reference
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 ESU ----------------------------------
Call SetupStatusReg 'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt) 'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt) 'Change into analyzer mode.
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 -----------------------------------------------