Rohde & Schwarz FSP3 Bedienhandbuch Seite 513

FSP
REM ************************************************************************
Public Sub MultiSumMarker()
result$ = Space$(200)
'--------- Grundeinstellung FSP ---------------------------------------
CALL SetupStatusReg
CALL IBWRT(analyzer%,"*RST")
CALL IBWRT(analyzer%,"INIT:CONT OFF")
CALL IBWRT(analyzer%,"SYST:DISP:UPD ON")
'--------- FSP für Leistungsmessung im Zeitbereich konfigurieren ------
CALL IBWRT(analyzer%,"FREQ:CENT 935.2MHz;SPAN 0Hz")
CALL IBWRT(analyzer%,"DISP:WIND:TRAC:Y:RLEV 10dBm")
CALL IBWRT(analyzer%,"INP:ATT 30 dB")
CALL IBWRT(analyzer%,"BAND:RES 1MHz;VID 3MHz")
CALL IBWRT(analyzer%,"DET RMS")
CALL IBWRT(analyzer%,"TRIG:SOUR VID")
CALL IBWRT(analyzer%,"TRIG:LEV:VID 50 PCT")
CALL IBWRT(analyzer%,"SWE:TIME 50ms")
'--------- Messung durchführen und Ergebnisse abfragen ---------------------
CALL IBWRT(analyzer%,"INIT;*WAI")
cmd$ = "CALC:MARK:FUNC:MSUM? "
cmd$ = cmd$ + "50US,"
cmd$ = cmd$ + "450US,"
cmd$ = cmd$ + "576.9US,"
cmd$ = cmd$ + "8"
CALL IBWRT(analyzer%,cmd$)
CALL IBRD(analyzer%, result$)
Print result$
END SUB
REM ************************************************************************
1093.4820.11
Komplexere Programmbeispiele
'Statusregister konfigurieren
'Gerät zurücksetzen
'Single Sweep Betrieb
'ON: Bildschirmdarstellung ein
'OFF: aus
'stellt die Eingangsdämpfung
'auf 30 dB ein
'Bandbreiteneinstellung
'RMS-Detektor einstellen
'Triggerquelle: Video
'Triggerschwelle 50%
'Sweepzeit ≥ 1 Frame
'Sweep durchführen mit Sync
'Ergebnisse abfragen:
'Offset erster Puls
'Messzeit
'Periodendauer
'# of Bursts
'Ergebnisse einlesen
7.31
'Frequenzeinstellung
'stellt den Referenz-
'pegel auf 10 dB ein
D-1