Verification and Calibration - B
1110 PRINT TABXY(15,9),"3. Connect the 3458A across the current shunt"
1120 PRINT TABXY(15,11),"4. Set the 3458A to AC rms VOLTS"
1130 PRINT TABXY(15,13),"5. Turn on the AC Source"
1140 !
1150 DISP "Press CONT to begin Current Program and Measurement calibration"
1160 PAUSE
1170 CLEAR SCREEN
1180 PRINT TABXY(22,5),"CALIBRATING CURRENT POGRAMMING"
1190 PRINT TABXY(20,7),"There are 2 points to be calibrated"
1191 OUTPUT @Ac;"CAL:STATE ON"
1200 OUTPUT @Ac;"CAL:CURR:AC"
1210 OUTPUT @Ac;"CAL:LEV P1"
1220 WAIT 10
1230 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Ai_p1 1240 PRINT TABXY(25,9),"Point 1 entered"
1250 OUTPUT @Ac;"CAL:DATA";Ai_p1
1260 OUTPUT @Ac;"CAL:LEV P2"
1270 WAIT 10
1280 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Ai_p2 1290 PRINT TABXY(25,11),"Point 2 entered"
1300 OUTPUT @Ac;"CAL:DATA";Ai_p2
1310 WAIT 10
1320 CLEAR SCREEN
1330 PRINT TABXY(22,5),"CALIBRATING CURRENT MEASUREMENT"
1340 PRINT TABXY(20,7),"There are 2 points to be calibrated"
1350 OUTPUT @Ac;"CAL:CURR:MEAS"
1360 OUTPUT @Ac;"CAL:LEV P1"
1370 WAIT 10
1380 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Am_p1 1390 PRINT TABXY(25,9),"Point 1 entered"
1400 OUTPUT @Ac;"CAL:DATA";Am_p1
1410 OUTPUT @Ac;"CAL:LEV P2"
1420 WAIT 10
1430 INPUT "Enter AC rms current ( DVM reading divided by shunt resistance )",Am_p2 1440 PRINT TABXY(25,11),"Point 2 entered"
1450 OUTPUT @Ac;"CAL:DATA";Am_p2
1460 WAIT 10
1470 OUTPUT @Ac;"CAL:SAVE"
1480 OUTPUT @Ac;"CAL:STATE OFF"
1490 CLEAR SCREEN
1500 !
1510 !
1520 PRINT TABXY(15,5),"1. Turn off the AC Source"
1530 PRINT TABXY(15,7),"2. Disconnect all equipment from the AC Source"
1540 PRINT TABXY(15,9),"3. Connect the 1 ohm impedance resistor, see
1550 PRINT TABXY(15,11),"4. Turn on the AC Source"
1560 !
1570 DISP "Press CONT to begin Output Impedance calibration"
1580 PAUSE
1590 PRINT TABXY(15,10),"CALIBRATING OUTPUT IMPEDANCE"
1600 OUTPUT @Ac;"CAL:STATE ON"
1610 OUTPUT @Ac;"CAL:IMP"
1620 PRINT TABXY(30,15),"WAIT"
1630 WAIT 30
1640 OUTPUT @Ac;"CAL:SAVE"
1650 OUTPUT @Ac;"CAL:STATE OFF"
1660 CLEAR SCREEN
1670 PRINT TABXY(25,10),"CALIBRATION COMPLETE"
1680 END
Figure B-2. Calibration Program Listing (Sheet 3 of 3)
79
