Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM4"
SerialPort1.BaudRate = 9600
Timer1.Enabled = True
Timer1.Interval = 1000
SerialPort1.Open()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If SerialPort1.BytesToRead > 0 Then ' ตรวจสอบว่าArduino มีการส่งข้อมูลเข้ามาทาง Port ไหม
Dim NewTemp() As String = Split(SerialPort1.ReadLine, ",") ' เก็บค่าที่ Arduino ส่งมา
TextBox1.Text = NewTemp(0) 'เอาค่าที่ Arduino ส่งมาแสดงใน Textbox
End If
End Sub