Specifications

Chapter 4 61
Preparing for Accurate Measurement
Running the Compensation Process
4. Preparing for Accurate
Measurement
620 ON ERROR GOTO File_error
630 ASSIGN @File TO File$
640 ENTER @File;Cal_coef_a1(*),Cal_coef_b1(*),Cal_coef_c1(*),
Cal_coef_a2(*),Cal_coef_b2(*),Cal_coef_c2(*),Cal_coef_dc(*)
650 ASSIGN @File TO *
660 OFF ERROR
670 !
680 OUTPUT @Agt4287a;":DATA:CCO1 ";Cal_coef_a1(*)
690 OUTPUT @Agt4287a;":DATA:CCO2 ";Cal_coef_b1(*)
700 OUTPUT @Agt4287a;":DATA:CCO3 ";Cal_coef_c1(*)
710 OUTPUT @Agt4287a;":DATA:CCO4 ";Cal_coef_a2(*)
720 OUTPUT @Agt4287a;":DATA:CCO5 ";Cal_coef_b2(*)
730 OUTPUT @Agt4287a;":DATA:CCO6 ";Cal_coef_c2(*)
740 !
750 OUTPUT @Agt4287a;":DATA:RCCO1 ";Cal_coef_dc(1)
760 OUTPUT @Agt4287a;":DATA:RCCO2 ";Cal_coef_dc(2)
770 OUTPUT @Agt4287a;":DATA:RCCO3 ";Cal_coef_dc(3)
780 !----------------------------------------
790 ! Compensation
800 !----------------------------------------
810 PRINT "## Test Fixture Setting ##"
820 CALL Set_fixture(@Agt4287a)
830 !
840 PRINT "## Compensation Kit Setup ##"
850 CALL Set_comp_kit(@Agt4287a)
860 !
870 PRINT "## Measurement ##"
880 Result=FNCompen(@Agt4287a,Scode,"Open",Open_l_lim)
890 IF Result<>0 THEN Prog_end
900 !
910 Result=FNCompen(@Agt4287a,Scode,"Short",Short_u_lim)
920 IF Result<>0 THEN Prog_end
930 !
940 OUTPUT @Agt4287a;":CORR2:COLL:SAVE"
950 OUTPUT @Agt4287a;"*OPC?"
960 ENTER @Agt4287a;Buff$
970 !
980 PRINT "## Done ##"
990 GOTO Prog_end
1000 !
1010 File_error:OFF ERROR
1020 PRINT "################## ERROR ##################"
1030 PRINT "The CAL_DATA (cal. coef. file) is NOT exist."
1040 PRINT " or"
1050 PRINT "The CAL_DATA's size is UNSUITABLE."
1060 !
1070 Prog_end:END
1080 !=============================================
1090 ! Compensation Data Measurement Function
1100 !=============================================
1110 DEF FNCompen(@Agt4287a,INTEGER Scode,Standard$,REAL Limit)
1120 DIM Inp_char$[9],Trig_sour$[9],Buff$[9]
1130 REAL Rdc
1140 INTEGER Err_flag
1150 OUTPUT @Agt4287a;":TRIG:SOUR?"
1160 ENTER @Agt4287a;Trig_sour$
1170 OUTPUT @Agt4287a;":ABOR"
1180 OUTPUT @Agt4287a;":TRIG:SOUR BUS"
1190 OUTPUT @Agt4287a;":INIT:CONT ON"
1200 OUTPUT @Agt4287a;":STAT:OPER:PTR 0"
1210 OUTPUT @Agt4287a;":STAT:OPER:NTR 16"
1220 OUTPUT @Agt4287a;":STAT:OPER:ENAB 16"
1230 OUTPUT @Agt4287a;"*SRE 128"
1240 Compen_meas: !