Specifications
198 Chapter 15
Sample Application Programs
Measuring Array (Multi-Element) Components
1250 PRINT "Set the Dut."
1260 FOR Tab=1 TO Max_tab_no
1270 PRINT "Set the Scanner's Channel to No."&VAL$(Tab)&"."
1280 OUTPUT @Agt4287a;":READ? ";Tab
1290 PRINT "Input External Trigger after the /READY_FOR_TRIG signal
changed to Low level."
1300 ENTER @Agt4287a;Status,D(I,Tab)
1310 NEXT Tab
1320 ! BIN sorting
1330 IF (D(I,1)<L_lim OR D(I,1)>U_lim) OR (D(I,2)<L_lim OR
D(I,2)>U_lim) OR (D(I,3)<L_lim OR D(I,3)>U_lim) OR (D(I,4)<L_lim OR
D(I,4)>U_lim) THEN
1340 Bin$(I)="BIN2(N.G.)"
1350 ELSE
1360 Bin$(I)="BIN1(GOOD)"
1370 END IF
1380 PRINT "BIN: "&Bin$(I)
1390 NEXT I
1400 !----------------------------------------
1410 ! Display
1420 !----------------------------------------
1430 Img1$="8A,3X,5A,8X,5A,8X,5A,8X,5A,8X,3A"
1440 Img2$="5D,3X,MD.4DE,2X,MD.4DE,2X,MD.4DE,2X,MD.4DE,2X,10A"
1450 PRINT "### Result (Parameter: "&Para1$&" Frequency:";Freq;"Hz
Osc Level:";Pow;"m"&Unit$&") ###"
1460 PRINT USING Img1$;"Dut No.","Ch-1","Ch-2","Ch-3","Ch-4","BIN"
1470 FOR I=1 TO Meas_max
1480 PRINT USING Img2$;I,D(I,1),D(I,2),D(I,3),D(I,4),Bin$(I)
1490 NEXT I
1500 !
1510 Prog_end:END
1520 !=============================================
1530 ! Calibration Data Measurement Function
1540 !=============================================
1550 DEF FNCal(@Agt4287a,INTEGER Scode,Standard$,REAL L_lim,REAL U_lim)
1560 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
1570 REAL Meas_data
1580 INTEGER Err_flag
1590 OUTPUT @Agt4287a;":TRIG:SOUR?"
1600 ENTER @Agt4287a;Trig_sour$
1610 OUTPUT @Agt4287a;":ABOR"
1620 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
1630 OUTPUT @Agt4287a;":INIT:CONT ON"
1640 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
1650 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
1660 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
1670 OUTPUT @Agt4287a;"*SRE 128"
1680 Cal_meas:!
1690 PRINT "Set "&Standard$&"-Connection."
1700 INPUT "OK? [Y/N]",Inp_char$
1710 IF UPC$(Inp_char$)="Y" THEN
1720 OUTPUT @Agt4287a;"*CLS"
1730 OUTPUT @Agt4287a;"*OPC?"
1740 ENTER @Agt4287a;Buff$
1750 ON INTR Scode GOTO Meas_end
1760 ENABLE INTR Scode;2
1770 SELECT Standard$
1780 CASE "Open"
1790 OUTPUT @Agt4287a;":CORR1:COLL STAN1"
1800 CASE "Short"
1810 OUTPUT @Agt4287a;":CORR1:COLL STAN2"
1820 CASE "Load"
1830 OUTPUT @Agt4287a;":CORR1:COLL STAN3"
1840 CASE "Low Loss C"