![Rohde & Schwarz 1307.9002K03 Quick Start Manual Download Page 168](http://html1.mh-extra.com/html/rohde-and-schwarz/1307-9002k03/1307-9002k03_quick-start-manual_1477765168.webp)
Controlling the R&S
FSVA/FSV Remotely
R&S
®
FSVA/FSV
153
Quick Start Guide 1321.3066.02 ─ 06
Thus, two measurements with different level settings are performed in the follow-
ing example. First, a high reference level is used on the carrier frequency, and
then a low reference level is used on the frequency of the third harmonic.
The default setting of the R&S
FSVA/FSV for measurements ("SetupInstrument")
is also used as a starting point here, after which adaptations for the measurement
are carried out.
REM *************************************************************************
Public Sub RefFixed()
Dim retCount as Long
CALL SetupInstrument 'Default setting
'--------- Measuring the reference point ----------------------------------
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,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:MARK:MAX")
'Set marker 1 to 100 MHz
CALL InstrWrite(analyzer,"CALC:DELT:FUNC:FIX ON")
'Define reference point
'----- Setting frequency, level and bandwidth for measuring harmonics ------
CALL InstrWrite(analyzer,"FREQ:CENT 400MHz;Span 1MHz")
'Set freq of 3rd harmonic
CALL InstrWrite(analyzer,"BAND:RES 1kHz")
'Set suitable RBW
CALL InstrWrite(analyzer,"SWEEP:TIME:AUTO ON")
'Couple sweep time
CALL InstrWrite(analyzer,"INP:ATT:AUTO ON")
'Select more sensitive level setting
CALL InstrWrite(analyzer,"DISP:WIND:TRAC:Y:RLEV -50dBm")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:DELT:MAX;X:REL?;Y?")
'Read delta marker
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
'Read frequency and level
Debug.Print "Deltamarker 1: "; result$
END SUB
REM ***********************************************************************
Brief Introduction to Remote Control