Specifications

Chapter 15 189
Sample Application Programs
Using an Auto-sorting System
15. Sample Application
Programs
2390 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
2400 OUTPUT @Agt4287a;"*SRE 128"
2410 ! Triggering and data read
2420 FOR I=1 TO Meas_max
2430 REPEAT
2440 OUTPUT @Agt4287a;":STAT:OPER:COND?"
2450 ENTER @Agt4287a;Cond_reg
2460 UNTIL BIT(Cond_reg,5)
2470 OUTPUT @Agt4287a;"*CLS"
2480 OUTPUT @Agt4287a;"*OPC?"
2490 ENTER @Agt4287a;Buff$
2500 ON INTR Scode GOTO Meas_end
2510 ENABLE INTR Scode;2
2520 PRINT "Set Dut. Then input external trigger."
2530 Meas_wait: GOTO Meas_wait
2540 Meas_end: OFF INTR Scode
2550 OUTPUT @Agt4287a;":CALC:COMP:DATA:BIN?"
2560 ENTER @Agt4287a;Bin_sort_result
2570 PRINT "Meas. No.:"&VAL$(I),"BIN =";Bin_sort_result
2580 NEXT I
2590 !----------------------------------------
2600 ! Display
2610 !----------------------------------------
2620 ! [BIN Count Result]
2630 OUTPUT @Agt4287a;":CALC:COMP:DATA:BCOU?"
2640 ENTER @Agt4287a;Bin(*)
2650 Img1$="2X,15A,5D"
2660 PRINT "[BIN Count Result]"
2670 PRINT " BIN Count"
2680 PRINT " -----------------------"
2690 FOR I=1 TO 13
2700 PRINT USING Img1$;"BIN"&VAL$(I)&":",Bin(I)
2710 NEXT I
2720 PRINT USING Img1$;"OUT OF BIN1-13:",Bin(14)
2730 ! [Statistical Analysis Result]
2740 FOR I=1 TO Nop
2750 OUTPUT @Agt4287a;":CALC:EXAM:GET? 1,";I
2760 ENTER @Agt4287a;P1(I,1),P1(I,2),P1(I,3),P1(I,4),P1(I,5),
P1(I,6),P1(I,7),P1(I,8),P1(I,9),P1(I,10)
2770 OUTPUT @Agt4287a;":CALC:EXAM:GET? 2,";I
2780 ENTER @Agt4287a;P2(I,1),P2(I,2),P2(I,3),P2(I,4),P2(I,5),
P2(I,6),P2(I,7),P2(I,8),P2(I,9),P2(I,10)
2790 NEXT I
2800 Img1$="X,3A,X,3D,2X,MD.4DE,X,MD.4DE,X,MD.4DE,X,MD.4DE,X,MD.4DE"
2810 Img2$="X,3A,X,3D,2X,10D,2X,10D,2X,10D,2X,10D,2X,10D"
2820 PRINT "[Statistical Analysis Result]"
2830 PRINT " ----------- Statistical Value for Normal Data -------
-----"
2840 PRINT "Para Point Mean Sigma 3*Sigma/Mean Min. M
ax."
2850 FOR I=1 TO Nop
2860 PRINT USING Img1$;Para$(1),I,P1(I,1),P1(I,2),P1(I,3),P1(I,4),
P1(I,5)
2870 NEXT I
2880 FOR I=1 TO Nop
2890 PRINT USING Img1$;Para$(2),I,P2(I,1),P2(I,2),P2(I,3),P2(I,4),
P2(I,5)
2900 NEXT I
2910 PRINT ""
2920 PRINT " ------------------- Occurrence Count ----------------
-----"
2930 PRINT "Para Point Normal Rdc Fail Overload Abnormal A
ll"
2940 FOR I=1 TO Nop