Agilent Technologies 6811B User Manual page 79

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 fig.B-1"
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)
Verification and Calibration - B
79