Specifications
178 Chapter 15
Sample Application Programs
Measuring the DUT with a Test Fixture
1250 PRINT USING "3A,8X,3A,8X,3A,8X,3A,#";Para$(1),Para$(2),Para$(3),
Para$(4)
1260 PRINT " Imon Vmon"
1270 FOR I=1 TO Nop
1280 PRINT USING Img$;I,Res(I,1),Res(I,2),Res(I,3),Res(I,4),Res(I,5)
,Res(I,6),Res(I,7)
1290 NEXT I
1300 !
1310 INPUT "Once more? [Y]es/[N]o",Inp_char$
1320 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN Meas_start
1330 !
1340 Prog_end:END
1350 !=============================================
1360 ! Calibration Data Measurement Function
1370 !=============================================
1380 DEF FNCal(@Agt4287a,INTEGER Scode,Standard$,REAL L_lim,REAL U_lim)
1390 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
1400 REAL Meas_data
1410 INTEGER Err_flag
1420 OUTPUT @Agt4287a;":TRIG:SOUR?"
1430 ENTER @Agt4287a;Trig_sour$
1440 OUTPUT @Agt4287a;":ABOR"
1450 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
1460 OUTPUT @Agt4287a;":INIT:CONT ON"
1470 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
1480 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
1490 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
1500 OUTPUT @Agt4287a;"*SRE 128"
1510 Cal_meas:!
1520 PRINT "Set "&Standard$&"-Connection."
1530 INPUT "OK? [Y/N]",Inp_char$
1540 IF UPC$(Inp_char$)="Y" THEN
1550 OUTPUT @Agt4287a;"*CLS"
1560 OUTPUT @Agt4287a;"*OPC?"
1570 ENTER @Agt4287a;Buff$
1580 ON INTR Scode GOTO Meas_end
1590 ENABLE INTR Scode;2
1600 SELECT Standard$
1610 CASE "Open"
1620 OUTPUT @Agt4287a;":CORR1:COLL STAN1"
1630 CASE "Short"
1640 OUTPUT @Agt4287a;":CORR1:COLL STAN2"
1650 CASE "Load"
1660 OUTPUT @Agt4287a;":CORR1:COLL STAN3"
1670 CASE "Low Loss C"
1680 OUTPUT @Agt4287a;":CORR1:COLL STAN4"
1690 END SELECT
1700 OUTPUT @Agt4287a;":TRIG"
1710 PRINT "Now measuring..."
1720 Meas_wait: GOTO Meas_wait
1730 Meas_end: OFF INTR Scode
1740 Err_flag=0
1750 SELECT Standard$
1760 CASE "Open"
1770 OUTPUT @Agt4287a;":DATA:RCAD1?"
1780 ENTER @Agt4287a;Rdc
1790 PRINT "Rdc =";ABS(Rdc)
1800 IF ABS(Rdc)<L_lim THEN Err_flag=1
1810 CASE "Short"
1820 OUTPUT @Agt4287a;":DATA:RCAD2?"
1830 ENTER @Agt4287a;Rdc
1840 PRINT "Rdc =";ABS(Rdc)
1850 IF ABS(Rdc)>U_lim THEN Err_flag=1
1860 CASE "Load"