Calibration Programs
B-11
Program B-3
Low-level Calibration Program for Use with Fluke 5700A Calibrator (BASIC Version)
' Model 2002 low-level calibration program for use only with the
' Fluke 5700A calibrator.
' Rev. 1.2, 4/7/94
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 2002,5700A in remote.
PRINT #1, "CLEAR"
' Send DCL.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS"
' Initialize 2002.
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32"
' Enable OPC and SRQ
PRINT #1, "OUTPUT 4;*RST;*CLS"
' Reset 5700A calibrator.
PRINT #1, "OUTPUT 4;CUR_POST NORMAL"
' Normal current output.
C$ = ":CAL:PROT:"
' 2002 partial command header.
'
CLS ' Clear CRT.
PRINT "Model 2002 Multimeter Low-level Calibration Program."
PRINT "This program controls the Fluke 5700A Calibrator."
GOSUB CheckSwitch
GOSUB KeyCheck
RESTORE CmdList
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT"
' Initiate calibration.
'
FOR I = 1 TO 29
' Loop for all cal points.
READ Msg$, Cmd$
' Read message, cal strings.
IF I = 17 THEN C$ = ":CAL:PROT:"
SELECT CASE I
' Select cal sequence.
CASE 1, 15, 29
PRINT #1, "OUTPUT 4;STBY"
PRINT Msg$
GOSUB KeyCheck
CASE 2, 17
PRINT "Connect calibrator to INPUT and SENSE jacks."
IF I = 2 THEN PRINT "Wait three minutes."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;EXTSENSE OFF"
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 3, 11 TO 14, 18 TO 26
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 4 TO 9
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;EXTSENSE ON"
PRINT #1, "OUTPUT 4;OPER"
PRINT #1, "OUTPUT 4;OUT?"
PRINT #1, "ENTER 4"
INPUT #2, R, R$, S
Cmd$ = Cmd$ + " " + STR$(R)
CASE 10, 28
PRINT #1, "OUTPUT 4;STBY"
PRINT "Connect calibrator to AMPS and INPUT LO jacks."
IF I = 28 THEN PRINT "Select FRONT INPUT jacks."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 16
C$ = ":CAL:"
PRINT Msg$
CASE 27
PRINT Msg$
PRINT "Select REAR INPUTS with FRONT/REAR switch."
PRINT "Wait 3 minutes for thermal equilibrium."
GOSUB KeyCheck
END SELECT
Summary of Contents for 2002
Page 1: ...Model 2002Multimeter Calibration Manual A G R E A T E R M E A S U R E O F C O N F I D E N C E...
Page 9: ...iv...
Page 11: ...vi...
Page 55: ...Calibration 2 26...
Page 70: ...Specifications A 1 A Specifications...
Page 83: ...A 14 Specifications...
Page 101: ...Calibration Programs B 18...
Page 113: ......