Keithley TEC SourceMeter 2510, Руководство по обслуживанию, Страница: 114 / 120

Models 2510 and 2510-AT Calibration Program C-5
CASE 20, 23, 26, 29, 33, 36, 42
PRINT “Short INPUT terminals with clean copper wire.”
PRINT “Wait 1 minute.”
GOSUB KeyCheck
CASE 38, 41
PRINT “Connect 1k ohm resistor and DMM to INPUT terminals.”
IF I = 38 THEN Cmd$ = Cmd$ + R$(2)
GOSUB KeyCheck
CASE 43
PRINT “Connect 100 ohm resistor to OUTPUT terminals.”
GOSUB KeyCheck
Cmd$ = Cmd$ + R$(1)
CASE 44
PRINT “Disconnect all equipment from OUTPUT terminals.”
GOSUB KeyCheck
END SELECT
PRINT #1, “OUTPUT 15;”; Cmd$; “;*OPC”
GOSUB CalEnd
GOSUB ErrCheck
NEXT I
LINE INPUT “Enter calibration date (yyyy,mm,dd): “; D$
PRINT #1, “OUTPUT 15;:CAL:PROT:DATE “; D$
LINE INPUT “Enter calibration due date (yyyy,mm,dd): “; D$
PRINT #1, “OUTPUT 15;:CAL:PROT:NDUE “; D$
PRINT #1, “OUTPUT 15;:CAL:PROT:SAVE” ‘ Save calibration constants.
GOSUB ErrCheck
PRINT #1, “OUTPUT 15;:CAL:PROT:LOCK” ‘ Lock out calibration.
PRINT “Calibration completed.”
PRINT #1, “LOCAL 15 16”
CLOSE
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.
DO: PRINT #1, “SRQ?” ‘ Request SRQ status.
INPUT #2, S ‘ Input SRQ status byte.
LOOP UNTIL S ‘ Wait for operation complete.
PRINT #1, “OUTPUT 15;*ESR?” ‘ Clear OPC.
PRINT #1, “ENTER 15”
INPUT #2, S
PRINT #1, “SPOLL 15” ‘ Clear SRQ.
INPUT #2, S
RETURN
2510-902-01 (E - Mar 2010)(Service).book Page 5 Tuesday, March 16, 2010 1:04 PM