Program C-1. Model 2410 calibration program
' Model 2410 calibration program for use with the HP3458A Digital Multimeter.
' Rev. 1.0, 11/1/96
' 2410 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 2410, 3458A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 24;*CLS" ' Initialize 2410.
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"
'
CLS ' Clear CRT.
PRINT "Model 2410 Calibration Program"
PRINT "Connect DMM volts input to Model 2410 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 = 1000
ELSE
RESTORE CurrentInit
Max = 4
Range = .000001
Limit = 1
PRINT #1, "OUTPUT 24;:OUTP:STAT OFF"
PRINT #1, "OUTPUT 22;FUNC DCI,AUTO"
PRINT "Connect DMM current input to 2410 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
C-4 Calibration Programs
2410-902-01.book Page 4 Monday, November 7, 2005 2:49 PM
To Next Page
Loading...
Need help?
General
