
Calibration Programs
B-3
Program B-1. Calibration Program for Use with Any Suitable Calibrator (QuickBASIC Version) Continued
CalEnd:
' Check for cal step completion.
PRINT "Waiting for calibration step"; I; "completion..."
Stat: PRINT #1, "STATUS"
' Request bus status.
INPUT #2, ST$
' Input status.
IF MID$(ST$, 11, 2) = "S0" THEN GOTO Stat
' Wait for operation complete.
PRINT #1, "OUTPUT 16;*ESR?"
' Clear OPC.
PRINT #1, "ENTER 16"
INPUT #2, S
PRINT #1, "SPOLL 16"
INPUT #2, S
RETURN
'
ErrCheck:
' Error check routine.
PRINT #1, "OUTPUT 16;:SYST:ERR?"
' Query error queue.
PRINT #1, "ENTER 16"
INPUT #2, E, Err$
IF E <> 0 THEN
' If error is detected, error
PRINT Err$
' is displayed, and program
PRINT "Calibration aborted."
' is halted.
BEEP
CLOSE 1: CLOSE 2
END
END IF
RETURN
'
Dly:
' Delay routine.
T = TIMER
Lp: IF (TIMER - T) < 5 THEN GOTO Lp
RETURN
'
CheckOpt:
' Check for 1801.
PRINT #1, "OUTPUT 16;*OPT?"
PRINT #1, "ENTER 16"
LINE INPUT #2, OPT$
IF INSTR(OPT$, "1801") = 0 THEN
PRINT "Model 1801 is not installed; program aborted."
END
END IF
RETURN
'
CmdList:
DATA "Set 262 divider ratio to 10^2.","Z1K"
DATA "Set 262 divider ratio to 10^3.","Z10K"
DATA "Set 262 divider ratio to 10^4.","Z100K"
DATA "Make sure divider is still set to 10^4.","FS100K 20E-6"
DATA "Set 262 divider ratio to 10^3.","FS10K 200E-6"
DATA "Set 262 divider ratio to 10^2.","FS1K 2E-3"
DATA "Calculating constants...","CALC"
Содержание 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: ......