Chapter 3 Calibration Procedures
Calibration Program
76
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
To Next Page
Loading...
Need help?
General
