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