Requesting calibration constants
Program C-2 listed below demonstrates how to request the calibration constants from the
Model 2420. The program requests and displays the calibration constants for all ranges of both
the volts and current source and measurement functions.
Program C-2 Requesting calibration constants
' Example program to request calibration constants.
' Model 2420 primary address = 24
OPEN "IEEE" FOR OUTPUT AS #1
OPEN "IEEE" FOR INPUT AS #2
PRINT #1, "INTERM CRLF"
PRINT #1, "OUTTERM LF"
PRINT #1, "REMOTE 24"
PRINT #1, "OUTPUT 24;*RST"
CLS
PRINT #1, "OUTPUT 24;:SENS:FUNC:CONC OFF"
PRINT #1, "OUTPUT 24;:SENS:FUNC 'VOLT:DC'"
PRINT #1, "OUTPUT 24;:SOUR:FUNC VOLT"
PRINT #1, "OUTPUT 24;:CAL:PROT:CODE 'KI002420'" ' Unlock calibration.
Range = .2
PRINT "Model 2420 Voltage Calibration Constants:": PRINT
DO
PRINT #1, "OUTPUT 24;:SOUR:VOLT:RANGE "; Range
PRINT #1, "OUTPUT 24;:CAL:PROT:SENS:DATA?"
PRINT #1, "ENTER 24"
LINE INPUT #2, Data$
PRINT Data$
PRINT #1, "OUTPUT 24;:CAL:PROT:SOUR:DATA?"
PRINT #1, "ENTER 24"
LINE INPUT #2, Data$
PRINT Data$
Range = Range * 10
IF Range = 200 THEN Range = 60
LOOP WHILE Range <= 60
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK"
PRINT #1, "OUTPUT 24;:SENS:FUNC 'CURR:DC'"
PRINT #1, "OUTPUT 24;:SOUR:FUNC CURR"
PRINT #1, "OUTPUT 24;:CAL:PROT:CODE 'KI002420'"
Range = .00001
PRINT : PRINT "Model 2420 Current Calibration Constants:": PRINT
DO
PRINT #1, "OUTPUT 24;:SOUR:CURR:RANGE "; Range
PRINT #1, "OUTPUT 24;:CAL:PROT:SENS:DATA?"
PRINT #1, "ENTER 24"
LINE INPUT #2, Data$
PRINT Data$
PRINT #1, "OUTPUT 24;:CAL:PROT:SOUR:DATA?"
PRINT #1, "ENTER 24"
' Open IEEE-488 output path.
' Open IEEE-488 input path.
' Set input terminator.
' Set output terminator.
' Put 2420 in remote.
' Restore defaults.
' Initial range = 200mV.
' Loop for all volts ranges.
' Initial range = 10uA.
' Loop for all current ranges.
Calibration Programs
C-7