VEGA VEGACOM 557 VEGA ASCII protocol - Manual (Page 50)

50 VEGACOM 557 VEGA ASCII
' m i t f u e h r e n d e n N u l l e n a u f f u e l l e n
S e n d N r = M I D $ ( C O M A D R + " 0 0 " , 1 , 3 - L E N ( S e n d N r ) ) +
S e n d N r
' S e n d e s t r i n g e r z e u g e n
I F L a s t P l s > 3 T H E N
S e n d = C M D 2 + S e n d N r + C H R $ ( 1 3 )
E L S E
S e n d = C M D 1 + S e n d N r + C H R $ ( 1 3 )
E N D I F
' S e n d e s t r i n g a u f d e r S c h n i t t s t e l l e a u s g e b e n
' ; a m E n d e , d a m i t k e i n 2 . C R g e s e n d e t w i r d
P R I N T # s i o , S e n d ;
' I n f o z u r a k t u e l l e n T a e t i g k e i t
L O C A T E 1 , 1
P R I N T " S c a n V E G A M E T A d r e s s e " ; M e t N r
' A u f A n t w o r t v o m V E G A C O M w a r t e n c a 0 . 1 S e k u n d e n
D e l a y ( . 1 )
C A L L R e c e i v e S t r i n g ( s i o , R e c e i v e )
' L a e n g e p r u e f e n
I F L a s t P l s > 3 T H E N
L = 66
E L S E
L = 32
E N D I F
I F L E N ( R e c e i v e ) = L T H E N
' K e i n e A n t w o r t Z a e h l e r w i e d e r a u f S t a r t w e r t
N o R e c e i v e ( M e t N r ) = M A X N O R E C E I V E
' S t a t u s i n f o r m a t i o n e n a u f F e h l e r s e t z e n
F O R j = F i r s t P l s T O L a s t P l s
S t a t u s ( M e t N r , j ) = - 1
NEXT j
C A L L C h e c k R e c e i v e ( R e c e i v e )
E L S E
I F N o R e c e i v e ( M e t N r ) > 0 T H E N
N o R e c e i v e ( M e t N r ) = N o R e c e i v e ( M e t N r ) - 1
ELSE
' S t a u s i n f o r m a t i o n e n a u f F e h l e r s e t z e n
F O R j = F i r s t P l s T O L a s t P l s
S t a t u s ( M e t N r , j ) = - 1
NEXT j
END IF
E N D I F
' n a e c h s t e V E G A M E T a b f r a g e n
M e t N r = M e t N r + 1
' A l l e V E G A M E T a b g e f r a g t ?
I F M e t N r > L a s t M e t T H E N
O u t p u t D a t a
' W i e d e r b e i V E G A M E t A d r e s s e F i r s t M e t b e g i n n e n
M e t N r = F i r s t M e t
E N D I F
W E N D
' S c h n i t t s t e l l e s c h l i e s s e n
C L O S E s i o
Setup