C-4 Calibration Programs
Program C-1 Model 2430 calibration program
' Model 2430 calibration program for use with the HP3458A Digital Multimeter.
' Rev. 1.0, 12/1/98
' 2430 primary address = 24. HP3458A primary address = 22.
OPEN "IEEE" FOR OUTPUT AS #1 ' Open IEEE-488 output path.
OPEN "IEEE" FOR INPUT AS #2 ' Open IEEE-488 input path.
PRINT #1, "INTERM CRLF" ' Set input terminator.
PRINT #1, "OUTTERM LF" ' Set output terminator.
PRINT #1, "REMOTE 22 24" ' Put 2430, 3458A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 24;*CLS" ' Initialize 2430.
PRINT #1, "OUTPUT 24;*ESE 1;*SRE 32" ' Enable OPC and SRQ.
PRINT #1, "OUTPUT 22;PRESET NORM" ' Initialize 3458A.
PRINT #1, "OUTPUT 22;NPLC 10;NDIG 7;TRIG LINE;FUNC DCV,AUTO"
'
OneOhm = 1 ' Use characterized 1 ohm value.
CLS
PRINT "Model 2430 Calibration Program"
PRINT "Connect DMM volts input to Model 2430 INPUT/OUTPUT jacks."
GOSUB KeyCheck
FOR J = 1 TO 2 ' Select volts/current cal.
IF J = 1 THEN
RESTORE VoltsInit
Max = 8
Range = .2
Limit = 100
ELSE
RESTORE CurrentInit
Max = 4
Range = .00001
Limit = 3
PRINT #1, "OUTPUT 24;:OUTP:STAT OFF"
PRINT #1, "OUTPUT 22;FUNC DCI,AUTO"
PRINT "Connect DMM current input to 2430 INPUT/OUTPUT jacks."
GOSUB KeyCheck
END IF
Source = Range
FOR I = 1 TO Max: READ Cmd$: PRINT #1, "OUTPUT 24;"; Cmd$: NEXT I
WHILE Range <= Limit ' Cal all ranges.
IF J = 1 THEN RESTORE VoltsCal ELSE RESTORE CurrentCal
FOR I = 1 TO 12
READ Cmd$
SELECT CASE I
CASE 1
PRINT #1, "OUTPUT 24;"; Cmd$; Range
CASE 2
PRINT #1, "OUTPUT 24;"; Cmd$; -Source
GOSUB ReadDMM
CASE 3, 4, 6, 7, 9, 10, 12
PRINT #1, "OUTPUT 24;"; Cmd$; Reading$; ";*OPC"
GOSUB ErrCheck