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$
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.01"
DATA ":SENS:CURR:RANG 0.01",":SOUR:VOLT:PROT:LEV MAX",":SYST:RSEN OFF"
DATA ":CAL:PROT:CODE 'KI002410'",":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 "
C-6 Calibration Programs
2410-902-01.book Page 6 Monday, November 7, 2005 2:49 PM
To Next Page
Loading...
Need help?
General
