Technical data

Calibration Procedures 1
Calibration Program
E3632A Service Guide 45
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
2020 WAIT 9 ! Allow OCP calibration to finish
2030 OUTPUT @Pwrsupply;"OUTP OFF" ! Turn off Power Supply output
2040 OUTPUT @Pwrsupply;"SYST:ERR?"
2050 ENTER @Pwrsupply;Error$
2060 !
2070 ! Check to see if there is an error. If there is an error,
2080 ! display the error and exit the program.
2090 !
2100 CLEAR SCREEN
2110 IF Error$="+0,""No error""" THEN
2120 PRINT "OCP calibration completed for Power Supply "
2130 ELSE
2140 PRINT "ERROR:";Error$;"OCP not Calibrated"
2150 BEEP
2160 GOTO 2250
2170 END IF
2180 CLEAR SCREEN