Specifications

Chapter 7 115
Sorting DUTs Based on Measurement Results
Sample Program
7. Sorting DUTs Based on
Measurement Results
520 OUTPUT @Agt4287a;":SOUR:LIST:TABL 1"
530 OUTPUT @Agt4287a;":SOUR:LIST:STAT OFF"
540 OUTPUT @Agt4287a;":SOUR:LIST:POIN 1"
550 OUTPUT @Agt4287a;":CALC:PAR1:FORM LS"
560 OUTPUT @Agt4287a;":CALC:PAR2:FORM Q"
570 OUTPUT @Agt4287a;":DISP:TEXT1:CALC1 ON"
580 OUTPUT @Agt4287a;":DISP:TEXT1:CALC2 ON"
590 OUTPUT @Agt4287a;":DISP:TEXT1:CALC3 OFF"
600 OUTPUT @Agt4287a;":DISP:TEXT1:CALC4 OFF"
610 OUTPUT @Agt4287a;":DISP:TEXT1:CALC11 OFF"
620 OUTPUT @Agt4287a;":DISP:TEXT1:CALC12 OFF"
630 OUTPUT @Agt4287a;":SOUR:LIST:RDC OFF"
640 !
650 ! Bin Sort Setup Table Setting
660 !
670 OUTPUT @Agt4287a;":CALC:COMP:CLE"
680 OUTPUT @Agt4287a;":CALC:COMP ON"
690 FOR I=1 TO Max_cond
700 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":SNUM ";Point_no(I)
710 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":PAR "&Para$(I)
720 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":MODE "&Lim_mode$(
I)
730 IF Lim_mode$(I)<>"ABS" THEN
740 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":NOM ";Nominal(I)
750 END IF
760 FOR J=1 TO Max_bin
770 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&" ON"
780 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&":COND"&VAL$(I)&":L
TYP "&L_type$(J,I)
790 IF L_type$(J,I)<>"ALL" THEN
800 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&":COND"&VAL$(I)&"
:LIM ";L_lim(J,I);",";U_lim(J,I)
810 END IF
820 NEXT J
830 NEXT I
840 OUTPUT @Agt4287a;":CALC:COMP:OGB ";Ogbin
850 OUTPUT @Agt4287a;":CALC:COMP:COUN ON"
860 !
870 ! Measurement
880 !
890 OUTPUT @Agt4287a;":FORM ASC"
900 OUTPUT @Agt4287a;":ABOR"
910 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
920 OUTPUT @Agt4287a;":INIT:CONT ON"
930 OUTPUT @Agt4287a;":CALC:COMP:COUN:CLE"
940 OUTPUT @Agt4287a;"*OPC?"
950 ENTER @Agt4287a;Buff$
960 !
970 CLEAR SCREEN
980 Img$="3D,3X,D,4X,MD.4DE,2X,MD.4DE,2X,2D"
990 PRINT "[MEASUREMENT and BIN SORT RESULT]"
1000 PRINT " Status Ls Q BIN"
1010 PRINT " ----------------------------------------"
1020 FOR I=1 TO 50
1030 REPEAT
1040 OUTPUT @Agt4287a;":STAT:OPER:COND?"
1050 ENTER @Agt4287a;Cond_reg
1060 UNTIL BIT(Cond_reg,5)
1070 OUTPUT @Agt4287a;"*TRG"
1080 ENTER @Agt4287a;Stat,Ls,Q,Bin_res
1090 PRINT USING Img$;I,Stat,Ls,Q,Bin_res
1100 NEXT I
1110 OUTPUT @Agt4287a;":CALC:COMP:DATA:BCOU?"
1120 ENTER @Agt4287a;Bin(*)