Agilent Technologies 4288A User Manual

Chapter 6 73
Reading Out Measured Result
Reading Out Measured Result
6. Reading out Measured
Result
Example 6-6 Reading out the measured result in binary transfer format using the :READ?
command (read_b.bas)
10 DIM Buff$[9],Digit$[1],Read_form$[9],Num_of_byte$[9]
20 REAL Pri_para,Sec_para
30 REAL Meas_stat,Comp
40 INTEGER Comp_flag
50 ASSIGN @Binary TO 717;FORMAT OFF
60 ASSIGN @Agt4288a TO 717
70 OUTPUT @Agt4288a;":FORM REAL"
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 PRINT "Waiting for External Trigger!"
180 OUTPUT @Agt4288a;":READ?"
190 ENTER @Agt4288a USING "#,A";Buff$
200 ENTER @Agt4288a USING "#,A";Digit$
210 Read_form$="#,"&Digit$&"A"
220 ENTER @Agt4288a USING Read_form$;Num_of_byte$
230 IF Comp_flag=1 THEN
240 ENTER @Binary;Meas_stat,Pri_para,Sec_para,Comp
250 ELSE
260 ENTER @Binary;Meas_stat,Pri_para,Sec_para
270 END IF
280 ENTER @Agt4288a USING "#,A";Buff$
290 !
300 ! Display results
310 !
320 PRINT USING "15A,X,D";"Meas. status :",Meas_stat
330 PRINT USING "15A,X,SD.5DE";"Pri. parameter:",Pri_para
340 PRINT USING "15A,X,SD.5DE";"Sec. parameter:",Sec_para
350 IF Comp_flag=1 THEN
360 PRINT USING "15A,X,K";"Comparator :",Comp
370 ELSE
380 PRINT USING "19A";"Comparator : OFF"
390 END IF
400 END

Agilent Technologies 4288A Specifications

General

Brand	Agilent Technologies
Model	4288A
Category	Measuring Instruments
Language	English