Specifications

100 Chapter 4
Preparation for Accurate Measurement
Fixture Compensation
740 OUTPUT @Agte4991a;"DATA:CMP2?"
750 ENTER @Agte4991a;Comp_b(*)
760 !
770 File$="COMP_COEF"
780 Data_size=(Nop_comp*2*2)*8
790 CREATE File$,Data_size
800 ASSIGN @File TO File$;FORMAT OFF
810 OUTPUT @File;Comp_a(*),Comp_b(*)
820 ASSIGN @File TO *
830 !
840 PRINT "Compensation Coefficient File Saving Complete"
850 !
860 Prog_end: END
870 !
880 ! Fixture Compensation Data Measurement Function
890 !
900 DEF FNFixt_comp(@Agte4991a,Standard$)
910 DIM Inp_char$[9],Err_mes$[50]
920 INTEGER Err_no
930 !
940 PRINT "Connect "&Standard$&" Standard to electorode plate
on the fixture."
950 INPUT "OK? [Y/N]",Inp_char$
960 IF UPC$(Inp_char$)="Y" THEN
970 OUTPUT @Agte4991a;"*CLS"
980 OUTPUT @Agte4991a;"STAT:OPER:PTR 0"
990 OUTPUT @Agte4991a;"STAT:OPER:NTR 128"
1000 OUTPUT @Agte4991a;"STAT:OPER:ENAB 128"
1010 OUTPUT @Agte4991a;"*SRE 128"
1020 ON INTR 7 GOTO Meas_end
1030 ENABLE INTR 7;2
1040 SELECT Standard$
1050 CASE "Open"
1060 OUTPUT @Agte4991a;"SENS:CORR2:COLL STAN1"
1070 CASE "Short"
1080 OUTPUT @Agte4991a;"SENS:CORR2:COLL STAN2"
1090 END SELECT
1100 DISP "Now measuring..."
1110 Meas_wait: GOTO Meas_wait
1120 Meas_end: DISP
1130 OUTPUT @Agte4991a;"SYST:ERR?"
1140 ENTER @Agte4991a;Err_no,Err_mes$
1150 IF Err_no=0 THEN
1160 PRINT Standard$&" data measurement completion"
1170 PRINT
1180 RETURN 0
1190 ELSE
1200 PRINT "Error: "&Err_mes$
1210 PRINT "Program interruption"
1220 PRINT
1230 RETURN -1
1240 END IF
1250 ELSE
1260 PRINT "Program interruption"
1270 PRINT
1280 RETURN -1
1290 END IF
1300 FNEND