Specifications

Chapter 16 261
Application Programs
Basic Measurement
16. Application Program
2070 IF Reply=0 THEN Meas_start
2080 PRINT
2090 PRINT "Program ended!"
2100 GOTO Prog_end
2110 !
2120 Prog_int: !
2130 PRINT "Program interruption"
2140 !
2150 Prog_end: END
2160 !
2170 !
2180 DEF FNCal(@Agte4991a,Standard$)
2190 DIM Inp_char$[9],Err_mes$[50]
2200 INTEGER Err_no
2210 !
2220 Inp_char$="Y"
2230 !
2240 PRINT "Connect "&Standard$&" standard to the DUT port."
2250 Inp_start: !
2260 INPUT "OK? [Y/N]",Inp_char$
2270 IF UPC$(Inp_char$)="Y" THEN
2280 OUTPUT @Agte4991a;"*CLS"
2290 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
2300 OUTPUT @Agte4991a;"STAT:OPER:NTR 1"
2310 OUTPUT @Agte4991a;"STAT:OPER:ENAB 1"
2320 OUTPUT @Agte4991a;"*SRE 128"
2330 ON INTR 7 GOTO Meas_end
2340 ENABLE INTR 7;2
2350 SELECT Standard$
2360 CASE "OPEN"
2370 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN1"
2380 CASE "SHORT"
2390 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN2"
2400 CASE "LOAD"
2410 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN3"
2420 CASE "LOW-LOSS C"
2430 OUTPUT @Agte4991a;"SENS:CORR1:COLL STAN4"
2440 END SELECT
2450 DISP "Now measuring..."
2460 Meas_wait: GOTO Meas_wait
2470 Meas_end: DISP
2480 OFF INTR 7
2490 OUTPUT @Agte4991a;"SYST:ERR?"
2500 ENTER @Agte4991a;Err_no,Err_mes$
2510 IF Err_no=0 THEN
2520 PRINT Standard$&" data measurement completion"
2530 PRINT
2540 RETURN 0
2550 ELSE
2560 PRINT "Error: "&Err_mes$
2570 PRINT
2580 RETURN -1
2590 END IF
2600 ELSE
2610 PRINT
2620 RETURN -1
2630 END IF
2640 FNEND