Filter
Top Products
Chapter 3 Calibration Procedures
Calibration Program
75
3
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':"
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.