Model 2750 Multimeter/Switch System Service Manual Calibration Program C-3
Calibration Program
General program instructions
1. With the power off, connect the Model 2750 and the calibrator to the IEEE-488
interface of the computer. Be sure to use shielded IEEE-488 cables for bus connec-
tions.
2. Turn on the computer, Model 2750, and calibrator. Allow the Model 2750 and the
calibrator to warm up for at least one hour before performing calibration.
3. Make sure the Model 2750 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 initial-
ized.
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 KI002750. 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.
Figure C-1
Model 2750 calibration program
' Model 2750 calibration program.
' Rev. 1.0, 3/1/2001
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 2750, 5700A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS" ' Initialize 2750.
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:" ' 2750 partial command header.
'
CLS ' Clear CRT.
PRINT "Model 2750 Multimeter Comprehensive Calibration Program"
PRINT #1, "OUTPUT 16;:CAL:PROT:CODE 'KI002750'" ' Send KI002750 cal code.
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT" ' Initiate calibration.
GOSUB ErrCheck
RESTORE CmdList
'
FOR I = 1 TO 25 ' Loop for all cal points.
READ Msg$, Cmd$ ' Read message, cal strings.