B - Verification and Calibration
560OUTPUT @Ac;"CAL:LEV P1"
570WAIT 10
580INPUT "Enter DC voltage reading from DVM",Dc_p1
590PRINT TABXY(25,9),"Point 1 entered"
600OUTPUT @Ac;"CAL:DATA";Dc_p1
610OUTPUT @Ac;"CAL:LEV P2"
620WAIT 10
630INPUT "Enter DC voltage reading from DVM",Dc_p2
640PRINT TABXY(25,11),"Point 2 entered"
650OUTPUT @Ac;"CAL:DATA";Dc_p2
660OUTPUT @Ac;"CAL:LEV P3"
670WAIT 10
680INPUT "Enter DC voltage reading from DVM",Dc_p3
690PRINT TABXY(25,13),"Point 3 entered"
700OUTPUT @Ac;"CAL:DATA";Dc_p3
710WAIT 3
720CLEAR SCREEN
730PRINT TABXY(5,10),"1. Connect the 3458A to the rear terminals via the ratio transformer"
740PRINT TABXY(18,12),"2. Set the 3458A to AC VOLTS"
750!
760DISP "Press CONT to begin AC PROGRAMMING and MEASUREMENT calibration"
770PAUSE
780CLEAR SCREEN
790PRINT TABXY(18,5),"CALIBRATING AC POGRAMMING and MEASUREMENT"
800PRINT TABXY(20,7),"There are 4 points to be calibrated"
810OUTPUT @Ac;"CAL:VOLT:AC"
820OUTPUT @Ac;"CAL:LEV P1"
830WAIT 10
840INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p1
850PRINT TABXY(25,9),"Point 1 entered"
860OUTPUT @Ac;"CAL:DATA";Ac_p1
870OUTPUT @Ac;"CAL:LEV P2"
880WAIT 10
890INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p2
900PRINT TABXY(25,11),"Point 2 entered"
910OUTPUT @Ac;"CAL:DATA";Ac_p2
920OUTPUT @Ac;"CAL:LEV P3"
930WAIT 10
940INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p3
950PRINT TABXY(25,13),"Point 3 entered"
960OUTPUT @Ac;"CAL:DATA";Ac_p3
970OUTPUT @Ac;"CAL:LEV P4"
980WAIT 3
990INPUT "Enter AC rms ( transformer ratio * DVM reading)",Ac_p4
1000 PRINT TABXY(25,15),"Point 4 entered"
1010 OUTPUT @Ac;"CAL:DATA";Ac_p4
1020 WAIT 10
1030 CLEAR SCREEN
1040 PRINT TABXY(15,10),"CALIBRATING OVERVOLTAGE PROTECTION"
1050 OUTPUT @Ac;"CAL:VOLT:PROT"
1060 PRINT TABXY(30,15),"WAIT"
1070 WAIT 30
1071 OUTPUT @Ac;"CAL:SAVE"
1072 OUTPUT @Ac;"CAL:STATE OFF"
1080 CLEAR SCREEN
1090 PRINT TABXY(15,5),"1. Turn off the AC Source"
1100 PRINT TABXY(15,7),"2. Connect the current shunt and 20 ohm load resistor, see
Figure B-2. Calibration Program Listing (Sheet 2 of 3)
78