10 ! VOLTAGE CALIBRATION PROGRAM
20 ! CONNECT INSTRUMENTS AS SHOWN IN FIGURE
30 !
40DIM Resp$[255],Err_msg$[255]
50Volt_cal: !
60Err_found=0
70INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE
80Resp$=""
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 |
130OUTPUT @Ps;"VOLT MAX"
140OUTPUT @Ps;"CURR MAX"
150 | OUTPUT @Ps;"CAL:STATE ON, 66101" | ! PASSWORD IS OPTIONAL - ONLY |
160 |
| ! REQUIRED IF SET TO |
170 |
| ! NOTE: DEFAULT = MODEL NUMBER |
180 | OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MIN" |
|
190INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
200OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
210OUTPUT @Ps;"CAL:VOLTAGE:LEVEL MAX"
220INPUT "ENTER VOLTAGE MEASUREMENT FROM EXTERNAL VOLTMETER",Volt_read
230OUTPUT @Ps;"CAL:VOLTAGE ";Volt_read
240 | OUTPUT @Ps;"CAL:VOLTAGE:PROT" | ! CALIBRATE OVERVOLTAGE PROTECTION |
250 |
| ! CIRCUITRY |
260GOSUB Save_cal
270IF Err_found THEN
280INPUT "ERRORS have occurred, REPEAT VOLTAGE CALIBRATION (Y OR N)?",Resp$
290IF TRIM$(UPC$(Resp$[ l,l ]))="Y" THEN GOTO Volt_cal
300END IF
310IF Err_found THEN
320PRINT "VOLTAGE CALIBRATION NOT SAVED"
330ELSE
340PRINT "VOLTAGE CALIBRATION COMPLETE”
350END
360!
370! CURRENT CALIBRATION PROGRAM
380! CONNECT INSTRUMENTS AS SHOWN IN FIGURE
390!
400Current_cal: !
410Err_found=0
420INPUT "CONNECT INSTRUMENTS AS SHOWN IN FIGURE
430Resp$=""
440 | OUTPUT @Ps;"CAL:STATE ON, 66101" | ! PASSWORD IS OPTIONAL - ONLY |
450 |
| ! REQUIRED IF SET TO |
460 |
| ! NOTE: DEFAULT = MODEL NUMBER |
470 |
| ! |
480! REFER TO TABLE
490 !
Figure A-2. Agilent BASIC Calibration Program
Calibration 39