Chapter 3 Calibration Procedures
Calibration Program
continued
1860 | ! |
|
|
1870 | CLEAR SCREEN |
| |
1880 | IF Error$="+0,""No error""" THEN |
| |
1890 | PRINT "Current calibration completed for Power Supply " | ||
1900 | ELSE |
|
|
1910 | PRINT "ERROR:";Error$;"Current not Calibrated" | ||
1920 | BEEP |
|
|
1930 | GOTO | 2250 |
|
1940 | END IF |
|
|
1950 | CLEAR SCREEN |
| |
1960 | PRINT TABXY(10,5),"CURRENT CALIBRATION COMPLETE" | ||
1970 | PRINT TABXY(10,7),"BEGIN OCP CALIBRATION" | ||
1980 | WAIT 4 |
|
|
1990 | CLEAR SCREEN |
| |
2000 | OUTPUT | @Pwrsupply;"OUTP ON" | ! Turn on Power Supply output |
2010 | OUTPUT | @Pwrsupply;"CAL:CURR:PROT" | ! Perform OCP calibration |
2020 | WAIT 9 |
| ! Allow OCP calibration to finish |
2030 | OUTPUT | @Pwrsupply;"OUTP OFF" | ! Turn off Power Supply output |
2040 | OUTPUT | @Pwrsupply;"SYST:ERR?" |
|
2050 | ENTER @Pwrsupply;Error$ |
| |
2060 | ! |
|
|
2070 | ! Check to see if there is an error. | If there is an error, | |
2080 | ! display the error and exit the program. | ||
2090 | ! |
|
|
2100 | CLEAR SCREEN |
| |
2110 | IF Error$="+0,""No error""" THEN |
| |
2120 | PRINT "OCP calibration completed for Power Supply " | ||
2130 | ELSE |
|
|
2140 | PRINT "ERROR:";Error$;"OCP not Calibrated" | ||
2150 | BEEP |
|
|
2160 | GOTO | 2250 |
|
2170 | END IF |
|
|
2180 | CLEAR SCREEN |
| |
2190 | PRINT TABXY(10,5),"CURRENT/OCP CALIBRATION COMPLETE" | ||
2200 | ! |
|
|
2210 | ! Create a time stamp and output to power supply | ||
2220 | ! |
|
|
2230 | Cal_msg$="Last Calibrated "&DATE$(TIMEDATE)&" "&TIME$(TIMEDATE) | ||
2240 | OUTPUT | @Pwrsupply;"CAL:STR """;Cal_msg$;"""" | |
2250 | OUTPUT | @Pwrsupply;"CAL:SEC:STAT ON, ";Sec_code$ | |
2260 | OUTPUT | @Pwrsupply;"VOLT:PROT:STAT ON" |
|
2270 | OUTPUT | @Pwrsupply;"CURR:PROT:STAT ON" |
|
2280 | DISP "Calibration terminated. " |
| |
2290 | END |
|
|
End of Program
76
