Specifications

Chapter 15 199
Sample Application Programs
Measuring Array (Multi-Element) Components
15. Sample Application
Programs
1850 OUTPUT @Agt4287a;":CORR1:COLL STAN4"
1860 END SELECT
1870 OUTPUT @Agt4287a;":TRIG"
1880 PRINT "Now measuring..."
1890 Meas_wait: GOTO Meas_wait
1900 Meas_end:!
1910 Err_flag=0
1920 SELECT Standard$
1930 CASE "Open"
1940 OUTPUT @Agt4287a;":DATA:RCAD1?"
1950 ENTER @Agt4287a;Rdc
1960 PRINT "Rdc =";ABS(Rdc)
1970 IF ABS(Rdc)<L_lim THEN Err_flag=1
1980 CASE "Short"
1990 OUTPUT @Agt4287a;":DATA:RCAD2?"
2000 ENTER @Agt4287a;Rdc
2010 PRINT "Rdc =";ABS(Rdc)
2020 IF ABS(Rdc)>U_lim THEN Err_flag=1
2030 CASE "Load"
2040 OUTPUT @Agt4287a;":DATA:RCAD3?"
2050 ENTER @Agt4287a;Rdc
2060 PRINT "Rdc =";ABS(Rdc)
2070 IF ABS(Rdc)<L_lim OR ABS(Rdc)>U_lim THEN Err_flag=1
2080 END SELECT
2090 IF Err_flag=0 THEN
2100 PRINT Standard$&" Data Measurement Complete"
2110 ELSE
2120 PRINT "ERROR!!"
2130 GOTO Cal_meas
2140 END IF
2150 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
2160 RETURN 0
2170 ELSE
2180 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
2190 PRINT "Program Interruption"
2200 RETURN -1
2210 END IF
2220 FNEND
2230 !=============================================
2240 ! Data Input Function
2250 !=============================================
2260 SUB Inp_data(Mes$,Inp_val)
2270 DIM Inp_char$[30]
2280 ON ERROR GOTO Inp_start
2290 Inp_start:!
2300 PRINT "Input "&Mes$
2310 INPUT "Value?",Inp_char$
2320 Inp_val=VAL(UPC$(Inp_char$))
2330 PRINT "Input Value: ";Inp_val
2340 INPUT "OK? [Y/N]",Inp_char$
2350 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2360 OFF ERROR
2370 SUBEND