EasyManua.ls Logo

Rohde & Schwarz FSV13 - Page 168

Rohde & Schwarz FSV13
199 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
Controlling the R&S FSVA/FSV Remotely
R&S
®
FSVA/FSV
153Quick 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

Table of Contents

Related product manuals