
Calibration Programs
B-2
Program B-1. Calibration Program for Use with Any Suitable Calibrator (QuickBASIC Version)
' Model 1801 calibration program for use with any suitable
' DC voltage 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, "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
C$ = ":CAL:UNPR:PRE:"
' 1801 partial command header.
'
GOSUB CheckOpt
' Check 1801 installation.
CLS
' Clear CRT.
PRINT "Model 1801 Nanovolt Preamplifier Calibration Program"
PRINT "Calibrator and Model 262 divider ratios must be set manually."
RESTORE CmdList
PRINT "Set DC calibrator to external sense, 0V DC output."
PRINT "Place calibrator in operate mode."
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.
READ Msg$, Cmd$
' Read message, cal strings.
PRINT Msg$
' Display prompt message.
IF I = 4 THEN PRINT "Set calibrator output to 200.000mV DC"
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
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.
CLOSE 1: CLOSE 2
PRINT "Program halted."
END
END IF
RETURN
'
Содержание 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: ......