01.
Private
Sub
Form1_Load(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
MyBase
.Load
02.
SerialPort1.PortName =
"COM4"
03.
SerialPort1.BaudRate = 9600
04.
Timer1.Enabled =
True
05.
Timer1.Interval = 1000
06.
SerialPort1.Open()
07.
End
Sub
08.
09.
Private
Sub
Timer1_Tick(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Timer1.Tick
10.
If
SerialPort1.BytesToRead > 0
Then
11.
Dim
NewTemp()
As
String
= Split(SerialPort1.ReadLine,
","
)
12.
TextBox1.Text = NewTemp(0)
13.
End
If
14.
End
Sub