Chapter 3 Calibration Procedures
Calibration Program
76...continued
400 PRINT TABXY(10,10),"*************************************************"
410 PRINT TABXY(10,11)," Using the annunciator, note the output selected."
420 PRINT TABXY(10,12)," Connect the selected output to the DMM. Observe"
430 PRINT TABXY(10,13)," Polarity."
440 PRINT TABXY(10,14),"*************************************************"
450 PRINT TABXY(10,15),"Press ’C’ to continue, or ’E’ to Exist, then"
460 PRINT TABXY(10,16),"press ’Enter’"
470 Ch$="C"
480 INPUT Ch$
490 IF Ch$="E" OR Ch$="e" THEN GOTO 1420
500 OUTPUT @Psup;"OUTP ON" ! Turn on Power supply output.
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
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