Chapter 3 Calibration Procedures
Calibration Program
...continued
400PRINT TABXY(10,10),"*************************************************"
410PRINT TABXY(10,11)," Using the annunciator, note the output selected."
420PRINT TABXY(10,12)," Connect the selected output to the DMM. Observe"
430PRINT TABXY(10,13)," Polarity."
440PRINT TABXY(10,14),"*************************************************"
450PRINT TABXY(10,15),"Press ’C’ to continue, or ’E’ to Exist, then"
460PRINT TABXY(10,16),"press ’Enter’"
470Ch$="C"
480INPUT Ch$
490IF 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 |
670OUTPUT @Psup;"OUTP OFF"
680OUTPUT @Psup;"SYST:ERR?"
690ENTER @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!
740IF Error$="+0,""No error""" THEN
750PRINT "Voltage calibration complated for Power Supply ";I
760ELSE
770PRINT "ERROR:";Error$;" Power Supply ";I;" Voltage not Calibrated"
780 | GOTO 1420 |
790 | END IF |
800 | NEXT I |
810PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE"
820PRINT 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!
880FOR I=1 TO 3
890OUTPUT @Psup;"INST:NSEL ";I !Select the output to be calibrated.
900! Alert operator to connect lead
76