Agilent Technologies 4288A Programming Manual page 237

Reading out the results for any measurement (Data buffer function)
Table B-21 compares the programs used by the 4278A and 4288A to read out the results of
100 measurements.
Table B-21 Comparison of programs used to read out results of 100 measurements
4278A
10 DIM Buff$[9],Img$[50]
20 REAL Data(1:100,1:3)
30 ASSIGN @Binary TO 717;FORMAT OFF
40 ASSIGN @Agt4278a TO 717
50 !
60 OUTPUT @Agt4278a;"TRIG2"
70 !
80 OUTPUT @Agt4278a;"MCOM1"
90 !
100 OUTPUT @Agt4278a;"DBIN1"
110 OUTPUT @Agt4278a;"DFMT2"
120 !
130 ! Triggering
140 !
150 FOR I=1 TO 100
160 OUTPUT @Agt4278a;"*TRG"
170 WAIT .02
180 NEXT I
190 !
200 ! Data reading
210 !
220 OUTPUT @Agt4278a;"DATA?"
230 ENTER @Agt4278a USING "#,4A";Buff$
240 !
250 !
260 !
270 ENTER @Binary;Data(*)
280 ENTER @Agt4278a USING "#,A";Buff$
290 !
300 ! Display results
310 !
320 CLEAR SCREEN
330 Img$="4D,3X,MD.4DE,2X,MD.4DE,2X,2D"
340 PRINT "[MEASUREMENT and BIN SORT RESULT]"
350 PRINT " Pri
360 PRINT "------------------------------------"
370 FOR I=1 TO 100
380 PRINT USING Img$;I,Data(I,1),Data(I,2),
Data(I,3)
390 NEXT I
400 END
Appendix B
Example of Replacing Major Functions (comparison of programs)
10 DIM Buff$[9],Dig$[1],Read_form$[9],Num_of
_byte$[9],Img$[50]
20 REAL Data(1:100,1:4)
30 ASSIGN @Binary TO 717;FORMAT OFF
40 ASSIGN @Agt4288a TO 717
50 !
60 OUTPUT @Agt4288a;":TRIG:SOUR EXT"
70 !
80 OUTPUT @Agt4288a;":DATA:POIN BUF3,100"
90 OUTPUT @Agt4288a;":DATA:FEED:CONT BUF3,ALW"
100 OUTPUT @Agt4288a;":CALC:COMP ON"
110 OUTPUT @Agt4288a;":FORM REAL"
120 !
130 ! Triggering
140 !
150 FOR I=1 TO 100
160
170
180 NEXT I
190 !
200 ! Data reading
210 !
220 OUTPUT @Agt4288a;":DATA? BUF3"
230 ENTER @Agt4288a USING "#,A";Buff$
240 ENTER @Agt4288a USING "#,A";Dig$
250 Read_form$="#,"&Dig$&"A"
260 ENTER @Agt4288a USING Read_form$;Num_of_byte$
270 ENTER @Binary;Data(*)
280 ENTER @Agt4288a USING "#,A";Buff$
290 !
300 ! Display results
310 !
320 CLEAR SCREEN
330 Img$="4D,3X,D,4X,MD.4DE,2X,MD.4DE,2X,2D"
340 PRINT "[MEASUREMENT and BIN SORT RESULT]"
350 PRINT "
Sec BIN"
360 PRINT "-----------------------------------------"
370 FOR I=1 TO 100
380
Data(I,3),Data(I,4)
390 NEXT I
400 END
Information for Replacing 4278A with 4288A
4288A
OUTPUT @Agt4288a;":TRIG"
WAIT .02
Status Pri
PRINT USING Img$;I,Data(I,1),Data(I,2),
Sec BIN"
235