Keysight E3631A - Page 94

3 Calibration Procedures
92 Keysight E3631A Service Guide
510 CLEAR SCREEN
520 OUTPUT @Psup;"CAL:VOLT:LEVel MIN" ! Set output to minimum calibration
530 ! value
540 WAIT 1 ! Allow output to settle.
550 OUTPUT @Dmm;"MEAS:VOLT:DC? " ! Measure output with Dmm.
560 ENTER @Dmm;Dmm_rdg ! Sotre in variable Dmm_rdg.
570 PRINT Dmm_rdg
580 OUTPUT @Psup;"CAL:VOLT:DATA ";Dmm_rdg ! Send stored value to power
590 ! supply
600 OUTPUT @Psup;"CAL:VOLT:LEVel MAX" ! Set output to maximum cal value.
610 WAIT 1 ! Allow output to settle.
620 OUTPUT @Dmm;"MEAS:VOLT:DC?" ! Measure output with Dmm.
630 ENTER @Dmm;Dmm_rdg ! Store in variable Dmm_rdg.
640 PRINT Dmm_rdg
650 OUTPUT @Psup;"CAL:VOLT:DATA ";Dmm_rdg ! Send stored value to power
660 ! supply
670 OUTPUT @Psup;"OUTP OFF"
680 OUTPUT @Psup;"SYST:ERR?"
690 ENTER @Psup;Error$
700 !
710 ! Check to see if there is an error. If there is an error,
720 ! display the error and exit the program.
730 !
740 IF Error$="+0,""No error""" THEN
750 PRINT "Voltage calibration complated for Power Supply ";I
760 ELSE
770 PRINT "ERROR:";Error$;" Power Supply ";I;" Voltage not Calibrated"
780 GOTO 1420