Filter
Top Products
Calibration 39
10 ! VOLTAGE CALIBRATION PROGRAM
20 ! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-la
30 !
40 DIM Resp$[255],Err_msg$[255]
50 Volt_cal: !
60 Err_found=0
70 INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-la ... Press any key to continue.” ,Resp$
80 Resp$=""
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
130 OUTPUT @Ps;"VOLT MAX"
140 OUTPUT @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"
190 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
200 OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
210 OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MAX"
220 INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
230 OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
240 OUTPUT @Ps;"CAL:VOLTAGE:PROT" ! CALIBRATE OVERVOLTAGE PROTECTION
250 ! CIRCUITRY
260 GOSUB Save_cal
270 IF Err_found THEN
280 INPUT "ERRORS have occurred, REPEAT VOLTAGE CALIBRATION (Y OR N)?",Resp$
290 IF TRIM$(UPC$(Resp$[ l,l ]))="Y" THEN GOTO Volt_cal
300 END IF
310 IF Err_found THEN
320 PRINT "VOLTAGE CALIBRATION NOT SAVED"
330 ELSE
340 PRINT "VOLTAGE CALIBRATION COMPLETE”
350 END
360 !
370 ! CURRENT CALIBRATION PROGRAM
380 ! CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb
390 !
400 Current_cal: !
410 Err_found=0
420 INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE A-lb ... Press any key to continue.",Resp$
430 Resp$=""
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