Agilent Technologies E3632A Video Gaming Accessories User Manual


 
Chapter 3 Calibration Procedures
Calibration Program
72
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 !
100 CLEAR SCREEN
110 DIM Cal_msg$[40],Error$[40],Sec_code$[10]
120 REAL 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
210 OUTPUT @Pwrsupply;"CAL:STR?" ! Read the calibration message
220 ENTER @Pwrsupply;Cal_msg$
230 PRINT 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 !
280 OUTPUT @Pwrsupply;"VOLT:PROT:STAT OFF"
290 OUTPUT @Pwrsupply;"CURR:PROT:STAT OFF"
300 OUTPUT @Pwrsupply;"CAL:SEC:STAT OFF, ";Sec_code$
310 OUTPUT @Pwrsupply;"CAL:SEC:STAT?"
320 ENTER @Pwrsupply;A
330 IF A=1 THEN
340 PRINT TABXY(5,5),"****** Unable to Unsecure the Power supply ******"
350 GOTO 2290
360 END IF