Keithley 2430

C-6 Calibration Programs
INPUT #2, S
RETURN
'
ErrCheck: ' Error check routine.
PRINT #1, "OUTPUT 24;:SYST:ERR?" ' Query error queue.
PRINT #1, "ENTER 24"
INPUT #2, E, Err$
IF E <> 0 THEN PRINT Err$: GOTO EndProg' Display error.
RETURN
'
ReadDMM: ' Get reading from DMM.
SLEEP 5
PRINT #1, "ENTER 22"
INPUT #2, Reading$
IF J = 2 AND Range = 3 THEN Reading$ = STR$(VAL(Reading$) / OneOhm)
RETURN
'
EndProg: ' Close files, end program.
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK"
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 22 24"
CLOSE
END
'
VoltsInit: ' Calibration command lists.
DATA "*RST",":SOUR:FUNC VOLT",":SENS:CURR:PROT 0.1"
DATA ":SENS:CURR:RANG 0.1",":SOUR:VOLT:PROT:LEV MAX",":SYST:RSEN OFF"
DATA ":CAL:PROT:CODE 'KI002430'",":OUTP:STAT ON"
VoltsCal:
DATA ":SOUR:VOLT:RANG ",":SOUR:VOLT "
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT 0.0"
DATA ":CAL:PROT:SOUR ",":CAL:PROT:SENS ",":SOUR:VOLT ",":CAL:PROT:SOUR "
DATA ":CAL:PROT:SENS ",":SOUR:VOLT 0.0",":CAL:PROT:SOUR "
CurrentInit:
DATA ":SOUR:FUNC CURR",":SENS:VOLT:PROT 20",":SENS:VOLT:RANG 20"
DATA ":OUTP:STAT ON"
CurrentCal:
DATA ":SOUR:CURR:RANG ",":SOUR:CURR ",":CAL:PROT:SOUR "
DATA ":CAL:PROT:SENS ",":SOUR:CURR 0.0",":CAL:PROT:SOUR ",":CAL:PROT:SENS "
DATA ":SOUR:CURR ",":CAL:PROT:SOUR ",":CAL:PROT:SENS "
DATA ":SOUR:CURR 0.0",":CAL:PROT:SOUR "