Keysight E3631A, Service Manual

Page: 96 / 131

3 Calibration Procedures
94 Keysight E3631A Service Guide
1070 OUTPUT @Dmm;"MEAS:VOLT:DC? " ! Measure output with Dmm.
1080 ENTER @Dmm;Dmm_rdg ! Store in variable Dmm_rdg.
1090 Dmm_rdg=Dmm_rdg/Current_shunt ! Scale reading to amps.
1100 IF I=3 THEN DMM_rdg=-DMM_rdg ! For -25V, Current is positive
1110 PRINT Dmm_rdg
1120 OUTPUT @Psup;"CAL:CURR:DATA ";Dmm_rdg ! Send stored value to power
1130 ! supply
1140 OUTPUT @Psup;"CAL:CURR:LEVel MAX" ! Set output to maximum cal value.
1150 WAIT 1 ! Allow output to settle.
1160 OUTPUT @Dmm;"MEAS:VOLT:DC? " ! Measure output with Dmm.
1170 ENTER @Dmm;Dmm_rdg ! Store in variable Dmm_rdg.
1180 Dmm_rdg=Dmm_rdg/Current_shunt ! Scale reading to amps.
1190 IF I=3 THEN DMM_rdg=-DMM_rdg ! For -25V, Current is positive
1200 PRINT Dmm_rdg
1210 OUTPUT @Psup;"CAL:CURR:DATA ";Dmm_rdg ! Send stored value to power
1220 ! supply.
1230 OUTPUT @Psup;"OUTP OFF" ! Turn off Power supply output.
1240 OUTPUT @Psup;"SYST:ERR?"
1250 ENTER @Psup;Error$
1260 !
1270 ! Check to see if there is an error. If there is an error,
1280 ! display the error and exit the program.
1290 !
1300 IF Error$="+0, No error""" THEN
1310 PRINT "Current calibration completed for Power Supply ";I
1320 ELSE
1330 PRINT "ERROR:";Error$;" Power Supply ";I;" Current not Calibrated"
1340 GOTO 1420