10 ! VOLTAGE CALIBRATION PROGRAM

20 ! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-la

30 !

40DIM Resp$[255],Err_msg$[255]

50Volt_cal: !

60Err_found=0

70INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-la ... Press any key to continue.” ,Resp$

80Resp$=""

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

130OUTPUT @Ps;"VOLT MAX"

140OUTPUT @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"

 

190INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read

200OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read

210OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MAX"

220INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read

230OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read

240

OUTPUT @Ps;"CAL:VOLTAGE:PROT"

! CALIBRATE OVERVOLTAGE PROTECTION

250

 

! CIRCUITRY

260GOSUB Save_cal

270IF Err_found THEN

280INPUT "ERRORS have occurred, REPEAT VOLTAGE CALIBRATION (Y OR N)?",Resp$

290IF TRIM$(UPC$(Resp$[ l,l ]))="Y" THEN GOTO Volt_cal

300END IF

310IF Err_found THEN

320PRINT "VOLTAGE CALIBRATION NOT SAVED"

330ELSE

340PRINT "VOLTAGE CALIBRATION COMPLETE”

350END

360!

370! CURRENT CALIBRATION PROGRAM

380! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb

390!

400Current_cal: !

410Err_found=0

420INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb ... Press any key to continue.",Resp$

430Resp$=""

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

Calibration 39

Page 39
Image 39
Agilent Technologies 66001A 10 ! Voltage Calibration Program, Assign Power Supply Gpib Address, Initialize Power Supply