Appendix B 235
Information for Replacing 4278A with 4288A
Example of Replacing Major Functions (comparison of programs)
B. Information for Replacing
4278A with 4288A
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 4288A
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 Sec BIN"
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
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 OUTPUT @Agt4288a;":TRIG"
170 WAIT .02
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 " Status Pri Sec BIN"
360 PRINT "-----------------------------------------"
370 FOR I=1 TO 100
380 PRINT USING Img$;I,Data(I,1),Data(I,2),
Data(I,3),Data(I,4)
390 NEXT I
400 END