Operating instructions

R&S ESCI More Complex Programming Examples
1166.6004.12 7.35 E-1
REM ************************************************************************
Public Sub FrequencyList()
result$ = Space$(500)
'--------- 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") 'Display off
'---------Configure R&S ESCI for power measurement based on frequency list -
-----
Call IBWRT(analyzer%, "TRIG:LEV:VID 45PCT") 'Video trigger threshold
Call IBWRT(analyzer%, "LIST:POWer:SET ON,ON,OFF,VID,POS,100us,0")
'--------- Perform measurement and query results ---------------------------
cmd$ = "LIST:POWer? "
cmd$ = cmd$ + "935.2MHZ,10dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "1805.2MHZ,10dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "1870.4MHZ,10dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "2805.6MHZ,0dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "3610.4MHz,10dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "3740.8MHz,0dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0,"
cmd$ = cmd$ + "5815.6MHz,0dBm,20dB,OFF,NORM,1MHz,3MHz,300us,0"
Call IBWRT(analyzer%, cmd$)
Call IBRD(analyzer%, result$)
Print result$
END SUB
REM ************************************************************************