
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 | |
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
200! Default password is the
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