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

54 VEGACOM 557 VEGA ASCII
Setup
1 0 0 5
_Version =
3 2 7 6 8 0
D T R E n a b l e = 0
' F a l s e
I n B u f f e r S i z e =
5 1 2
InputLen =
2 0 0
O u t B u f f e r S i z e =
1 0 0
R T h r e s h o l d = 1
S T h r e s h o l d = 1
E O F E n a b l e = - 1
' T r u e
E n d
E n d
A t t r i b u t e V B _ N a m e =
" A S C D E M O "
A t t r i b u t e V B _ C r e a t a b l e =
F a l s e
A t t r i b u t e V B _ E x p o s e d = F a l s e
' - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - -
' A S C D E M O . F R M
' C o p y r i g h t ( c ) 1 9 9 9 V E G A
' b y G r o s T h o m s
' - - - - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - -
O p t i o n E x p l i c i t
' S p e i c h e r f u e r d e n E m p f a n g
D i m R e c e i v e B u f f e r A s S t r i n g
' F e h l e r z a e h l e r
D i m I n A c t i o n A s I n t e g e r
' S p e i c h e r f u e r d i e W e r t e
a n d d e n S t a t u s
D i m S t a t u s ( 2 5 5 ) A s I n t e g e r
D i m D C S ( 2 5 5 ) A s L o n g
' S t a r t a n d E n d e
D i m S t a r t I n d e x A s I n t e g e r
D i m L e n I n d e x A s I n t e g e r
P r i v a t e S u b E n d e _ C l i c k ( )
' P r o g r a m m b e e n d e n
U n l o a d M e
E n d S u b
P r i v a t e S u b F o r m _ L o a d ( )
D i m i A s I n t e g e r
' S p e i c h e r i n i t i a l i s i e r e n
F o r i = 1 T o 2 5 5
S t a t u s ( i ) = F a l s e
D C S ( i ) = 0
N e x t i
' F e h l e r z a e h l e r
i n i t i a l i s i e r e n
I n A c t i o n = 0
' B e r e i c h e i n s t e l l e n
S t a r t I n d e x = 1
L e n I n d e x = 3 0
' 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
E n d S u b
P r i v a t e S u b
F o r m _ U n l o a d ( C a n c e l A s I n t e -
g e r )
' T i m e r s t o p p e n
T i m e r . E n a b l e d = F a l s e
' S e r i e l l e S c h n i t t s t e l l e
s c h l i e s s e n .
I f M S C o m m . P o r t O p e n =
T r u e T h e n
M S C o m m . P o r t O p e n =
F a l s e
E n d I f
E n d S u b
P r i v a t e S u b M S C o m m _ O n C o m m ( )
D i m I n S t r i n g A s S t r i n g
' ? W u r d e n c h a r a c t e r s
e m p f a n g e n
I f M S C o m m . C o m m E v e n t =
c o m E v R e c e i v e T h e n
' A n z e i g e f ü r
K o m m u n i k a t i o n
I f L e d . F i l l C o l o r =
M e . B a c k C o l o r T h e n
L e d . F i l l C o l o r =
R G B ( 0 , 2 5 5 , 0 )
Else
L e d . F i l l C o l o r =
M e . B a c k C o l o r
End If
' P r ü f e n , o b D a t e n
v o r h a n d e n s i n d .
D o W h i l e
M S C o m m . I n B u f f e r C o u n t > 0
' F e h l e r z a e h l e r
a u f 1 S e c
I n A c t i o n = 1 0