Rohde & Schwarz ESPI3 Handbuch Seite 849

Komplexere Programmbeispiele
'----------- Einschalten und Auswerten der Linie in Screen A ---------------
CALL IBWRT(receiver %,"CALC1:LIM5:UPP:STAT ON") 'Einschalten der Linie in
CALL IBWRT(receiver %,"CALC1:LIM5:STAT ON")
CALL IBWRT(receiver %,"INIT;*WAI")
CALL IBWRT(receiver %,"CALC1:LIM5:FAIL?")
CALL IBRD(receiver %, result$)
'--------- Ergebnis ausgeben -----------------------------------------------
Print "Limit Result Line 5: ";result$
'----------- Auswerten der Linie in Screen A via Statusregister ------------
CALL IBWRT(receiver %,"*CLS")
'--------- Messung durchführen ---------------------------------------------
CALL IBWRT(receiver %,"INIT;*OPC")
CALL WaitSRQ(boardID%,status%)
'--------- Ergebnis ausgeben -----------------------------------------------
IF (status% = 1) THEN
CALL IBWRT(receiver %,"STAT:QUES:LIM1:COND?")'Limit Statusregister
auslesen
CALL IBRD(receiver %, result$)
IF ((Val(result$) And 16) <> 0) THEN
Print "Limit5 failed"
ELSE
Print "Limit5 passed"
END IF
END IF
END SUB
REM ************************************************************************
1164.6459.11
'Screen A
'Einschalten der Grenzwert-
'prüfung in Screen A
'Sweep durchführen mit Sync
'Abfrage des Ergebnisses der
'Grenzwertprüfung
'Ergebnis: 1 (= FAIL)
'Status-Register zurücksetzen
'Sweep durchführen mit Sync
'Warten auf Service Request
'Ergebnis auslesen
7.24
R&S ESPI
D-2