Table des Matières
Publicité
Exemples de programme
Demande d'intervention (Service Request)
La routine de demande d'intervention exige une initialisation étendue de l'appareil, qui entraîne une
mise à 1 des bits correspondants des registres de transition et de validation. Afin de pouvoir utiliser la
fonction de demande d'intervention en liaison avec un driver GPIB de National Instruments, il faut
modifier le réglage "Disable Auto Serial Poll" du driver en le plaçant sur "yes" au moyen de IBCONF.
REM --------- Exemple d'initialisation de la SRQ en cas d'erreur -----------
CALL IBWRT(receiver%, "*CLS")
CALL IBWRT(receiver%,"*SRE 168")
'SRQ rendue possible pour les registres STAT:OPER, STAT:QUES et ESR
CALL IBWRT(receiver%,"*ESE 60")
'Activation du bit Event-Enable pour les types d'erreur : Command,
'Execution, Device Dependent et Query
CALL IBWRT(receiver%,"STAT:OPER:ENAB 32767")
'Activation du bit OPERation Enable pour tous les événements
CALL IBWRT(receiver%,"STAT:OPER:PTR 32767")
'Activation des bits correspondants de OPERation Ptransition
CALL IBWRT(receiver%,"STAT:QUES:ENAB 32767")
'Activation des bits de Questionable Enable pour tous les événements
CALL IBWRT(receiver%,"STAT:QUES:PTR 32767")
'Activation des bits correspondants de Questionable Ptransition
ON PEN GOSUB Srq
PEN ON
REM Suite du programme principal à partir d'ici
STOP
Une demande d'intervention est alors traitée dans la routine SRQ.
Remarque : les variables userN% et userM% doivent avoir une affectation correcte.
Srq:
REM ---------------------- Routine Service Request ------------------------
DO
SRQFOUND% = 0
FOR I% = userN% TO userM%
ON ERROR GOTO nouser
CALL IBRSP(I%, STB%)
IF STB% > 0 THEN
SRQFOUND% = 1
IF (STB% AND 16)
IF (STB% AND 4)
IF (STB% AND 8)
IF (STB% AND 128) > 0 THEN GOSUB Operationstatus
IF (STB% AND 32)
END IF
noTeilnehmer:
NEXT I%
LOOP UNTIL SRQFOUND% = 0
ON ERROR GOTO Errorhandling
ON PEN GOSUB Srq: RETURN
1088.7531.13
'Remise à zéro du Status Reporting System
'Initialisation de la routine SRQ
'Interrogation de tous les utilisateurs du bus
'Serial Poll, lecture de l'octet d'état
'Cet appareil a des bits activés dans le STB
> 0 THEN GOSUB Outputqueue
> 0 THEN GOSUB Failure
> 0 THEN GOSUB Questionablestatus
> 0 THEN GOSUB Esrread
7.4
'Il n'y a pas d'utilisateur
'Validation de la routine SRQ ;
'Fin de la Routine SRQ
ESIB
F-15
Publicité
Table des Matières
