Table des Matières
Publicité
ESIB
La lecture des registres Status Event, du tampon de sortie et de la file d'erreurs/événements s'effectue
dans des sous-programmes.
REM ------------- Sous-programmes pour les divers bits STB ----------------
Outputqueue:
RESPONSE$ = SPACE$(100)
CALL IBRD(receiver%, response$)
PRINT "Résponse :"; response$
RETURN
Failure:
ERROR$ = SPACE$(100)
CALL IBWRT(receiver%, "SYSTEM:ERROR?")
CALL IBRD(receiver%, ERROR$)
PRINT "Message d'erreur :"; ERROR$
RETURN
Questionablestatus:
Ques$ = SPACE$(20)
CALL IBWRT(receiver%, "STATus:QUEStionable:EVENt?")
CALL IBRD(receiver%, Ques$)
PRINT "Questionable Status:"; Ques$
RETURN
Operationstatus:
Oper$ = SPACE$(20)
CALL IBWRT(receiver%, "STATus:OPERation:EVENt?")
CALL IBRD(receiver%, Oper$)
PRINT "Operation Status:"; Oper$
RETURN
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 4) > 0 THEN GOTO Failure
IF (VAL(Esr$) AND 8) > 0 THEN PRINT "Device dependent error"
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 "User request"
IF (VAL(Esr$) AND 128) > 0 THEN PRINT "Power on"
RETURN
REM **********************************************************************
REM ----------------- Routine de traitement d'erreur -----------------------
Errorhandling:
PRINT "ERROR"
STOP
1088.7531.13
'Création d'une variable pour la réponse
'Création d'une variable pour le message d'erreurX
'Lecture du Questionable Status Register
'Création d'une variable de texte de 20 espaces
'Lecture de l'Operation Status Register
'Création d'une variable de texte de 20 espaces
'Lecture de l'Event-Status-Register
'Création d'une variable de texte de 20 espaces
7.5
Exemples de programme
'Lecture du tampon de sortie
'Lecture de la file d'erreurs
'Lecture de l'ESR
'Sortie d'un message d'erreur
'Arrêt du programme
F-15
Publicité
Table des Matières
