Grundlegende Schritte der IEC-Bus-Programmierung
END IF
noDevice:
END SUB
REM ***********************************************************************
Das Auslesen der Status-Event-Register, des Ausgabepuffer und der Fehler-/Ereignis-Warteschlange
erfolgt in Unterprogrammen.
Auslesen des Ausgabepuffers
REM -------- Unterprogramme für die einzelnen STB-Bits ------
Public SUB Outputqueue()
result$ = SPACE$(100)
CALL IBRD(receiver %, result$)
PRINT "Contents of Output Queue : "; result$
END SUB
REM ***********************************************************************
Auslesen von Fehlermeldungen
REM ------- Unterprogramm zur Auswertung der Fehlerqueue ------
Public SUB ErrorQueueHandler()
ERROR$ = SPACE$(100)
CALL IBWRT(receiver %, "SYSTEM:ERROR?")
CALL IBRD(receiver %, ERROR$)
PRINT "Error Description : "; ERROR$
END SUB
REM ***********************************************************************
Behandlung der SCPI-Statusregister
REM --- Unterprogramm zur Auswertung Questionable-Status-Register ----
Public SUB Questionablestatus()
Ques$ = SPACE$(20)
CALL IBWRT(receiver %, "STATus:QUEStionable:EVENt?")
CALL IBRD(receiver %, Ques$)
PRINT "Questionable Status: "; Ques$
END SUB
REM ***********************************************************************
REM --- Unterprogramm zur Auswertung Operation-Status-Register ----
1164.6459.11
'Ende der SRQ-Routine
'Lesen des Ausgabepuffers
'Platz für Antwort schaffen
'Platz für Fehlervariable schaffen
'Textvariable mit Leerzeichen vorbelegen
7.10
R&S ESPI
D-2