1 Calibration Procedures
58 Keysight E3632A Service Guide
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
To Next Page
Loading...
