Chapter 3 Calibration Procedures
Calibration Program
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 | ! | 3 |
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!
70CLEAR SCREEN
80DIM Cal_msg$[40], Sec_code$[40],Sec_code$[10]
90REAL 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$ |
|
200PRINT 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!
250OUTPUT @Psup;"CAL:SEC:STAT OFF, ";Sec_code$
260OUTPUT @Psup;"CAL:SEC:STAT?"
270ENTER @Psup;A
280IF A=1 THEN
290PRINT TABXY(5,5),"****** Unable to Unsecure the Power supply ******"
300GOTO 1430
310END 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!
370FOR I=1 TO 3
380OUTPUT @Psup;"INST:NSEL ";I !Select the output to be calibrated.
390! Alert operator to connect lead
75
