Technical data

Calibration Procedures 1
Calibration Program
E3632A Service Guide 43
800 WAIT 4
810 OUTPUT @Pwrsupply;"OUTPUT ON"
820 CLEAR SCREEN
830 OUTPUT @Pwrsupply;"CAL:VOLT:LEV MIN" ! set output to minimum cal value
840 WAIT 2 ! allow output to settle
850 OUTPUT @Dmm;"MEAS:VOLT:DC?" ! measure output with Dmm and
860 ENTER @Dmm;Dmm_rdg ! store in variable Dmm_rdg
870 PRINT Dmm_rdg
880 OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg ! send stored value to Power Supply
890 OUTPUT @Pwrsupply;"CAL:VOLT:LEV MID" ! set output to middle cal value
900 WAIT 2 ! allow output to settle
910 OUTPUT @Dmm;"MEAS:VOLT:DC?" ! measure output with Dmm and
920 ENTER @Dmm;Dmm_rdg ! store in variable Dmm_rdg
930 PRINT Dmm_rdg
940 OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg ! send stored value to Power Supply
950 OUTPUT @Pwrsupply;"CAL:VOLT:LEV MAX" ! set output to maximum cal value
960 WAIT 2 ! allow output to settle
970 OUTPUT @Dmm;"MEAS:VOLT:DC?" ! measure output with Dmm and
980 ENTER @Dmm;Dmm_rdg ! store in variable Dmm_rdg
990 PRINT Dmm_rdg
1000 OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg ! send stored value to Power Supply
1010 OUTPUT @Pwrsupply;"OUTP OFF"
1020 OUTPUT @Pwrsupply;"SYST:ERR?"
1030 ENTER @Pwrsupply;Error$
1040 !
1050 ! Check to see if there is an error. If there is an error,
1060 ! display the error and exit the program.
1070 !
1080 CLEAR SCREEN
1090 IF Error$="+0,""No error""" THEN
1100 PRINT "Voltage calibration completed for Power Supply "
1110 ELSE
1120 PRINT "ERROR:";Error$;"Voltage not Calibrated"
1130 BEEP
1140 GOTO 2250
1150 END IF
1160 PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE"
1170 PRINT TABXY(10,7),"BEGIN OVP CALIBRATION"
1180 WAIT 4
1190 CLEAR SCREEN
1200 OUTPUT @Pwrsupply;"OUTP ON" ! Turn on Power Supply output
1210 OUTPUT @Pwrsupply;"CAL:VOLT:PROT" ! Perform OVP circuit calibration
1220 WAIT 9 ! Allow OVP calibration to finish
1230 OUTPUT @Pwrsupply;"OUTP OFF" ! Turn off Power Supply output
1240 OUTPUT @Pwrsupply;"SYST:ERR?"
1250 ENTER @Pwrsupply;Error$