R&S esu, Быстрый старт

Страница: 191 / 223

Quick Start Guide 1302.6163.62 - 04 7.13
R&S ESU Brief Introduction to Remote Control
Detailed Programming Examples
status = viWrite(analyzer, "CALC:DELT3:X:REL?;:CALC:DELT3:Y?", 32, retCnt)
'Read delta marker 3 frequency and level;
'both must have a value of 0
status = viRead(analyzer, result$, 100, retCnt)
Print "Delta 3: "; result$
REM ------ Peak search with search range limit in y direction --------------
status = viWrite(analyzer, "CALC:THR:STAT ON", 16, retCnt)
status = viWrite(analyzer, "CALC:THR -35DBM", 15, retCnt)
'Activate threshold and set it above the AF
status = viWrite(analyzer, "CALC:DELT3:STAT ON;MAX;MAX:NEXT", 31, retCnt)
'Activate delta marker 3, set to peak and then
'to next peak => is not found
status = viWrite(analyzer, "CALC:DELT3:X:REL?;:CALC:DELT3:Y?", 32, retCnt)
'Query and read delta marker 3 frequency and
'level; both must have a value of 0
status = viRead(analyzer, result$, 100, retCnt)
Print "Delta 3: "; result$
REM - Setting center frequency and reference level with markers -----------
status = viWrite(analyzer, "CALC:MARK2:FUNC:CENT", 20, retCnt)
'Delta marker 2 -> marker and center frequency = marker 2
status = viWrite(analyzer, "CALC:MARK2:FUNC:REF", 19, retCnt)
'Ref level = marker 2
status = viWrite(analyzer, "INIT;*WAI", 9, retCnt)
'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. Also in this
measurement, the instrument's default setting can be used (SetupInstrument). The purpose
of frequency counting is to determine the exact frequency of the signal at 100 MHz.
REM ************************************************************************
Public Sub MarkerCount()
Dim status As ViStatus
Dim retCnt As Long
result$ = Space$(100)
Call SetupInstrument
'Default setting
REM ------ Defining signal frequency with frequency counter ----------------
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