Specifications

262 Chapter 16
Application Programs
Basic Measurement
2650 !
2660 !
2670 DEF FNFixt_comp(@Agte4991a,Standard$)
2680 DIM Inp_char$[9],Err_mes$[50]
2690 INTEGER Err_no
2700 !
2710 Inp_char$="Y"
2720 !
2730 PRINT "Connect "&Standard$&" standard to electrode plate on
the fixture."
2740 INPUT "OK? [Y/N]",Inp_char$
2750 IF UPC$(Inp_char$)="Y" THEN
2760 OUTPUT @Agte4991a;"*CLS"
2770 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
2780 OUTPUT @Agte4991a;"STAT:OPER:NTR 128"
2790 OUTPUT @Agte4991a;"STAT:OPER:ENAB 128"
2800 OUTPUT @Agte4991a;"*SRE 128"
2810 ON INTR 7 GOTO Meas_end
2820 ENABLE INTR 7;2
2830 SELECT Standard$
2840 CASE "OPEN"
2850 OUTPUT @Agte4991a;"SENS:CORR2:COLL STAN1"
2860 CASE "SHORT"
2870 OUTPUT @Agte4991a;"SENS:CORR2:COLL STAN2"
2880 END SELECT
2890 DISP "Now measuring..."
2900 Meas_wait: GOTO Meas_wait
2910 Meas_end: DISP
2920 OFF INTR 7
2930 OUTPUT @Agte4991a;"SYST:ERR?"
2940 ENTER @Agte4991a;Err_no,Err_mes$
2950 IF Err_no=0 THEN
2960 PRINT Standard$&" data measurement completion"
2970 PRINT
2980 RETURN 0
2990 ELSE
3000 PRINT "Error: "&Err_mes$
3010 PRINT
3020 RETURN -1
3030 END IF
3040 ELSE
3050 PRINT
3060 RETURN -1
3070 END IF
3080 FNEND
3090 !
3100 DEF FNMessage(@Agte4991a,Mes$)
3110 DIM Inp_char$[9]
3120 PRINT Mes$
3130 PRINT
3140 Inp_start: !
3150 INPUT "Ready? [Y/N]",Inp_char$
3160 SELECT UPC$(Inp_char$)
3170 CASE "Y"
3180 RETURN 0
3190 CASE "N"
3200 RETURN -1
3210 CASE ELSE