Specifications
Chapter 15 179
Sample Application Programs
Measuring the DUT with a Test Fixture
15. Sample Application
Programs
1870 OUTPUT @Agt4287a;":DATA:RCAD3?"
1880 ENTER @Agt4287a;Rdc
1890 PRINT "Rdc =";ABS(Rdc)
1900 IF ABS(Rdc)<L_lim OR ABS(Rdc)>U_lim THEN Err_flag=1
1910 END SELECT
1920 IF Err_flag=0 THEN
1930 PRINT Standard$&" Data Measurement Complete"
1940 ELSE
1950 PRINT "ERROR!!"
1960 GOTO Cal_meas
1970 END IF
1980 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
1990 RETURN 0
2000 ELSE
2010 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
2020 PRINT "Program Interruption"
2030 RETURN -1
2040 END IF
2050 FNEND
2060 !=============================================
2070 ! Compensation Data Measurement Function
2080 !=============================================
2090 DEF FNCompen(@Agt4287a,INTEGER Scode,Standard$,REAL Limit)
2100 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
2110 REAL Rdc
2120 INTEGER Err_flag
2130 OUTPUT @Agt4287a;":TRIG:SOUR?"
2140 ENTER @Agt4287a;Trig_sour$
2150 OUTPUT @Agt4287a;":ABOR"
2160 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
2170 OUTPUT @Agt4287a;":INIT:CONT ON"
2180 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
2190 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
2200 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
2210 OUTPUT @Agt4287a;"*SRE 128"
2220 Compen_meas: !
2230 PRINT "Set "&Standard$&"-Connection."
2240 INPUT "OK? [Y/N]",Inp_char$
2250 IF UPC$(Inp_char$)="Y" THEN
2260 OUTPUT @Agt4287a;"*CLS"
2270 OUTPUT @Agt4287a;"*OPC?"
2280 ENTER @Agt4287a;Buff$
2290 ON INTR Scode GOTO Meas_end
2300 ENABLE INTR Scode;2
2310 SELECT Standard$
2320 CASE "Open"
2330 OUTPUT @Agt4287a;":CORR2:COLL STAN1"
2340 CASE "Short"
2350 OUTPUT @Agt4287a;":CORR2:COLL STAN2"
2360 END SELECT
2370 OUTPUT @Agt4287a;":TRIG"
2380 PRINT "Now measuring..."
2390 Meas_wait: GOTO Meas_wait
2400 Meas_end: OFF INTR Scode
2410 Err_flag=0
2420 SELECT Standard$
2430 CASE "Open"
2440 OUTPUT @Agt4287a;":DATA:RCMD1?"
2450 ENTER @Agt4287a;Rdc
2460 PRINT "Rdc =";ABS(Rdc)
2470 IF ABS(Rdc)<Limit THEN Err_flag=1
2480 CASE "Short"
2490 OUTPUT @Agt4287a;":DATA:RCMD2?"
2500 ENTER @Agt4287a;Rdc