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 E3632A 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 was written on a PC with Agilent Basic for Windows.
30! It will make software adjustments to the E3632A Power Supply
40! on the GPIB bus using a Agilent 34401A Digital Multimeter and a
50! current shunt. In the program a 0.01 ohm current shunt is
60! used to measure current. Be sure to change the value of
70! the variable 'Current_shunt' to the value of the current
80! shunt used.
90!
100CLEAR SCREEN
110DIM Cal_msg$[40],Error$[40],Sec_code$[10]
120REAL Dmm_rdg,Current_shunt
130 | Current_shunt=.01 | ! Current | Shunt value in Ohms | |
140 | Sec_code$="HP003632" | ! Assign | the security | code |
150 | ASSIGN @Dmm TO 722 | ! Assign | address 22 to the Dmm | |
160 | ASSIGN @Pwrsupply TO 705 | ! Assign | address 5 to | the Power Supply |
170 | CLEAR 7 | ! Clear GPIB, Dmm and | Power Supply | |
180 | OUTPUT @Pwrsupply;"*CLS" | ! Clear Power Supply errors | ||
190 | OUTPUT @Dmm;"*RST" | ! Reset Dmm |
| |
200 | OUTPUT @Pwrsupply;"*RST" | ! Reset Power Supply |
| |
210OUTPUT @Pwrsupply;"CAL:STR?" ! Read the calibration message
220ENTER @Pwrsupply;Cal_msg$
230PRINT TABXY(5,2),"Calibration message of Power Supply is: ";Cal_msg$
240!
250! Set the Calibration security to off, and check to be sure
260! it is off. If not successful, print message to screen and end.
270!
280OUTPUT @Pwrsupply;"VOLT:PROT:STAT OFF"
290OUTPUT @Pwrsupply;"CURR:PROT:STAT OFF"
300OUTPUT @Pwrsupply;"CAL:SEC:STAT OFF, ";Sec_code$
310OUTPUT @Pwrsupply;"CAL:SEC:STAT?"
320ENTER @Pwrsupply;A
330IF A=1 THEN
340PRINT TABXY(5,5),"****** Unable to Unsecure the Power supply ******"
350GOTO 2290
360END IF
72
