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

VEGACOM 557 VEGA ASCII 55
Setup
' D a t e n l e s e n .
Call
D e c o d e F r a m e ( M S C o m m . I n p u t )
Loop
E n d I f
E n d S u b
P r i v a t e S u b R u n _ C l i c k ( )
' ? S t a r t o r S t o p
I f R u n . T a g = " 0 " T h e n
' ? S c h n i t t s t e l l e
g e o e f f n e t
I f M S C o m m . P o r t O p e n =
T r u e T h e n
' - > s c h l i e s s e n
M S C o m m . P o r t O p e n =
F a l s e
End If
' C O M 1 e i n s e t z e n .
M S C o m m . C o m m P o r t = 1
' 9 6 0 0 B a u d , k e i n e
P a r i t a e t , 8 D a t e n b i t s a n d 1
S t o p b i t
M S C o m m . S e t t i n g s =
" 9 6 0 0 , N , 8 , 1 "
' S c h n i t t s t e l l e
o e f f n e n .
M S C o m m . P o r t O p e n =
T r u e
' T i m e r s t a r t e n
T i m e r . E n a b l e d = T r u e
I f M S C o m m . P o r t O p e n
T h e n
' Button
u m s c h a l t e n
R u n . C a p t i o n =
" & S t o p "
R u n . T a g = " 1 "
End If
E l s e
' ? S c h n i t t s t e l l e
g e o e f f n e t
I f M S C o m m . P o r t O p e n =
T r u e T h e n
' - > s c h l i e s s e n
M S C o m m . P o r t O p e n =
F a l s e
End If
' T i m e r a u s s c h a l t e n
T i m e r . E n a b l e d =
F a l s e
' B u t t o n u m s c h a l t e n
R u n . C a p t i o n =
" & S t a r t "
R u n . T a g = " 0 "
E n d I f
E n d S u b
P r i v a t e S u b T i m e r _ T i m e r ( )
I f I n A c t i o n = 0 T h e n
' S p e i c h e r l o e s c h e n
R e c e i v e B u f f e r = " "
' S t a r u s l o e s c h e n
C l e a r V a l u e s
' A u s g a b e d e r
A n f r a g e
M S C o m m . O u t p u t = " % "
+ F o r m a t ( S t a r t I n d e x , " 0 0 0 " )
+ " L " + F o r m a t $ ( L e n I n d e x ,
" 0 0 0 " ) + C h r $ ( 1 3 )
E l s e
' F e h l e r z e a h l e r
b e n u t z e n
I n A c t i o n = I n A c t i o n
- 1
' ? G r e n z e e r r e i c h t
I f I n A c t i o n = 0 T h e n
' W e r t e a n z e i g e n
D i s p l a y V a l u e s
End If
E n d I f
E n d S u b
P r i v a t e S u b D e c o d e F r a m e ( R e c
A s S t r i n g )
D i m i d x A s I n t e g e r
D i m V a l u e A s L o n g
D i m P l s S t r i n g A s S t r i n g
D i m S i n g l e V a l u e A s S t r i n g
D i m p A s I n t e g e r
' A l l e c h a r a c t e r s
a u f s a m m e l n
R e c e i v e B u f f e r =
R e c e i v e B u f f e r + R e c
' S c h o n 1 W e r t e m p f a n g e n
p = I n S t r ( R e c e i v e B u f f e r ,
C h r $ ( 1 3 ) )
I f p > 0 T h e n
' - > E i n z e l n e n W e r t
a u s s c h n e i d e n
S i n g l e V a l u e =
L e f t $ ( R e c e i v e B u f f e r , p -
1 )
R e c e i v e B u f f e r =
M i d $ ( R e c e i v e B u f f e r , p +
1 )
E l s e
S i n g l e V a l u e = " "
E n d I f
I f L e n ( S i n g l e V a l u e ) > 9
T h e n
' F r a m e p r u e f e n
' = 0 0 1 # F A U L T C R