BASIC Calibration Program

The following program can be run on any controller operating under Agilent BASIC. The assumed power supply address is 5 and calibration password is 4356. If required, change these parameters in the appropriate statements.

10

! Agilent BASIC Calibration Program

20

!

 

30

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

40

!

 

50

Volt_cal: !

Voltage DAC calibration

60

Err_found=0

70

PRINT TABXY(5,10),"CONNECT INSTRUMENTS AS SHOWN IN FIG. A -1(1). Then Press Continue"

80

PAUSE

 

90CLEAR SCREEN

100!

110! Assign power supply GPIB address

120!

130ASSIGN @Ps TO 705

140!

150! Initialize power supply

160!

170OUTPUT @Ps;"*RST;OUTPUT ON"

180!

190! Password is optional - only required if set to non-zero value

200! Default password is the four-digit model number

210!

220! LINE 240 PASSWORD MUST BE EDITED FOR MODEL OTHER THAN 6680

230!

240OUTPUT @Ps;"CAL:STATE ON, 4356"

2501

260OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MIN"

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

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

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

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

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

320!

330! Calibrate overvoltage protection circuit

340!

350OUTPUT @Ps;"CAL:VOLTAGE:PROTECTION"

360!

370GOSUB Save_cal

380IF Err_found THEN

390

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

400

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

410

END IF

420

IF Err_found THEN

430

PRINT "VOLTAGE CALIBRATION NOT SAVED"

440

ELSE

450

PRINT "VOLTAGE CALIBRATION COMPLETE"

460END IF

470!

Calibration 103

Page 103
Image 103
Agilent Technologies E4356A manual Basic Calibration Program, Pause Clear Screen