Keysight E3632A, Service Manual

Page: 55 / 73

Calibration Procedures 1
Keysight E3632A Service Guide 57
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.
1860 !
1870 CLEAR SCREEN
1880 IF Error$="+0,""No error""" THEN
1890 PRINT "Current calibration completed for Power Supply "
1900 ELSE
1910 PRINT "ERROR:";Error$;"Current not Calibrated"
1920 BEEP
1930 GOTO 2250
1940 END IF
1950 CLEAR SCREEN
1960 PRINT TABXY(10,5),"CURRENT CALIBRATION COMPLETE"
1970 PRINT TABXY(10,7),"BEGIN OCP CALIBRATION"
1980 WAIT 4
1990 CLEAR SCREEN
2000 OUTPUT @Pwrsupply;"OUTP ON" ! Turn on Power Supply output
2010 OUTPUT @Pwrsupply;"CAL:CURR:PROT" ! Perform OCP calibration