Operating instructions

R&S ESCI More Complex Programming Examples
1166.6004.12 7.33 E-1
REM ************************************************************************
Public Sub MultiBurstPower()
result$ = Space$(200)
'--------- R&S ESCI default setting ----------------------------------------
-----
CALL SetupStatusReg 'Configure status register
CALL IBWRT(receiver%,"*RST") 'Reset instrument
CALL IBWRT(receiver%,"INIT:CONT OFF") 'Single sweep mode
CALL IBWRT(receiver%,"SYST:DISP:UPD OFF") 'OFF: display off
'--------- Perform measurement and query results ---------------------
cmd$ = "MPOW? "
cmd$ = cmd$ + "935.2 MHZ," 'Center frequency
cmd$ = cmd$ + "1MHZ," 'Resolution bandwidth
cmd$ = cmd$ + "434US," 'Measurement time
cmd$ = cmd$ + "VID," 'Trigger source
cmd$ = cmd$ + "50PCT," 'Trigger threshold
cmd$ = cmd$ + "1US," 'Trigger offset, must be > 125 ns
cmd$ = cmd$ + "PEAK," 'Peak detector
cmd$ = cmd$ + "8" 'Number of bursts
CALL IBWRT(analyzer%, cmd$)
CALL IBRD(receiver%, result$) 'Read results
Print result$
END SUB
REM ************************************************************************