Table des Matières
Publicité
Exemples de programme
8.
Service Request
La routine de demande de service exige une initialisation étendue de l'appareil lors de laquelle les bits
correspondants des registres de transition et de validation sont positionnés.
Afin de pouvoir utiliser la fonction de demande de service en liaison avec un driver GPIB de National
Instruments, modifier le réglage "Disable Auto Serial Poll" du driver en le mettant sur "yes" au moyen de
IBCONF.
REM -------- Exemple d'initialisation de la SRQ en cas d'erreurs --------
CALL IBWRT(generator%, "*CLS")
CALL IBWRT(generator%, "*SRE 168")
CALL IBWRT(generator%, "*ESE 60")
CALL IBWRT(generator%, "STAT:OPER:ENAB 32767")
CALL IBWRT(generator%, "STAT:OPER:PTR 32767")
CALL IBWRT(generator%, "STAT:OPER:ENAB 32767")
CALL IBWRT(generator%, "STAT:OPER:PTR 32767")
ON PEN GOSUB Srq
PEN ON
REM Suite du programme principal à partir d'ici
STOP
Une demande de service est ensuite traitée dans la routine SRQ.
Note :
Les variables userN% et userM% doivent avoir une affectation correcte.
Srq:
REM ------------ Service Request Routine -----------
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
nouser:
NEXT I%
LOOP UNTIL SRQFOUND% = 0
ON ERROR GOTO error handling
ON PEN GOSUB Srq: RETURN
1038.6002.02
'Remettre le Status Reporting System à l'état
'initial.
'Rendre possible une SRQ pour les
'registres STAT:OPER-, STAT:QUES et ESR
'Activer le bit Event-Enable pour
'Command-, Execution-, Device Dependent-
'et Query Error
'Activer le bit OPERation Enable pour
'tous les événements
'Activer les bits OPERation Ptransition
'appartenants
'Activer les bits Questionable Enable
'pour tous les événements
'Activer les bits Questionable Ptransition
'appartenants
'Initialisation de la routine SRQ
'Fin du programme
'Interroger tous les utilisateurs de bus
'Il n'y a pas d'utilisateur
'Serial Poll, lire 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
'Valider la routine SRQ;
'Fin de la routine SRQ
9D.4
SME
F-13
Publicité
Table des Matières
