
Chapter 3 Calibration Procedures
Calibration Program
continued
880 | OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg | ! send stored value to Power Supply | ||
890 | OUTPUT | @Pwrsupply;"CAL:VOLT:LEV MID" |
| ! set output to middle cal value |
900 | WAIT 2 |
|
| ! allow output to settle |
910 | OUTPUT | @Dmm;"MEAS:VOLT:DC?" |
| ! measure output with Dmm and |
920 | ENTER @Dmm;Dmm_rdg |
| ! store in variable Dmm_rdg | |
930 | PRINT Dmm_rdg |
|
| |
940 | OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg | ! send stored value to Power Supply | ||
950 | OUTPUT | @Pwrsupply;"CAL:VOLT:LEV MAX" |
| ! set output to maximum cal value |
960 | WAIT 2 |
|
| ! allow output to settle |
970 | OUTPUT | @Dmm;"MEAS:VOLT:DC?" |
| ! measure output with Dmm and |
980 | ENTER @Dmm;Dmm_rdg |
| ! store in variable Dmm_rdg | |
990 | PRINT Dmm_rdg |
|
| |
1000 | OUTPUT @Pwrsupply;"CAL:VOLT:DATA ";Dmm_rdg | ! send stored value to Power Supply | ||
1010 | OUTPUT | @Pwrsupply;"OUTP OFF" |
|
|
1020 | OUTPUT | @Pwrsupply;"SYST:ERR?" |
|
|
1030 | ENTER @Pwrsupply;Error$ |
|
| |
1040 | ! |
|
|
|
1050 | ! Check to see if there is an error. | If there is an error, | ||
1060 | ! display the error and exit the program. |
| ||
1070 | ! |
|
|
|
1080 | CLEAR SCREEN |
|
| |
1090 | IF Error$="+0,""No error""" THEN |
|
| |
1100 | PRINT "Voltage calibration completed for Power Supply " | |||
1110 | ELSE |
|
|
|
1120 | PRINT "ERROR:";Error$;"Voltage not Calibrated" | |||
1130 | BEEP |
|
|
|
1140 | GOTO | 2250 |
|
|
1150 | END IF |
|
|
|
1160 | PRINT TABXY(10,5),"VOLTAGE CALIBRATION COMPLETE" | |||
1170 | PRINT TABXY(10,7),"BEGIN OVP CALIBRATION" |
| ||
1180 | WAIT 4 |
|
|
|
1190 | CLEAR SCREEN |
|
| |
1200 | OUTPUT | @Pwrsupply;"OUTP ON" |
| ! Turn on Power Supply output |
1210 | OUTPUT | @Pwrsupply;"CAL:VOLT:PROT" |
| ! Perform OVP circuit calibration |
1220 | WAIT 9 |
|
| ! Allow OVP calibration to finish |
1230 | OUTPUT | @Pwrsupply;"OUTP OFF" |
| ! Turn off Power Supply output |
1240 | OUTPUT | @Pwrsupply;"SYST:ERR?" |
|
|
1250 | ENTER @Pwrsupply;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 | CLEAR SCREEN |
|
| |
1310 | IF Error$="+0,""No error""" THEN |
|
| |
1320 | PRINT "OVP calibration completed for Power Supply " | |||
1330 | ELSE |
|
|
|
1340 | PRINT "ERROR:";Error$;"OVP not Calibrated" | |||
1350 | BEEP |
|
|
|
1360 | GOTO | 2250 |
|
|
1370 | END IF |
|
|
|
74