Agilent Technologies 4288A Programming Manual page 99

Example 8-1 Error occurrence detection using SRQ (srq_err.bas)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210 Err_proc: OFF INTR 7
220
230
240
250
260
270
280 Skip_err_proc: PRINT "PROGRAM DONE."
290 Prog_end: END
Chapter 8
Avoiding Mistakes Related to Work and Daily Checks
DIM Buff$[9],Err_mes$[50]
INTEGER Err_no
!
ASSIGN @Agt4288a TO 717
!
OUTPUT @Agt4288a;"*ESE 60"
OUTPUT @Agt4288a;"*SRE 32"
OUTPUT @Agt4288a;"*CLS"
OUTPUT @Agt4288a;"*OPC?"
ENTER @Agt4288a;Buff$
!
ON INTR 7 GOTO Err_proc
ENABLE INTR 7;2
OUTPUT @Agt4288a;":CALC1:FORM CS"
PRINT "Primary Parameter Setting: Cs"
OUTPUT @Agt4288a;":CALC2:FOR Q"
PRINT "Secondary Parameter Setting: Q"
OUTPUT @Agt4288a;"*OPC?"
ENTER @Agt4288a;Buff$
GOTO Skip_err_proc
OUTPUT @Agt4288a;";:SYST:ERR?"
ENTER @Agt4288a;Err_no,Err_mes$
PRINT "Error occurred!!"
PRINT " No:";Err_no,"Description: "&Err_mes$
PRINT "PROGRAM INTERRUPT!!"
GOTO Prog_end
Avoiding Mistakes Related To Work
97