Agilent Technologies 66001A User Manual
Page 39
Calibration 39
10
! VOLTAGE CALIBRATION PROGRAM
20
! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-la
30
!
40
DIM Resp$[255],Err_msg$[255]
50 Volt_cal: !
60
Err_found=0
70
INPUT "CONNECT INSTRUMENTS AS S HOWN IN FIGURE A-la ... Press any key to continue.” ,Resp$
80
Resp$=""
90
ASSIGN @Ps TO 70500
! ASSIGN POWER SUPPLY GPIB ADDRESS
100
! NOTE: DEFAULT MODULE SLOT IS 0
110
!
120
OUTPUT @Ps;"*RST;OUTPUT ON"
! INITIALIZE POWER SUPPLY
130
OUTPUT @Ps;"VOLT MAX"
140
OUTPUT @Ps;"CURR MAX"
150
OUTPUT @Ps;"CAL:STATE ON, 66101"
! PASSWORD IS OPTIONAL - ONLY
160
! REQUIRED IF SET TO NON-ZERO
170
! NOTE: DEFAULT = MODEL NUMBER
180
OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MIN"
190
INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
200
OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
210
OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MAX"
220
INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
230
OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
240
OUTPUT @Ps;"CAL:VOLTAGE:PROT"
! CALIBRATE OVERVOLTAGE PROTECTION
250
! CIRCUITRY
260
GOSUB Save_cal
270
IF Err_found THEN
280
INPUT "ERRORS have occurred, REPEAT VOLTAGE CALIBRATION (Y OR N)?",Resp$
290
IF TRIM$(UPC$(Resp$[ l,l ]))="Y" THEN GOTO Volt_cal
300
END IF
310
IF Err_found THEN
320
PRINT "VOLTAGE CALIBRATION NOT SAVED"
330
ELSE
340
PRINT "VOLTAGE CALIBRATION COMPLETE”
350
END
360
!
370
! CURRENT CALIBRATION PROGRAM
380
! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb
390
!
400
Current_cal: !
410
Err_found=0
420
INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb ... Press any key to continue.",Resp$
430
Resp$=""
440
OUTPUT @Ps;"CAL:STATE ON, 66101"
! PASSWORD IS OPTIONAL - ONLY
450
! REQUIRED IF SET TO NON-ZERO
460
! NOTE: DEFAULT = MODEL NUMBER
470
!
480
! REFER TO TABLE A-1 FOR CORRECT SHUNT VALUE FOR MODEL BEING CALIBRATED
490
!
Figure A-2. Agilent BASIC Calibration Program