CASE 4, 5, 11, 12, 14 TO 22, 24 TO 25
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 6 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, 13, 23
J$ = "AMPS"
IF I = 13 THEN J$ = "INPUT HI"
PRINT #1, "OUTPUT 4;STBY"
PRINT "Connect calibrator to "; J$; " and INPUT LO jacks."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
END SELECT
IF I > 2 THEN GOSUB Settle
PRINT #1, "OUTPUT 16;"; C$; Cmd$; ";*OPC"
' Send cal command to 2000.
GOSUB CalEnd
' Wait until cal step ends.
GOSUB ErrCheck
' Check for cal error.
NEXT I
'
PRINT #1, "OUTPUT 4;STBY"
LINE INPUT "Enter calibration date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 16;:CAL:PROT:DATE "; D$
GOSUB ErrCheck
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 16;:CAL:PROT:NDUE "; D$
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:SAVE"
' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:LOCK"
' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "OUTPUT 16;:SYST:PRES"
END
'
KeyCheck:
' Check for key press routine.
WHILE INKEY$ <> "": WEND
' Flush keyboard buffer.
PRINT : PRINT "Press any key to continue (ESC to abort program)."
DO: I$ = INKEY$: LOOP WHILE I$ = ""
IF I$ = CHR$(27) THEN GOTO EndProg
' Abort if ESC is pressed.
RETURN
'
CalEnd:
' Check for cal step completion.
PRINT "Performing calibration step #"; I
DO: PRINT #1, "SRQ?"
' Request SRQ status.
INPUT #2, S
' Input SRQ status byte.
LOOP UNTIL S
' Wait for operation complete.
PRINT #1, "OUTPUT 16;*ESR?"
' Clear OPC.
PRINT #1, "ENTER 16"
INPUT #2, S
PRINT #1, "SPOLL 16"
' Clear SRQ.
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 PRINT Err$: GOTO ErrCheck
' Display error.
RETURN
'
Settle:
' Calibrator settling routine.
C-4
Calibration Program
Содержание 2000
Страница 1: ...Model 2000Multimeter 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 ...
Страница 10: ...1 Performance Verification ...
Страница 23: ...2 Calibration ...
Страница 45: ...3 Calibration CommandReference ...
Страница 65: ...A Specifications ...
Страница 76: ...A 12 Specifications ...
Страница 77: ...B Error Messages ...
Страница 80: ...C Calibration Program ...