92 Chapter 7
Sorting Based on Measured Result (Comparator Function)
Sample Program
530 OUTPUT @Agt4288a;":CALC:COMP:AUXB "&Aux$
540 OUTPUT @Agt4288a;":CREJ "&Low_c_rej$
550 OUTPUT @Agt4288a;":CREJ:LIM ";Low_c_rej_lim
560 OUTPUT @Agt4288a;":CALC:COMP ON"
570 OUTPUT @Agt4288a;":DISP:TEXT2:PAGE 6"
580 !
590 ! Trigger setting
600 !
610 OUTPUT @Agt4288a;":TRIG:SOUR BUS"
620 !
630 ! Bin count setting
640 !
650 OUTPUT @Agt4288a;":CALC:COMP:COUN ON"
660 OUTPUT @Agt4288a;":CALC:COMP:COUN:CLE"
670 OUTPUT @Agt4288a;"*OPC?"
680 ENTER @Agt4288a;Buff$
690 !
700 ! Measurement
710 !
720 CLEAR SCREEN
730 Img$="3D,3X,D,4X,MD.4DE,2X,MD.4DE,2X,2D"
740 PRINT "[MEASUREMENT and BIN SORT RESULT]"
750 PRINT " Status "&Pri$&" "&Sec$&" BIN"
760 PRINT " ----------------------------------------"
770 FOR I=1 TO 50
780 OUTPUT @Agt4288a;"*TRG"
790 ENTER @Agt4288a;Meas_stat,Pri_para,Sec_para,Comp
800 PRINT USING Img$;I,Meas_stat,Pri_para,Sec_para,Comp
810 NEXT I
820 OUTPUT @Agt4288a;":CALC:COMP:COUN:DATA?"
830 ENTER @Agt4288a;Bin(*)
840 OUTPUT @Agt4288a;":CALC:COMP:COUN:OVLD?"
850 ENTER @Agt4288a;Ovld
860 Img$="2X,17A,5D"
870 PRINT "[BIN COUNT RESULT]"
880 PRINT " BIN Count"
890 PRINT " ------------------------"
900 FOR I=1 TO 9
910 PRINT USING Img$;"BIN"&VAL$(I)&":",Bin(I)
920 NEXT I
930 PRINT USING Img$;"OUT OF BINS:",Bin(10)
940 PRINT USING Img$;"AUX BIN:",Bin(11)
950 PRINT USING Img$;"OVLD:",Ovld
960 !
970 END