80 Chapter 6
Reading Out Measured Result
Reading out measurement signal level monitor result
Example 6-8 Reading out the measurement signal level monitor result (lvl_mon.bas)
10 DIM Buff$[9]
20 REAL V_mon,I_mon
30 !
40 ASSIGN @Agt4288a TO 717
50 OUTPUT @Agt4288a;":FORM ASC"
60 !
70 OUTPUT @Agt4288a;":CALC3:MATH:STAT ON"
80 OUTPUT @Agt4288a;":CALC4:MATH:STAT ON"
90 OUTPUT @Agt4288a;":DISP:TEXT2:PAGE 4"
100 !
110 OUTPUT @Agt4288a;":INIT:CONT ON"
120 OUTPUT @Agt4288a;":TRIG:SOUR BUS"
130 !
140 ! SRQ setting
150 !
160 OUTPUT @Agt4288a;":STAT:OPER:ENAB 16"
170 OUTPUT @Agt4288a;"*SRE 128"
180 OUTPUT @Agt4288a;"*CLS"
190 OUTPUT @Agt4288a;"*OPC?"
200 ENTER @Agt4288a;Buff$
210 !
220 ! Triggering and level monitor data read
230 !
240 ON INTR 7 GOTO Meas_end
250 ENABLE INTR 7;2
260 OUTPUT @Agt4288a;":TRIG"
270 Meas_wait: GOTO Meas_wait
280 Meas_end: OFF INTR 7
290 OUTPUT @Agt4288a;":DATA? VMON"
300 ENTER @Agt4288a;V_mon
310 OUTPUT @Agt4288a;":DATA? IMON"
320 ENTER @Agt4288a;I_mon
330 !
340 ! Display results
350 !
360 IF V_mon<9.9E37 THEN
370 PRINT USING "8A,6D.3D,3A";"Voltage:",V_mon*1.E+3," mV"
380 PRINT USING "8A,6D.3D,3A";"Current:",I_mon*1.E+6," uA"
390 ELSE
400 PRINT "Overload!"
410 END IF
420 END