Chapter 3 Calibration Procedures
Calibration Program
continued
1380 | CLEAR SCREEN |
|
|
|
|
1390 | PRINT TABXY(10,5),"DAC ERROR CORRECTION AND | VOLTAGE/OVP CALIBRATION COMPLETE" |
| ||
1400 | WAIT 4 |
|
|
|
|
1410 | ! |
|
|
|
|
1420 | ! Perform the Current calibration and OCP | calibration. Alert the operator to |
| ||
1430 | ! hook up the connection before calibrating. |
| |||
1440 | ! |
|
|
|
|
1450 | ! Alert operator to connect lead |
|
|
|
|
|
|
|
| ||
1460 | PRINT TABXY(10,10),"*********************************************************" |
|
| ||
1470 | PRINT TABXY(10,11)," Connect a CURRENT SHUNT to the Dmm input for measuring" |
|
| ||
1480 | PRINT TABXY(10,12)," current. Connect the output to the shunt. Observe Polarity!" |
|
| ||
1490 | PRINT TABXY(10,13),"*********************************************************" |
|
| ||
1500 | PRINT TABXY(10,15),"Press 'C' to Continue, or 'X' to eXit, then 'Enter':" |
| 3 | ||
1510 | Ch$="C" |
|
|
| |
|
|
|
| ||
1520 | INPUT Ch$ |
|
|
|
|
1530 | IF Ch$="X" OR Ch$="x" THEN GOTO 2250 |
|
|
|
|
1540 | OUTPUT @Pwrsupply;"OUTP ON" | ! | Turn on Power Supply output |
| |
1550 | CLEAR SCREEN |
|
|
|
|
1560 | PRINT TABXY(10,7),"BEGIN CURRENT/OCP CALIBRATION" |
| |||
1570 | WAIT 4 |
|
|
|
|
1580 | CLEAR SCREEN |
|
|
|
|
1590 | OUTPUT @Pwrsupply;"CAL:CURR:LEVel MIN" | ! | set output to minimum cal value |
| |
1600 | WAIT 2 | ! | allow output to settle |
| |
1610 | OUTPUT @Dmm;"MEAS:VOLT:DC? " | ! | measure output with Dmm and |
| |
1620 | ENTER @Dmm;Dmm_rdg | ! | store in variable Dmm_rdg |
| |
1630 | Dmm_rdg=Dmm_rdg/Current_shunt | ! | scale reading to amps |
| |
1640 | PRINT Dmm_rdg |
|
|
|
|
1650 | OUTPUT @Pwrsupply;"CAL:CURR:DATA ";Dmm_rdg |
| ! send stored value to Power Supply |
| |
1660 | OUTPUT @Pwrsupply;"CAL:CURR:LEVel MID" | ! | set output to middle cal value |
| |
1670 | WAIT 2 | ! | allow output to settle |
| |
1680 | OUTPUT @Dmm;"MEAS:VOLT:DC? " | ! | measure output with Dmm and |
| |
1690 | ENTER @Dmm;Dmm_rdg | ! | store in variable Dmm_rdg |
| |
1700 | Dmm_rdg=Dmm_rdg/Current_shunt | ! | scale reading to amps |
| |
1710 | PRINT Dmm_rdg |
|
|
|
|
1720 | OUTPUT @Pwrsupply;"CAL:CURR:DATA ";Dmm_rdg |
| ! send stored value to Power Supply |
| |
1730 | OUTPUT @Pwrsupply;"CAL:CURR:LEVel MAX" | ! | set output to maximum cal value |
| |
1740 | WAIT 2 | ! | allow output to settle |
| |
1750 | OUTPUT @Dmm;"MEAS:VOLT:DC?" | ! | measure output with Dmm and |
| |
1760 | ENTER @Dmm;Dmm_rdg | ! | store in variable Dmm_rdg |
| |
1770 | Dmm_rdg=Dmm_rdg/Current_shunt | ! | scale reading to amps |
| |
1780 | PRINT Dmm_rdg |
|
|
|
|
1790 | OUTPUT @Pwrsupply;"CAL:CURR:DATA ";Dmm_rdg |
| ! send stored value to Power Supply |
| |
1800 | OUTPUT @Pwrsupply;"OUTP OFF" | ! | Turn off Power Supply output |
| |
1810 | OUTPUT @Pwrsupply;"SYST:ERR?" |
|
|
|
|
1820 | ENTER @Pwrsupply;Error$ |
|
|
|
|
1830 | ! |
|
|
|
|
1840 | ! Check to see if there is an error. If there is an error, |
| |||
1850 | ! display the error and exit the program. |
|
|
|
|
75
