Specifications

Chapter 15 187
Sample Application Programs
Using an Auto-sorting System
15. Sample Application
Programs
1150 U_lim(4,4)=1.0E+9 ! Upper Limit : 1E9
1160 L_type$(4,4)="IN" ! Limit Type : IN
1170 ! =====[BIN5]======
1180 L_lim(5,1)=-5.0 ! Condition 1 Lower Limit : -5 %
1190 U_lim(5,1)=5.0 ! Upper Limit : +5 %
1200 L_type$(5,1)="IN" ! Limit Type : IN
1210 L_lim(5,2)=10.0 ! Condition 2 Lower Limit : 10
1220 U_lim(5,2)=1.0E+9 ! Upper Limit : 1E9
1230 L_type$(5,2)="IN" ! Limit Type : IN
1240 L_lim(5,3)=-5.0 ! Condition 3 Lower Limit : -5 %
1250 U_lim(5,3)=5.0 ! Upper Limit : +5 %
1260 L_type$(5,3)="OUT" ! Limit Type : OUT
1270 L_lim(5,4)=10.0 ! Condition 4 Lower Limit : 10
1280 U_lim(5,4)=1.0E+9 ! Upper Limit : 1E9
1290 L_type$(5,4)="OUT" ! Limit Type : OUT
1300 ! =====[BIN6]======
1310 L_lim(6,1)=-5.0 ! Condition 1 Lower Limit : -5 %
1320 U_lim(6,1)=5.0 ! Upper Limit : +5 %
1330 L_type$(6,1)="IN" ! Limit Type : IN
1340 L_lim(6,2)=10.0 ! Condition 2 Lower Limit : 10
1350 U_lim(6,2)=1.0E+9 ! Upper Limit : 1E9
1360 L_type$(6,2)="OUT" ! Limit Type : OUT
1370 L_lim(6,3)=-5.0 ! Condition 3 Lower Limit : -5 % (Dummy)
1380 U_lim(6,3)=5.0 ! Upper Limit : +5 % (Dummy)
1390 L_type$(6,3)="ALL" ! Limit Type : ALL
1400 L_lim(6,4)=10.0 ! Condition 4 Lower Limit : 10 (Dummy)
1410 U_lim(6,4)=1.0E+9 ! Upper Limit : 1E9 (Dummy)
1420 L_type$(6,4)="ALL" ! Limit Type : ALL
1430 !----------------------------------------
1440 ! Measurement Condition Setting
1450 !----------------------------------------
1460 OUTPUT @Agt4287a;":SYST:PRES"
1470 OUTPUT @Agt4287a;":FORM ASC"
1480 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Act_tab
1490 OUTPUT @Agt4287a;":SOUR:UNIT "&Unit$
1500 OUTPUT @Agt4287a;":SOUR:LIST ";Nop;",";
1510 FOR I=1 TO Nop-1
1520 OUTPUT @Agt4287a;Freq(I);",";Ave(I);",";Pow(I);",";
1530 NEXT I
1540 OUTPUT @Agt4287a;Freq(Nop);",";Ave(Nop);",";Pow(Nop)
1550 OUTPUT @Agt4287a;":SOUR:LIST:STAT ON"
1560 OUTPUT @Agt4287a;":SOUR:LIST:RDC ON"
1570 OUTPUT @Agt4287a;":CALC:COMP:RDC:LIM ";Rdc_l_lim;",";Rdc_u_lim
1580 OUTPUT @Agt4287a;":CALC:PAR1:FORM "&Para$(1)
1590 OUTPUT @Agt4287a;":CALC:PAR2:FORM "&Para$(2)
1600 OUTPUT @Agt4287a;":DISP:TEXT1:CALC3 OFF"
1610 OUTPUT @Agt4287a;":DISP:TEXT1:CALC4 OFF"
1620 OUTPUT @Agt4287a;":DISP "&Disp$
1630 OUTPUT @Agt4287a;":SYST:BEEP1:STAT "&Beep$
1640 OUTPUT @Agt4287a;":SYST:BEEP2:STAT "&Beep$
1650 OUTPUT @Agt4287a;":SYST:KLOC "&Lock$
1660 OUTPUT @Agt4287a;":SYST:KLOC:KBD "&Lock$
1670 OUTPUT @Agt4287a;":SYST:KLOC:MOUS "&Lock$
1680 !----------------------------------------
1690 ! Calibration
1700 !----------------------------------------
1710 OUTPUT @Agt4287a;":CORR1:CKIT USER"
1720 OUTPUT @Agt4287a;":CORR1:CKIT:LIST ON"
1730 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:FORM RL"
1740 FOR I=1 TO Nop
1750 PRINT "## For Point No.:";I;" Frequency:";Freq(I);" ##"
1760 CALL Inp_data("Load Rs Value",Load_rs)
1770 CALL Inp_data("Load Ls Value",Load_ls)
1780 OUTPUT @Agt4287a;":CORR1:CKIT:STAN3:LIST ";I;",";Load_rs;",";