Instructions

84 16 | Digitalvolt meter mit Bargrafanzeige undUSB-Schnittstelle
16
Mit
de
r F
u
nkti
o
n
B
utton
_
Disconnect
_
Clic
k
()
sc
hli
e
ß
e
n wir
d
i
e
Sc
hnitt
-
s
telle wieder. Sie steht dann wieder für andere Pro
g
ramme wie die
A
r
d
uino™-ID
E
zur Verfü
g
un
g
. Wenn Sie a
l
so Pro
g
rammän
d
erun
g
en o
d
e
r
andere Pro
g
ramme auf Ihr Arduino™-Board übertra
g
en wollen, müs
-
s
en Sie das Pro
g
ramm zuvor beenden oder
Di
sconnec
t
klicken, um die
t
Schnittstelle wieder freizu
g
eben
.
001 Private Sub SerialPort1
_
DataReceived
(
se
n
der
As
Ob
j
ec
t
,
e
A
s S
y
stem.IO.Ports.SerialDataReceivedEvent
A
r
gs
)
Handles SerialPort1.DataReceive
d
002
Dim cnt
A
s B
y
t
e
003
Dim in_b
y
tes
A
s B
y
t
e
004
Dim Hi
g
hB
y
te As B
y
t
e
005
Dim LowB
y
te
A
s B
y
t
e
006
Dim crc
A
s B
y
t
e
007
Dim crc_ok As B
y
t
e
008
Dim data_Word
A
s Inte
g
e
r
009
Dim volta
g
e
A
s Sin
g
l
e
010
0
11
012
T
r
y
013
' Hier werden die Daten014
e
mpfange
n
If SerialPort1.IsOpen The
n
015
0
1
6
Control.CheckForIlle
g
alCrossThreadCalls017
= F
a
l
se
01
8
'
0
19 wi
e
vi
e
l
e
B
y
tes sind im P
u
ff
er
in_
by
tes = Seria
l
Port
1
.B
y
tesToRea
d
020
021
'
A
lle B
y
tes hole
n
022
For cnt = 1 To (in_b
y
tes
)
023
in
p
ut_data(cnt) = SerialPort1.ReadByte024
Nex
t
02
5
026
' Puffer leere
n
027
SerialPort1.DiscardInBuffer
()
028
029
HighByte = in
p
ut_data(1
)
030
LowByte = input_data(2
)
031
crc = input_data(3
)
032
0
33
' Checksumm
e
034
crc_ok = 170 Xor input_data(1) Xor input
_
035
10174-5 Conrad Arduino Lernpaket_09.indd 8410174-5 Conrad Arduino Lernpaket_09.indd 84 14.07.2015 08:10:3414.07.2015 08:10:34