Rohde & Schwarz NRT Betriebshandbuch Seite 184

Programmbeispiele
Failure:
CALL IECOUT("SYSTEM:ERROR?")
CALL IECIN(ERROR$)
PRINT "Fehlertext :"; ERROR$
RETURN
Questionablestatus:
CALL IECOUT("STATus:QUEStionable:EVENt?")
CALL IECIN(Ques$)
IF (VAL(Ques$) AND 8) > 0 THEN PRINT "Leistung, Ranging-Überwach."
IF (VAL(Ques$) AND 512) > 0 THEN PRINT "SWR-Warnung"
IF (VAL(Ques$) AND 1024) > 0 THEN PRINT "Sensor-Warnung"
IF (VAL(Ques$) AND 2048) > 0 THEN PRINT "Bursteinstellung ungültig"
RETURN
Operationstatus:
CALL IECOUT("STATus:OPERation:EVENt?")
CALL IECIN(Oper$)
IF (VAL(Oper$) AND 2) > 0 THEN PRINT "Initialisierung Meßkopf"
IF (VAL(Oper$) AND 16) > 0 THEN PRINT "Messung gestartet"
IF (VAL(Oper$) AND 32) > 0 THEN PRINT "Warten auf Trigger"
IF (VAL(Oper$) AND 256) > 0 THEN PRINT "Batteriebetrieb"
IF (VAL(Oper$) AND 512) > 0 THEN PRINT "Extremwertbetrachtung aktiv"
RETURN
Esrread:
CALL IECOUT("*ESR?")
CALL IECIN(Esr$)
IF (VAL(Esr$) AND 1) > 0 THEN PRINT "Vorgang beendet"
IF (VAL(Esr$) AND 4) > 0 THEN GOTO Failure
IF (VAL(Esr$) AND 8) > 0 THEN PRINT "Geräteinterner Fehler"
IF (VAL(Esr$) AND 16) > 0 THEN GOTO Failure
IF (VAL(Esr$) AND 32) > 0 THEN GOTO Failure
IF (VAL(Esr$) AND 64) > 0 THEN PRINT "Benutzeranforderung Handbedienung"
IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Einschalten"
RETURN
REM **********************************************************
REM ---------------------------- Fehlerroutine -----------------------------------
Fehlerbehandlung:
PRINT "ERROR"
STOP
REM*******************************************************************************
REM*******************************************************************************
1080.9506.02
'Error Queue lesen.
'Questionable-Status-Register lesen.
'Leistung ist fragwürdig,
'Stehwellenverh. ist fragwürdig,
'Operation-Status-Register lesen.
'Event-Status-Register lesen,
'ESR lesen.
'Fehlermeldung ausgeben,
'Software anhalten.
D.6
NRT
D-6