Agilent Technologies E3632A User Manual page 138

Chapter 6 Application Programs
Excel 5.0 Example for Windows 3.1 and GPIB
Excel 5.0 Example for Windows 3.1 and GPIB
E x c e l V B M a c r o s m a y b e u s e d t o c o n t r o l y o u r A g i l e n t E 3 6 3 2 A . W i t h E x c e l y o u
c a n t a k e t h e v a l u e o f a c e l l i n a s p r e a d s h e e t , s e n d i t t o t h e p o w e r s u p p l y , a n d
t h e n r e c o r d t h e r e s p o n s e o n t h e w o r k s h e e t . T h e e x a m p l e o n t h e f o l l o w i n g
p a g e s c h a r a c t e r i z e s a c o m p o n e n t a c r o s s t h e A g i l e n t E 3 6 3 2 A t e r m i n a l s . T h i s
e x a m p l e r e a d s 1 1 v o l t a g e s f r o m a w o r k s h e e t , p r o g r a m s t h e A g i l e n t E 3 6 3 2 A t o
t h a t v o l t a g e , a n d t h e n r e a d s t h e c u r r e n t . T h e v a l u e o f c u r r e n t i s r e c o r d e d n e x t
t o t h e v o l t a g e o n t h e s p r e a d s h e e t . T h e e x a m p l e i s f o r E x c e l 5 . 0 i n W i n d o w s 3 . 1 .
T o w r i t e m a c r o s a n d c o n t r o l t h e p o w e r s u p p l y i n E x c e l f i r s t o p e n a m o d u l e i n
E x c e l . F r o m t h e " I n s e r t " m e n u c h o o s e " M a c r o " a n d t h e n " M o d u l e " . N a m e t h e
m o d u l e c r e a t e d t h i s w a y " D i o d e b a s " ( c l i c k t h e r i g h t m o u s e b u t t o n o n t h e t a b ) .
C r e a t e o n e m o r e m o d u l e n a m e d " G P I B b a s " . T h e m o d u l e " G P I B b a s " w i l l s e t
u p a l l t h e o v e r h e a d n e e d e d t o t a l k t o t h e G P I B p o r t . T h i s m o d u l e w i l l
s u b r o u t i n e s t h a t a l l o w t h e c o m m u n i c a t i o n i n a s i m p l e f o r m . T h e m a c r o c a l l e d
" D i o d e " i s a n e x a m p l e t h a t t e s t s a d i o d e u s i n g t h e o t h e r m o d u l e .
T o t r y t h e e x a m p l e f o r c h a r a c t e r i z i n g a d i o d e , t y p e i n b o t h m o d u l e s . O n c e t h e
m o d u l e s a r e c o m p l e t e d , g o t o a w o r k s h e e t . I n c e l l A 4 t y p e " V o l t s " , i n c e l l B 4
t y p e " C u r r e n t " . I n c e l l s A 5 t y p e 0 . 6 . F i l l i n t h e c e l l s A 4 t o A 1 5 i n 0 . 0 2 i n c r e m e n t s
s o t h a t c e l l A 1 5 c o n t a i n s 0 . 8 .
N o w w h i l e t h e c u r s o r i s s t i l l i n t h e w o r k s h e e t , s e l e c t " T o o l s , M a c r o " f r o m t h e
m e n u . D o u b l e c l i c k o n t h e D i o d e m a c r o i n t h e M a c r o d i a l o g b o x . T h e p o w e r
s u p p l y w i l l r e s e t t o p o w e r o n c o n d i t i o n a n d t h e n s t e p t h r o u g h t h e v o l t a g e s i n
t h e w o r k s h e e t . A f t e r e a c h s t e p t h e c u r r e n t i s m e a s u r e d , a n d r e c o r d e d i n t h e
w o r k s h e e t .
M a k e a n y c h a n g e s t o s u i t y o u r n e e d s i n t h e " D i o d e b a s " m o d u l e . C h a n g e t h e
G P I B a d d r e s s i n t h e r o u t i n e " O p e n P o r t ( ) " c o n t a i n e d i n t h e " G P I B b a s " m o d u l e .
I f t h e r e i s a s y s t e m e r r o r w h e n t r y i n g t o r u n t h e m a c r o , y o u m a y h a v e t o r e b o o t
t h e P C f o r t h e G P I B p o r t t o w o r k .
6
135