
Calibration Programs
B-7
Program B-3. Calibration Program for Use with Fluke 5700A Calibrator (QuickBASIC Version)
' Model 1801 calibration program for use only with the
' Fluke 5700A calibrator.
OPEN "\DEV\IEEEOUT" FOR OUTPUT AS #1
' Open IEEE-488 output path.
OPEN "\DEV\IEEEIN" FOR INPUT AS #2
' Open IEEE-488 input path.
IOCTL #1, "BREAK"
' Reset interface.
PRINT #1, "RESET"
' Warm start interface
PRINT #1, "CLEAR"
' Send DCL.
PRINT #1, "REMOTE 16"
' Put 2001 in remote.
PRINT #1, "REMOTE 04"
' Put 5700A in remote.
PRINT #1, "TERM LF EOI"
' Set terminator to LF + EOI.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS"
' Initialize 2001.
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32"
' Enable OPC and SRQ.
PRINT #1, "OUTPUT 04;*RST;*CLS"
' Reset 5700A calibrator.
C$ = ":CAL:UNPR:PRE:"
' 1801 partial command header.
'
GOSUB CheckOpt
' Check 1801 installation.
CLS
' Clear CRT.
PRINT "Model 1801 Nanovolt Preamplifier Calibration Program"
PRINT "This program controls the Fluke 5700A Calibrator."
PRINT "Model 262 divider ratios must be set manually."
RESTORE CmdList
PRINT #1, "OUTPUT 04;OUT 1V,0HZ"
' Set 2.2V range.
PRINT #1, "OUTPUT 04;RANGELCK ON"
' Lock range.
PRINT #1, "OUTPUT 04;OUT 0V,0 HZ"
' Output 0V.
PRINT #1, "OUTPUT 04;OPER"
' Put calibrator in operate.
PRINT #1, "OUTPUT 04;EXTSENSE ON"
' Enable external sense.
PRINT "Set 262 polarity to POS+ position."
PRINT "Wait two minutes for thermals to settle."
GOSUB KeyCheck
FOR I = 1 TO 7
' Loop for all cal points.
IF I = 4 THEN PRINT #1, "OUTPUT 04;OUT 0.2 V,0 HZ"
' Output 200mV.
READ Msg$, Cmd$
' Read message, cal strings.
PRINT Msg$
' Display prompt message.
IF I < 7 THEN GOSUB KeyCheck
' Wait for operator input.
IF I < 7 THEN GOSUB Dly
' Settling time.
PRINT #1, "OUTPUT 16;"; C$; Cmd$; ";*OPC"
' Send cal command to 2001.
GOSUB CalEnd
' Wait until cal step ends.
NEXT I
PRINT #1, "OUTPUT 04;STBY"
' Put calibrator in standby.
GOSUB ErrCheck
' Check for errors.
INPUT "Enter calibration date (mm/dd/yy)"; D$
PRINT #1, "OUTPUT 16;:CAL:UNPR:PRE:DATE '"; D$; "'"
INPUT "Enter calibration due date (mm/dd/yy)"; D$
PRINT #1, "OUTPUT 16;:CAL:UNPR:PRE:NDUE '"; D$; "'"
PRINT #1, "OUTPUT 16;:CAL:UNPR:PRE:SAVE"
' Save calibration constants.
PRINT "Calibration completed."
END
'
KeyCheck:
' Check for key press routine.
PRINT "Press any key to continue (ESC to abort program)."
Wai: I$ = INKEY$: IF I$ = "" THEN GOTO Wai
IF I$ = CHR$(27) THEN
' Abort if ESC is pressed.
PRINT #1, "OUTPUT 04;STBY"
Содержание 1801
Страница 1: ...Model 1801Nanovolt Preamp Instruction 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...
Страница 71: ......
Страница 72: ......
Страница 73: ...A Specifications A 1...
Страница 74: ......
Страница 75: ......
Страница 76: ......