Agilent Technologies 4288A Programming Manual page 82

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