Keithley 2015, Service Manual

Page: 151 / 158

Calibration Program C-3
General program instructions
1. With the power off, connect the Model 2015 and the calibrator to the IEEE-488 interface
of the computer. Be sure to use shielded IEEE-488 cables for bus connections.
2. Turn on the computer, the Model 2015, and the calibrator. Allow the Model 2015 and the
calibrator to warm up for at least one hour before performing calibration.
3. Make sure the Model 2015 is set for a primary address of 16. (Use the front panel GPIB
key to check or change the address.)
4. Make sure the calibrator primary address is at its factory default setting of 4.
5. Make sure that the computer bus driver software (CECHP.EXE) is properly initialized.
6. Enter the QBasic editor, and type in the program below. Check thoroughly for errors,
then save it using a convenient filename.
NOTE
The program assumes a default calibration code of KI002015. If the calibration code
has been changed, modify the :CAL:PROT:CODE parameter accordingly.
7. Run the program, and follow the prompts on the screen to perform calibration.
Program C-1
Model 2015 calibration program
' Model 2015 calibration program.
' Rev. 1.0, 4/30/98
OPEN "IEEE" FOR OUTPUT AS #1 ' Open IEEE-488 output path.
OPEN "IEEE" FOR INPUT AS #2 ' Open IEEE-488 input path.
PRINT #1, "INTERM CRLF" ' Set input terminator.
PRINT #1, "OUTTERM LF" ' Set output terminator.
PRINT #1, "REMOTE 4 16" ' Put 2015, 5700A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS" ' Initialize 2015.
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32" ' Enable OPC and SRQ
PRINT #1, "OUTPUT 4;*RST;*CLS;STBY" ' Reset 5700A calibrator.
PRINT #1, "OUTPUT 4;CUR_POST NORMAL" ' Normal current output.
C$ = ":CAL:PROT:" ' 2015 partial command header.
'
CLS ' Clear CRT.
PRINT "Model 2015 Multimeter Comprehensive Calibration Program"
PRINT #1, "OUTPUT 16;:CAL:PROT:CODE 'KI002015'" ' Send KI002015 cal code.
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT" ' Initiate calibration.
GOSUB ErrCheck
RESTORE CmdList
'
FOR I = 1 TO 28 ' Loop for all cal points.
READ Msg$, Cmd$ ' Read message, cal strings.
SELECT CASE I ' Select cal sequence.
CASE 1, 2, 26, 27, 28
PRINT Msg$
GOSUB KeyCheck