R&S ESU Series Operating Manual page 800

R&S ESU
REM ************************************************************************
Public Sub TOI()
result$ = Space$(100)
'--------- R&S ESU default setting --------------------------
CALL SetupStatusReg
'Set status registers
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
status = viWrite(analyzer, "INST:SEL SAN", 12, retCnt)
'Change into analyzer mode
status = viWrite(analyzer, "INIT:CONT OFF", 13, retCnt)
'Single sweep
status = viWrite(analyzer, "SYST:DISP:UPD ON", 16, retCnt)
'ON: display on
'OFF: off
'--------- Set frequency ------------------------------------
status = viWrite(analyzer, "FREQ:STARt 85MHz;STOP 125 MHz", 29, retCnt)
'Span
'--------- Set level ----------------------------------------
status = viWrite(analyzer, "DISP:WIND:TRAC:Y:RLEV -20dBm", 28, retCnt)
'Reference level
status = viWrite(analyzer, "INIT;*WAI", 4, retCnt)
'Perform sweep with sync
'--------- TOI measurement ----------------------------------
status = viWrite(analyzer, "CALC:MARK:PEXC 6DB", 18, retCnt)
'Peak excursion
status = viWrite(analyzer, "CALC:MARK:FUNC:TOI ON", 21, retCnt)
'Switch on TOI measurement
status = viWrite(analyzer, "CALC:MARK:FUNC:TOI:RES?", 23, retCnt)
'and read out results
status = viRead(analyzer, result$, 100, retCnt)
'--------- Read out result ---------------------------------
Print "TOI [dBm]: "; result$
END SUB
REM ************************************************************************
Operating Manual 1302.6163.12 - 03
Remote Control – Programming Examples
More Complex Programming Examples
7.11