Keysight E4981A - Page 153

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 153
Measurement Applications (Sample Programs)
Detecting Error Occurrence using SRQ (HT Basic)
Example 9-17 Error occurrence detection using SRQ (srq_err.bas)
10 DIM Buff$[9],Err_mes$[50]
20 INTEGER Err_no
30 !
40 ASSIGN @Agt4981a TO 717
50 !
60 OUTPUT @Agt4981a;"*ESE 60"
70 OUTPUT @Agt4981a;"*SRE 32"
80 OUTPUT @Agt4981a;"*CLS"
90 OUTPUT @Agt4981a;"*OPC?"
100 ENTER @Agt4981a;Buff$
110 !
120 ON INTR 7 GOTO Err_proc
130 ENABLE INTR 7;2
140 OUTPUT @Agt4981a;":CALC1:FORM CS"
150 PRINT "Primary Parameter Setting: CS"
160 OUTPUT @Agt4981a;":CALC2:FOR Q"
170 PRINT "Secondary Parameter Setting: Q"
180 OUTPUT @Agt4981a;"*OPC?"
190 ENTER @Agt4981a;Buff$
200 GOTO Skip_err_proc
210 Err_proc: OFF INTR 7
220 OUTPUT @Agt4981a;";:SYST:ERR?"
230 ENTER @Agt4981a;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