Calibration Programs
B-5
Program B-1
Comprehensive calibration program for use with Fluke 5700A Calibrator (BASIC Version)
' Model 2002 comprehensive calibration program for use 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 Comprehensive Calibration Program"
PRINT "This program controls the Fluke 5700A Calibrator."
GOSUB CheckSwitch
GOSUB KeyCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT" ' Initiate calibration.
RESTORE CmdList
'
FOR I = 1 TO 16 ' Loop for all cal points.
READ Msg$, Cmd$ ' Read message, cal strings.
SELECT CASE I ' Select cal sequence.
CASE 1, 15
PRINT #1, "OUTPUT 4;STBY"
PRINT Msg$
GOSUB KeyCheck
CASE 2
PRINT "Connect calibrator to INPUT and SENSE jacks."
PRINT "Wait 3 minutes."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;EXTSENSE OFF"
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 3, 11 TO 14
PRINT #1, "OUTPUT 4;"; Msg$
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?"
Figure B-5
Synthesizer connections
2002 MULTIMETER
Model 2002
BNC-to-Dual
Banana Plug
Adapter
50
Ω
BNC Coaxial Cable
Model 3930A or 3940 Synthesizer
Function
Output
3930A MULTIFUNCTION SYNTHESIZER