Rohde & Schwarz R&S FSP Series, Руководство по эксплуатации

Страница: 757 / 796

Operating Manual 1164.4556.12 - 06 7.23
R&S FSP Remote Control – Programming Examples
More Complex Programming Examples
REM ************************************************************************
Public Sub FrequencyList()
result$ = Space$(500)
'--------- R&S FSP default setting -------------------------
CALL SetupStatusReg
'Configure status register
status = viWrite(analyzer, "*RST", 4, retCnt)
'Reset instrument
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 FSP 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 ************************************************************************