Brief Introduction to Remote Control
R&S
®
FSVA/FSV
156
Quick Start Guide 1321.3066.02 ─ 05
'frequency and level;
'both must have a value of 0
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Delta 3: ";result$
'---- Setting center frequency and reference level with markers ------------
CALL InstrWrite(analyzer,"CALC:MARK2:FUNC:CENT")
'Delta marker 2 -> marker and
'center frequency = marker 2
CALL InstrWrite(analyzer,"CALC:MARK2:FUNC:REF")
'Ref level = marker 2
CALL InstrWrite(analyzer,"INIT;*WAI") 'Sweep with sync
END SUB
REM ***********************************************************************
7.2.2.2
Frequency Counting
The following example is based on a signal at 100 MHz with a level of -30 dBm.
Again, the instrument's default setting can be used (SetupInstrument). The pur-
pose of frequency counting is to determine the exact frequency of the signal at
100 MHz.
REM *************************************************************************
Public Sub MarkerCount()
Dim retCount as Long
CALL SetupInstrument 'Default setting
'--------- Defining signal frequency with frequency counter ----------------
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,"CALC:MARK:X 100MHz")
'Set marker 1 to 100 MHz
CALL InstrWrite(analyzer,"CALC:MARK:COUNT ON")
'Activate frequency counter
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform sweep with sync
CALL InstrWrite(analyzer,"CALC:MARK:COUNT:FREQ?")
'Query and read measured frequency
result$ = Space$(100)
CALL InstrRead(analyzer, result$, 100, retCount)
Debug.Print "Marker Count Freq: ";result$
Detailed Programming Examples
Summary of Contents for R&S FSV
Page 25: ......
