Agilent Technologies 6641A, Operating Manual

Page: 103 / 142

Calibration 103
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
90 CLEAR SCREEN
100 !
110
! Assign power supply GPIB address
120 !
130
ASSIGN @Ps TO 705
140 !
150
! Initialize power supply
160 !
170
OUTPUT @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 !
240
OUTPUT @Ps;"CAL:STATE ON, 6680"
250 1
260
OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MIN"
270 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
280 OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
290 OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MAX"
300 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
310 OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
320 !
330
! Calibrate overvoltage protection circuit
340 !
350 OUTPUT
@Ps;"CAL:VOLTAGE:PROTECTION"
360 !
370 GOSUB
Save_cal
380 IF 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"
460 END IF
470 !
480 Current_cal: ! Imon DAC and Current DAC calibration
490 Err_found=0
500
PRINT TABXY(5,10),"CONNECT INSTRUMENTS AS SHOWN IN FIG. A-1(2). Then Press Continue"
510 PAUSE
520 CLEAR
SCREEN
Figure A-2. Agilent BASIC Calibration Program