Calibration Procedures 3
Keysight E3631A Service Guide 93
790 END IF
800 NEXT I
810 PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE"
820 PRINT TABXY(10,7),"BEGIN CURRENT CALIBRATION"
830 !
840 ! Perform the CURRENT calibration by stepping through one
850 ! power supply at a time. Alert the operator to hook up the
860 ! connection before calibrating.
870 !
880 FOR I=1 TO 3
890 OUTPUT @Psup;"INST:NSEL ";I !Select the output to be calibrated.
900 ! Alert operator to connect lead
910 PRINT TABXY(10,9),"***************************************************"
920 PRINT TABXY(10,10)," Connect a CURRENT SHUNT to the Dmm for
measuring"
930 PRINT TABXY(59,10)," current."
940 PRINT TABXY(10,11)," Using the annunciator, note the output selected."
950 PRINT TABXY(10,12)," Connect the selected output to the shunt. Observe"
960 PRINT TABXY(60,12)," Polarity"
970 PRINT TABXY(10,13),"**************************************************"
980 PRINT TABXY(10,15),"Press ’C’to continue, or ’E’ to Exit, then"
990 PRINT TABXY(10,16),"press ’Enter’"
1000 Ch$="C"
1010 INPUT Ch$
1020 IF Ch$="E" OR Ch$="e" THEN GOTO 1420
1030 OUTPUT @Psup;"OUTP ON" ! Turn on Power supply output.
1040 CLEAR SCREEN
1050 OUTPUT @Psup;"CAL:CURR:LEVel MIN" ! Set output to minimum cal value.
1060 WAIT 1 ! Allow output to settle.