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
Summary of Contents for esu
Page 26: ...R S ESU Contents 6 Quick Start Guide 1302 6163 62 04 ...
Page 28: ......
Page 32: ...R S ESU 0 4 Quick Start Guide 1302 6163 62 04 ...
Page 88: ...R S ESU Preparing for Use Operating System Properties 2 38 Quick Start Guide 1302 6163 62 04 ...
Page 104: ...R S ESU Basic Operation Setting Parameters 4 12 Quick Start Guide 1302 6163 62 04 ...
Page 201: ...Quick Start Guide 1302 6163 62 04 R S ESU Appendix Appendix ...
Page 202: ...Quick Start Guide 1302 6163 62 04 R S ESU Appendix ...