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
To Next Page
Loading...
Need help?
General
