Agilent Technologies 4288A User Manual

Chapter 6 69
Reading Out Measured Result
Reading Out Measured Result
6. Reading out Measured
Result
Example 6-4 Reading out measured result in binary transfer format using :FETC? command
(fetch_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 ON"
100 OUTPUT @Agt4288a;":TRIG:SOUR EXT"
110 !
120 OUTPUT @Agt4288a;":CALC:COMP?"
130 ENTER @Agt4288a;Comp_flag
140 !
150 ! SRQ setting
160 !
170 OUTPUT @Agt4288a;":STAT:OPER:ENAB 16"
180 OUTPUT @Agt4288a;"*SRE 128"
190 OUTPUT @Agt4288a;"*CLS"
200 OUTPUT @Agt4288a;"*OPC?"
210 ENTER @Agt4288a;Buff$
220 !
230 ! Triggering and data read
240 !
250 ON INTR 7 GOTO Meas_end
260 ENABLE INTR 7;2
270 PRINT "Waiting for External Trigger!"
280 Meas_wait: GOTO Meas_wait
290 Meas_end: OFF INTR 7
300 OUTPUT @Agt4288a;":FETC?"
310 ENTER @Agt4288a USING "#,A";Buff$
320 ENTER @Agt4288a USING "#,A";Digit$
330 Read_form$="#,"&Digit$&"A"
340 ENTER @Agt4288a USING Read_form$;Num_of_byte$
350 IF Comp_flag=1 THEN
360 ENTER @Binary;Meas_stat,Pri_para,Sec_para,Comp
370 ELSE
380 ENTER @Binary;Meas_stat,Pri_para,Sec_para
390 END IF
400 ENTER @Agt4288a USING "#,A";Buff$
410 !
420 ! Display results
430 !
440 PRINT USING "15A,X,D";"Meas. status :",Meas_stat
450 PRINT USING "15A,X,SD.5DE";"Pri. parameter:",Pri_para
460 PRINT USING "15A,X,SD.5DE";"Sec. parameter:",Sec_para
470 IF Comp_flag=1 THEN
480 PRINT USING "15A,X,K";"Comparator :",Comp
490 ELSE
500 PRINT USING "19A";"Comparator : OFF"
510 END IF
520 END

Agilent Technologies 4288A Specifications

General

Brand	Agilent Technologies
Model	4288A
Category	Measuring Instruments
Language	English