Rohde & Schwarz SME02 Manuel D'utilisation page 447

SME
La lecture des registres Status Event, du tampon de sortie et de la file d'attente erreur/événement
s'effectue dans des sous-programmes.
REM ---------- Sous-programmes pour les bits STB individuels ---------
Outputqueue:
Message$ = SPACE$(100)
CALL IBRD(generator%, Message$)
PRINT "Message in output buffer :"; Message$
RETURN
Failure: 'Lecture de la file d'attente
ERROR$ = SPACE$(100)
CALL IBWRT(generator%, "SYSTEM:ERROR?")
CALL IBRD(generator%, ERROR$)
PRINT "Error text :"; ERROR$
RETURN
Questionablestatus:
Ques$ = SPACE$(20)
CALL IBWRT(generator%, "STATus:QUEStionable:EVENt?")
CALL IBRD(generator%, Ques$)
IF (VAL(Ques$) AND 128) > 0 THEN PRINT "Calibration ?"
IF (VAL(Ques$) AND 1) > 0 THEN PRINT "Voltage ?"'Niveau de sortie problématique
RETURN
Operationstatus:
Oper$ = SPACE$(20)
CALL IBWRT(generator%, "STATus:OPERation:EVENt?")
CALL IBRD(generator%, Oper$)
IF (VAL(Oper$) AND 1) > 0 THEN PRINT "Calibration"
IF (VAL(Oper$) AND 2) > 0 THEN PRINT "Settling"
IF (VAL(Oper$) AND 8) > 0 THEN PRINT "Sweeping"
IF (VAL(Oper$) AND 32) > 0 THEN PRINT "Wait for trigger"
RETURN
Esrread: 'Lire l'Event Status Register
Esr$ = SPACE$(20)
CALL IBWRT(generator%, "*ESR?")
CALL IBRD(generator%, 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 d'erreurs --------------------------------
Error handling:
PRINT "ERROR"
STOP
1038.6002.02
'Lecture du tampon de sortie
'Préparer de l'espace pour la réponse
'Préparer de l'espace pour la variable d'erreur
'Lire le Questionable Status Register
'Préaffecter la variable de texte par espaces
'Lire l'Operation Status Register
'Préaffecter la variable de texte par espaces
'Préaffecter la variable de texte par espaces
'Lire l'ESR
9D.5
Exemples de programme
'Calibrage problématique
'Sortir le message d'erreur
'Arrêter le logiciel
F-13