A N E X A M P L E P R O G R A M O F E X C E L 9 7 F O R C A L I B R A T I O - Agilent Technologies E3633A Service Manual

Chapter 3 Calibration Procedures
An Example program of Excel 97 for Calibration
An Example program of Excel 97 for Calibration
T h i s s e c t i o n c o n t a i n s a n E x c e l M a c r o s ( V i s u a l B a s i c
p r o g r a m f o r c a l i b r a t i o n o v e r t h e G P I B i n t e r f a c e . T h i s p r o g r a m m a k e s s o f t w a r e
a d j u s t m e n t s t o t h e E 3 6 3 3 A p o w e r s u p p l y u s i n g a c u r r e n t s h u n t a n d a d i g i t a l
m u l t i m e t e r w h i c h i s c o n n e c t e d t o t h e c o n t r o l l e r . I n t h i s p r o g r a m a 0 . 0 0 1 o h m
c u r r e n t s h u n t i s u s e d . B e s u r e t o c h a n g e t h e v a l u e o f t h e v a r i a b l e ' ' s h u n t ' ' t o
t h e v a l u e o f t h e c u r r e n t s h u n t u s e d a n d t h e G P I B a d d r e s s f o r t h e p o w e r s u p p l y
a n d t h e d i g i t a l v o l t m e t e r .
'**************************************************************************************
'This program was written on a PC with Excel Macros (Visual Basic
'for Windows 95 or Windows NT 4.0. It will make software adjustments to the E3633A
'Power Supply on the GPIB bus using a Agilent 34401A Digital Multimeter and a current
'shunt. In the program a 0.001 ohm current shunt is used to measure current. Be sure to
'change the value of the variable 'shunt' to the value of the current shunt used.
'**************************************************************************************
Global id_power As Long
Global id_DMM As Long
Global power As Long
Global DMM As Long
Global Const VI_SUCCESS = &H0&
Global Const VoltageMin = 0
Global Const VoltageMid = 1
Global Const VoltageMax = 2
Global Const CurrentMin = 3
Global Const CurrentMid = 4
Global Const CurrentMax = 5
Sub Calibration_Click()
Dim shunt As Single 'Current shunt value in Ohms
Dim UserAnswer
Range("B4:B6").ClearContents
If OpenPort = False Then
ClosePort
Exit Sub
End If
InitializeDevice
EnableOVPandOCP False
If CheckSecurity = False Then
ClosePort
Exit Sub
End If
'User response
®
f o r A p p l i c a t i o n s )
®
for Applications)
C o n t i n u e d o n n e x t p a g e
75
3