Chapter 3 Calibration Procedures
Calibration Program
75
3
Calibration Program
This section contains an Agilent BASIC program for calibration over the GPIB
interface. This program makes software adjustments to the E3631A power
supply using a current shunt and a digital mutimeter which is connected to the
controller. In this program a 0.01 ohm current shunt is used. Be sure to change
the value of the variable "Current_shunt" to the value of the current shunt used
and the GPIB address for the power supply and the digital voltmeter.
10 !
20 ! This program makes software adjustments to the E3631A on the GPIB bus
30 ! using an Agilent 34401A and a current shunt. In the program a 0.01 ohm
40 ! current shunt is used to measure current. Be sure to change the value of
50 ! the variable ’Current_shunt’ to the value of the current shunt used.
60 !
70 CLEAR SCREEN
80 DIM Cal_msg$[40], Sec_code$[40],Sec_code$[10]
90 REAL Dmm_rdg, Current_shunt
100 Current_shunt=.01 ! Current Shunt value in Ohms
110 Sec_Code$="HP003631" ! Assign the security code.
120 ASSIGN @Dmm TO 722 ! Assign address 22 to the Dmm.
130 ASSIGN @Psup TO 705 ! Assign address 5 to the power supply.
140 CLEAR 7 ! Clear GPIB, Dmm and Power Supply.
150 OUTPUT @Psup;"*CLS" ! Clear power supply errors.
160 OUTPUT @Dmm;"*RST" ! Clear Dmm.
170 OUTPUT @Psup;"*RST" ! Reset power supply.
180 OUTPUT @ Psup;"CAL:STR?" ! Read the calibration message.
190 ENTER @Psup;Cal_msg$
200 PRINT TABXY(5,2),"Calibration message of Power Supply is: ";Cal_msg$
210 !
220 ! Set the Calibration security to off, and check to be sure
230 ! it is off. If not successful, print message to screen and end.
240 !
250 OUTPUT @Psup;"CAL:SEC:STAT OFF, ";Sec_code$
260 OUTPUT @Psup;"CAL:SEC:STAT?"
270 ENTER @Psup;A
280 IF A=1 THEN
290 PRINT TABXY(5,5),"****** Unable to Unsecure the Power supply ******"
300 GOTO 1430
310 END IF
320 !
330 ! Perform the voltage calibration by stepping through one
340 ! power supply at a time. Alert the operator to hook up the
350 ! connection before calibrating.
360 !
370 FOR I=1 TO 3
380 OUTPUT @Psup;"INST:NSEL ";I !Select the output to be calibrated.
390 ! Alert operator to connect lead
To Next Page
Loading...
Need help?
General
