Rohde & Schwarz FSQ series, Quick Start Manual

Page: 199 / 229

Quick Start Guide 1313.9652.62 - 02 7.17
R&S FSQ Brief Introduction to Remote Control
Detailed Programming Examples
status = viWrite(analyzer, "CALC:MARK:COUNT ON", 18, retCnt)
'Activate frequency counter
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
status = viWrite(analyzer, "CALC:MARK:COUNT:FREQ?", 21, retCnt)
'Query and read measured frequency
status = viRead(analyzer, result$, 100, retCnt)
Print "Marker Count Freq: "; result$
END SUB
REM ************************************************************************
7.2.2.3 Working with a Fixed Reference Point (Reference Fixed)
The following example is based on a signal at 100 MHz with a level of -20 dBm. Thus, the
harmonics of the signal are located at 200 MHz, 300 MHz, etc. In the case of high-quality
signal sources, these harmonics may be located outside the dynamic range of the R&S FSQ.
Nevertheless, to measure the harmonic suppression, the level setting must be changed to
higher sensitivity when measuring the harmonics, in which case it may be necessary to
suppress the carrier by using a notch filter in order to prevent the RF input of the R&S FSQ
from being overloaded.
Thus, two measurements with different level settings are performed in the following 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 FSQ 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 status As ViStatus
Dim retCnt As Long
result$ = Space$(100)
Call SetupInstrument
'Default setting
REM ------ Measuring the reference point -----------------------------------
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Switch to single sweep
status = viWrite(analyzer, "CALC:MARK:PEXC 6DB", 18, retCnt)
'Define peak excursion
status = viWrite(analyzer, "CALC:MARK:STAT ON", 17, retCnt)
'Activate marker 1
status = viWrite(analyzer, "CALC:MARK:TRAC 1", 16, retCnt)
'Set marker 1 to trace 1
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'Perform sweep with sync
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