Keithley 2303 - Page 94

Calibration Programs C-5
GOSUB ErrCheck
PRINT "Calibration completed."
PRINT #1, "LOCAL 16 17"
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 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?"
PRINT #1, "ENTER 16"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO EndProg
RETURN
'
ReadDMM: ' Get reading from DMM.
SLEEP 5
PRINT #1, "OUTPUT 17;:FETCH?"
PRINT #1, "ENTER 17"
INPUT #2, Reading$
IF I = 5 OR I = 6 THEN Reading$ = STR$(VAL(Reading$) / FourOhm)
IF I = 8 THEN Reading$ = STR$(VAL(Reading$) / ThreeK)
RETURN
'
EndProg: ' Close files, end program.
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 16;:CAL:PROT:LOCK"
PRINT #1, "LOCAL 16 17"
CLOSE
END
Messages:
DATA "Connect DMM volts input to SOURCE and DVM IN terminals."
DATA "Connect DMM volts input and 4 ohm resistor to SOURCE and SENSE."
DATA "Connect DMM volts input and 3 k ohm resistor to SOURCE and SENSE."
深圳德标仪器 135-1095-0799