Behandlung Des Event Status Registers - Rohde & Schwarz ESPI3 Handbuch

R&S ESPI
Public SUB Operationstatus()
Oper$ = SPACE$(20)
CALL IBWRT(receiver %, "STATus:OPERation:EVENt?")
CALL IBRD(receiver %, Oper$)
PRINT "Operation Status: "; Oper$
END SUB
REM ***********************************************************************

Behandlung des Event Status Registers

REM --- Unterprogramm zur Auswertung Event-Status-Register ----
Public SUB Esrread()
Esr$ = SPACE$(20)
CALL IBWRT(receiver %, "*ESR?")
CALL IBRD(receiver %, Esr$)
IF (VAL(Esr$) AND 1) > 0 THEN PRINT "Operation complete"
IF (VAL(Esr$) AND 2) > 0 THEN PRINT "Request Control"
IF (VAL(Esr$) AND 4) > 0 THEN PRINT "Query Error"
IF (VAL(Esr$) AND 8) > 0 THEN PRINT "Device dependent error"
IF (VAL(Esr$) AND 16) > 0 THEN
PRINT "Execution Error; Program aborted"'
STOP
END IF
IF (VAL(Esr$) AND 32) > 0 THEN
PRINT "Command Error; Program aborted"'
STOP
END IF
IF (VAL(Esr$) AND 64) > 0 THEN PRINT "User request"
IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Power on"
END SUB
REM **********************************************************************
1164.6459.11
Grundlegende Schritte der IEC-Bus-Programmierung
'Textvariable mit Leerzeichen vorbelegen
'Textvariable mit Leerzeichen vorbelegen
7.11
'ESR lesen
Fehlermeldung ausgeben
'Software anhalten
Fehlermeldung ausgeben
'Software anhalten
D-2