User`s guide

72 Chapter 4
Performing a Calibration
Sample Program
620 PRINT "## Calibration Kit Selection ##"
630 FOR I=1 TO 10
640 PRINT USING "X,2D,A,X,20A";I,":",Cal_kit_lbl$(I)
650 NEXT I
660 PRINT ""
670 PRINT "Input 1 to 10"
680 INPUT "Input number? (1 to 10)",Inp_char$
690 Cal_kit=IVAL(Inp_char$,10)
700 IF Cal_kit<1 OR Cal_kit>10 THEN Kit_select
710 OFF ERROR
720 !
730 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:CKIT ";Cal_kit
740 SUBEND
750 !=============================================
760 ! Port Selection Function
770 !=============================================
780 SUB Select_port(INTEGER Num_of_ports,INTEGER Port(*))
790 DIM Inp_char$[9]
800 !
810 CLEAR SCREEN
820 IF Num_of_ports=2 THEN
830 Port(1)=1
840 Port(2)=2
850 ELSE
860 PRINT "## Test Ports Selection ##"
870 ON ERROR GOTO Port_select
880 FOR I=1 TO Num_of_ports
890 PRINT "Port("&VAL$(I)&"):";
900 Port_select: !
910 INPUT "Number?",Inp_char$
920 Port(I)=IVAL(Inp_char$,10)
930 IF Port(I)<1 OR Port(I)>2 THEN Port_select
940 FOR J=1 TO I-1
950 IF Port(I)=Port(J) THEN Port_select
960 NEXT J
970 PRINT Port(I)
980 NEXT I
990 OFF ERROR
1000 END IF
1010 SUBEND
1020 !=============================================
1030 ! Response (Open/Short) Calibration Function
1040 !=============================================
1050 SUB Cal_resp(@Agte507x,Ch$,Type$,INTEGER Port)
1060 DIM Buff$[9]
1070 !
1080 PRINT "## Response ("&Type$&") Calibration ##"
1090 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:METH:"&Type$&" ";Port
1100 PRINT "Set "&Type$&" to Port "&VAL$(Port)&". Then push [Enter]
key."
1110 INPUT "",Buff$
1120 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:"&Type$&" ";Port
1130 OUTPUT @Agte507x;"*OPC?"
1140 ENTER @Agte507x;Buff$
1150 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SAVE"
1160 PRINT "Done"
1170 SUBEND
1180 !=============================================
1190 ! Response (Thru) Calibration Function
1200 !=============================================
1210 SUB Cal_resp_thru(@Agte507x,Ch$,INTEGER Port1,Port2)
1220 DIM Buff$[9]
1230 !
1240 PRINT "## Response (Thru) Calibration ##"