Verification and Calibration - B
69
Figure B-2. Calibration Program Listing (Sheet 2 of 2)
700 PRINT TABXY(15,10),"CALIBRATING OVERVOLTAGE PROTECTION"
710 OUTPUT @Ac;"CAL:VOLT:PROT"
720 PRINT TABXY(30,15),"WAIT"
730 WAIT 30
740 OUTPUT @Ac;"CAL:SAVE"
750 OUTPUT @Ac;"CAL:STATE OFF"
760 CLEAR SCREEN
770 PRINT TABXY(15,5),"1. Turn off the AC Source"
780 PRINT TABXY(15,7),"2. Connect the current shunt and load resistor, see fig.B-1"
790 PRINT TABXY(15,9),"3. Connect the 3458A across the current shunt"
800 PRINT TABXY(15,11),"4. Set the 3458A to AC rms VOLTS"
810 PRINT TABXY(15,13),"5. Turn on the AC Source"
820 !
830 DISP "Press CONT to begin Current Program and Measurement calibration"
840 PAUSE
850 CLEAR SCREEN
860 PRINT TABXY(22,5),"CALIBRATING CURRENT POGRAMMING"
870 PRINT TABXY(20,7),"There are 2 points to be calibrated"
880 OUTPUT @Ac;"CAL:STATE ON"
890 OUTPUT @Ac;"CAL:CURR:AC"
900 OUTPUT @Ac;"CAL:LEV P1"
910 WAIT 10
920 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Ai_p1
930 PRINT TABXY(25,9),"Point 1 entered"
940 OUTPUT @Ac;"CAL:DATA";Ai_p1
950 OUTPUT @Ac;"CAL:LEV P2"
960 WAIT 10
970 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Ai_p2
980 PRINT TABXY(25,11),"Point 2 entered"
990 OUTPUT @Ac;"CAL:DATA";Ai_p2
1000 WAIT 3
1010 CLEAR SCREEN
1020 !
1030 ! Only include lines 1030 - 1340 if calibrating Agilent 6843
1040 !
1050 PRINT TABXY(22,5),"CALIBRATING CURRENT MEASUREMENT (Agilent 6843A ONLY)"
1060 PRINT TABXY(20,7),"There are 2 points to be calibrated"
1070 OUTPUT @Ac;"CAL:CURR:MEAS"
1080 OUTPUT @Ac;"CAL:LEV P1"
1090 WAIT 10
1100 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Am_p1
1110 PRINT TABXY(25,9),"Point 1 entered"
1120 OUTPUT @Ac;"CAL:DATA";Am_p1
1130 OUTPUT @Ac;"CAL:LEV P2"
1140 WAIT 10
1150 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Am_p2
1160 PRINT TABXY(25,11),"Point 2 entered"
1170 OUTPUT @Ac;"CAL:DATA";Am_p2
1180 WAIT 3
1190 CLEAR SCREEN
1200 OUTPUT @Ac;"CAL:SAVE"
1210 OUTPUT @Ac;"CAL:STATE OFF"
1220 PRINT TABXY(15,5),"1. Turn off the AC Source"
1230 PRINT TABXY(15,7),"2. Disconnect all equipment from the AC Source"
1240 PRINT TABXY(15,9),"3. Connect the 1 ohm impedance resistor, see fig.B-1"
1250 PRINT TABXY(15,11),"4. Turn on the AC Source"
1260 !
1270 DISP "Press CONT to begin Output Impedance calibration"
1280 PAUSE
1290 PRINT TABXY(15,10),"CALIBRATING OUTPUT IMPEDANCE (Agilent 6843A ONLY)"
1300 OUTPUT @Ac;"CAL:STATE ON"
1310 OUTPUT @Ac;"CAL:IMP"
1320 PRINT TABXY(30,15),"WAIT"
1330 WAIT 30
1340 !
1350 OUTPUT @Ac;"CAL:SAVE"
1360 OUTPUT @Ac;"CAL:STATE OFF"
1370 CLEAR SCREEN
1380 PRINT TABXY(25,10),"CALIBRATION COMPLETE"
1390 END
