R&S ESU Series Operating Manual page 814

R&S ESU
REM ************************************************************************
Public Sub FrequencyList()
result$ = Space$(500)
'--------- R&S ESU default setting -------------------------
CALL SetupStatusReg
'Configure status register
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 mode
status = viWrite(analyzer, "SYST:DISP:UPD OFF", 17, retCnt)
'Display off
'-- Configure R&S ESU for power measurement based on frequency
list ---
status = viWrite(analyzer, "TRIG:LEV:VID 45PCT", 18, retCnt)
'Video trigger threshold
status = viWrite(analyzer, "LIST:POWer:SET ON,ON,OFF,VID,POS,100us,0", 40,
retCnt)
'-------- 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"
status = viWrite(analyzer, cmd$, 343, retCnt)
status = viRead(analyzer, result$, 100, retCnt)
Print result$
END SUB
REM ************************************************************************
Operating Manual 1302.6163.12 - 03
Remote Control – Programming Examples
More Complex Programming Examples
7.25