Table of Contents
Advertisement
Example 9-17
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 9
Detecting Error Occurrence using SRQ (HT Basic)
DIM Buff$[9],Err_mes$[50]
INTEGER Err_no
!
ASSIGN @Agt4981a TO 717
!
OUTPUT @Agt4981a;"*ESE 60"
OUTPUT @Agt4981a;"*SRE 32"
OUTPUT @Agt4981a;"*CLS"
OUTPUT @Agt4981a;"*OPC?"
ENTER @Agt4981a;Buff$
!
ON INTR 7 GOTO Err_proc
ENABLE INTR 7;2
OUTPUT @Agt4981a;":CALC1:FORM CS"
PRINT "Primary
Parameter Setting: CS"
OUTPUT @Agt4981a;":CALC2:FOR Q"
PRINT "Secondary Parameter Setting: Q"
OUTPUT @Agt4981a;"*OPC?"
ENTER @Agt4981a;Buff$
GOTO Skip_err_proc
OUTPUT @Agt4981a;";:SYST:ERR?"
ENTER @Agt4981a;Err_no,Err_mes$
PRINT "Error occurred!!"
PRINT "
No:";Err_no,"Description: "&Err_mes$
PRINT "PROGRAM INTERRUPT!!"
GOTO Prog_end
Measurement Applications (Sample Programs)
159
Advertisement
Table of Contents
