Chapter 6 71
Reading Out Measured Result
Reading Out Measured Result
6. Reading out Measured
Result
Example 6-5 Reading out the measured result in ASCII transfer format using the :READ?
command (read_a.bas)
10 DIM Buff$[9]
20 REAL Pri_para,Sec_para
30 INTEGER Meas_stat,Comp
40 INTEGER Comp_flag
50 !
60 ASSIGN @Agt4288a TO 717
70 OUTPUT @Agt4288a;":FORM ASC"
80 !
90 OUTPUT @Agt4288a;":INIT:CONT OFF"
100 OUTPUT @Agt4288a;":TRIG:SOUR EXT"
110 !
120 OUTPUT @Agt4288a;":CALC:COMP?"
130 ENTER @Agt4288a;Comp_flag
140 !
150 ! Triggering and data read
160 !
170 OUTPUT @Agt4288a;":READ?"
180 PRINT "Waiting for External Trigger!"
190 IF Comp_flag=1 THEN
200 ENTER @Agt4288a;Meas_stat,Pri_para,Sec_para,Comp
210 ELSE
220 ENTER @Agt4288a;Meas_stat,Pri_para,Sec_para
230 END IF
240 !
250 ! Display results
260 !
270 PRINT USING "15A,X,D";"Meas. status :",Meas_stat
280 PRINT USING "15A,X,SD.5DE";"Pri. parameter:",Pri_para
290 PRINT USING "15A,X,SD.5DE";"Sec. parameter:",Sec_para
300 IF Comp_flag=1 THEN
310 PRINT USING "15A,X,K";"Comparator :",Comp
320 ELSE
330 PRINT USING "19A";"Comparator : OFF"
340 END IF
350 END
To Next Page
Loading...
Need help?
General
