Print "Val. Mes. Instantanée: " ;Val. Mes. 'Et Les Sortir - Rohde & Schwarz NRT Manuel D'utilisation

Déclenchement et mesure en commande à distance
Exemple de programmation
relatif au déclenchement externe via le connecteur AUX TTL :
'****************************************************************************
'Initialisation du SRQ
'****************************************************************************
CALL IBWRT(sensor%, "*CLS")
CALL IBWRT(sensor%, "*SRE 128")
CALL IBWRT(sensor%, "*ESE 61")
CALL IBWRT(sensor%, "STAT:OPER:ENAB 16")
CALL IBWRT(sensor%, "STAT:OPER:NTR 16")
'****************************************************************************
'Activer SRQ sur le contrôleur de processus
'****************************************************************************
ON PEN GOSUB Srq
PEN ON
'****************************************************************************
'Programme principal
'****************************************************************************
'Instructions spécifiques à l'application, exemple d'extraction des résultats
flag% = 0
lp = TRUE
WHILE lp = TRUE
IF flag% = 1 THEN
CALL IBWRT(sensor%, "SENS<n>:DATA?")
CALL IBRD(sensor%, valeur mesurée)
PRINT "val. mes. instantanée: " ;val. mes. 'et les sortir
flag% = 0
PEN ON
END IF
WEND
STOP
'****************************************************************************
Srq:
'****************************************************************************
CALL IBRSP(sensor%, STB%)
IF (STB% AND 128) > 0 THEN GOSUB état opératoire
ON PEN GOSUB Srq
PEN ON
RETURN
'****************************************************************************
Etat opératoire :
'****************************************************************************
Oper$ = SPACE$(20)
CALL IBWRT(sensor%, "STAT:OPER:EVEN? ")
CALL IBRD(sensor%, Oper$)
IF (VAL(Oper$) AND 16) > 0 THEN flag% = 1
RETURN
1080.9506.02
'Sous-programme traitant le registre OPER
'Réinitialise l'indication d'état
'Permettre SRQ pour STAT:OPER
'Activer SRQ sur NRT avec le bit
'Event Enable.
'Activer le bit
'MEASuring-Operation-Enable
'Déclencher SRQ lorsque le NRT
'a terminé la mesure.
'Lecture des données dans une
'boucle
'Mesure déclenchée terminée
'Extraire les données
'Réactiver SRQ
'Fin de programme
'Routine demande de service
'Reconnaissance série, lire octet
d'état
'Fin de routine demande de service
'Fin du sous-programme
3.16
NRT
F-6