Werbung
Komplexere Programmbeispiele
REM ************************************************************************
Public Sub MultiSumMarker()
result$ = Space$(200)
'--------- Grundeinstellung R&S ESPI ---------------------------------------
CALL SetupStatusReg
CALL IBWRT(receiver %,"*RST")
CALL IBWRT(receiver %,"INIT:CONT OFF")
CALL IBWRT(receiver %,"SYST:DISP:UPD ON")
'--------
R&S ESPI für Leistungsmessung im Zeitbereich konfigurieren ------
CALL IBWRT(receiver %,"FREQ:CENT 935.2MHz;SPAN 0Hz")
CALL IBWRT(receiver %,"DISP:WIND:TRAC:Y:RLEV 10dBm")
CALL IBWRT(receiver %,"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(receiver %,"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(receiver %, result$)
Print result$
END SUB
REM ************************************************************************
1164.6459.11
'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
'Sweep durchführen mit Sync
'Ergebnisse abfragen:
'Offset erster Puls
'Messzeit
'Periodendauer
'# of Bursts
'Ergebnisse einlesen
7.30
R&S ESPI
'Frequenzeinstellung
'stellt den Referenz-
'pegel auf 10 dB ein
1 Frame
D-2
Werbung
Kapitel
