Specifications

188 Chapter 15
Sample Application Programs
Using an Auto-sorting System
Load_ls
1790 NEXT I
1800 PRINT "## For Rdc ##"
1810 CALL Inp_data("Load Rdc Value",Load_rdc)
1820 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:DC ";Load_rdc
1830 !
1840 PRINT "## Measurement for Calibration##"
1850 Result=FNCal(@Agt4287a,Scode,"Open",Open_l_lim,Open_u_lim)
1860 IF Result<>0 THEN Prog_end
1870 !
1880 Result=FNCal(@Agt4287a,Scode,"Short",Short_l_lim,Short_u_lim)
1890 IF Result<>0 THEN Prog_end
1900 !
1910 Result=FNCal(@Agt4287a,Scode,"Load",Load_l_lim,Load_u_lim)
1920 IF Result<>0 THEN Prog_end
1930 !
1940 OUTPUT @Agt4287a;":CORR1:COLL:SAVE"
1950 OUTPUT @Agt4287a;"*OPC?"
1960 ENTER @Agt4287a;Buff$
1970 !----------------------------------------
1980 ! Trigger source setting
1990 !----------------------------------------
2000 OUTPUT @Agt4287a;":ABOR"
2010 OUTPUT @Agt4287a;":TRIG:SOUR EXT"
2020 OUTPUT @Agt4287a;":INIT:CONT ON"
2030 !----------------------------------------
2040 ! BIN sort setting
2050 !----------------------------------------
2060 FOR I=1 TO Max_cond
2070 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":SNUM ";Point_no(I)
2080 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":PAR "&Para$(I)
2090 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":MODE "&Lim_mode$(
I)
2100 IF Lim_mode$(I)<>"ABS" THEN
2110 OUTPUT @Agt4287a;":CALC:COMP:COND"&VAL$(I)&":NOM ";Nominal(I)
2120 END IF
2130 FOR J=1 TO Max_bin
2140 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&" ON"
2150 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&":COND"&VAL$(I)&":L
TYP "&L_type$(J,I)
2160 IF L_type$(J,I)<>"ALL" THEN
2170 OUTPUT @Agt4287a;":CALC:COMP:BIN"&VAL$(J)&":COND"&VAL$(I)&":
LIM ";L_lim(J,I);",";U_lim(J,I)
2180 END IF
2190 NEXT J
2200 NEXT I
2210 OUTPUT @Agt4287a;":CALC:COMP:OGB ";Ogbin
2220 OUTPUT @Agt4287a;":CALC:COMP ON"
2230 OUTPUT @Agt4287a;":CALC:COMP:COUN ON"
2240 OUTPUT @Agt4287a;":CALC:COMP:COUN:CLE"
2250 OUTPUT @Agt4287a;"*OPC?"
2260 ENTER @Agt4287a;Buff$
2270 !----------------------------------------
2280 ! Statistical analysis setting
2290 !----------------------------------------
2300 Data_size=5*Nop*Meas_max
2310 OUTPUT @Agt4287a;":CALC:EXAM:SIZE ";Data_size
2320 OUTPUT @Agt4287a;":CALC:EXAM:STAR"
2330 !----------------------------------------
2340 ! Measurement
2350 !----------------------------------------
2360 ! For SRQ
2370 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
2380 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"