Rohde & Schwarz ESPI3 Handbuch Seite 851

Komplexere Programmbeispiele
'--------- Beispiel 2: CP/ACP manuell für GSM konfigurieren ----------------
result$ = Space$(100)
CALL IBWRT(receiver %,"FREQ:CENT 935.2MHz")
CALL IBWRT(receiver %,"CALC:MARK:FUNC:POW:SEL ACP") 'ACP-Messung einschalten
CALL IBWRT(receiver %,"SENS:POW:ACH:ACP 1")
CALL IBWRT(receiver %,"SENS:POW:ACH:BAND 200KHZ")
CALL IBWRT(receiver %,"SENS:POW:ACH:BAND:ACH 200KHZ")'Nachbarkanalbandbreite
CALL IBWRT(receiver %,"SENS:POW:ACH:SPAC 200KHZ")
CALL IBWRT(receiver %,"SENS:POW:ACH:PRES ACP") 'Einstellung optimieren
CALL IBWRT(receiver %,"SENS:POW:ACH:PRES:RLEV;*WAI")
CALL IBWRT(receiver %,"SENS:POW:ACH:MODE ABS") 'Absolute Messung auswählen
'--------- Messung durchführen und Ergebnis abfragen -----------------------
CALL IBWRT(receiver %,"INIT;*WAI")
CALL IBWRT(receiver %,"CALC:MARK:FUNC:POW:RES? ACP")
CALL IBRD(receiver %, result$)
'--------- Ergebnis ausgeben -----------------------------------------------
Print "Result (CP, ACP low, ACP up): "
Print result$
'--------- Grenzwertprüfung aktivieren -------------------------------------
result$ = Space$(100)
CALL IBWRT(receiver %,"CALC:LIM:ACP:ACH 30DB, 30DB")
CALL IBWRT(receiver %,"CALC:LIM:ACP:ACH:ABS –35DBM,-35DBM")
CALL IBWRT(receiver %,"CALC:LIM:ACP:ACH:STAT ON")
CALL IBWRT(receiver %,"CALC:LIM:ACP:ACH:ABS:STAT ON") 'abs. Grenzwertprüfung
CALL IBWRT(receiver %,"CALC:LIM:ACP ON")
'--------- Messung durchführen und Ergebnis abfragen -----------------------
CALL IBWRT(receiver %,"INIT;*WAI")
CALL IBWRT(receiver %,"CALC:LIM:ACP:ACH:RES?")
CALL IBRD(receiver %, result$)
'--------- Ergebnis ausgeben -----------------------------------------------
Print "Result Limit Check: ";result$
END SUB
REM ************************************************************************
1164.6459.11
'Frequenzeinstellung
'1 Nachbarkanal
'Kanalbandbreite 200kHz
'200 kHz
'Kanalabstand 200kHz
'Sweep durchführen mit Sync
7.26
R&S ESPI
'Ref.Pegel optimieren
'Ergebnis abfragen
'relativen Grenzwert
'festlegen
'absoluten Grenzwert
'festlegen
'rel. Grenzwertprüfung
'einschalten
'einschalten
'Grenzwertprüfung ein
'Sweep mit Sync
'Ergebnis Grenzwert-
'prüfung abfragen
D-2