Rohde & Schwarz ESPI3 Handbuch Seite 859

Komplexere Programmbeispiele
REM ************************************************************************
Public Sub FrequencyList()
result$ = Space$(500)
'--------- Grundeinstellung R&S ESPI ---------------------------------------
CALL SetupStatusReg
CALL IBWRT(receiver %,"*RST")
CALL IBWRT(receiver %,"INIT:CONT OFF")
CALL IBWRT(receiver %,"SYST:DISP:UPD OFF")
'------ R&S ESPI für Leistungsmessung mit Frequenzliste konfigurieren ------
Call IBWRT(analyzer%, "TRIG:LEV:VID 45PCT")
Call IBWRT(analyzer%, "LIST:POWer:SET ON,ON,OFF,VID,POS,100us,0")
'--------- Messung durchführen und Ergebnisse abfragen ---------------------
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 ************************************************************************
1164.6459.11
'Statusregister konfigurieren
'Gerät zurücksetzen
'Single Sweep Betrieb
'Bildschirmdarstellung aus
'Schwelle fuer Videotrigger
7.34
R&S ESPI
D-2