Imports System.IO.Ports
Imports System.Text
Public Class Form1
Private serialport As SerialPort
Public waiterbuffer As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
serialport = New SerialPort
With serialport
.PortName = "COM2"
.BaudRate = 9600
.DataBits = 8
.StopBits = CType(1, StopBits)
.Parity = Parity.None
.Handshake = IO.Ports.Handshake.None
.RtsEnable = True
.ReceivedBytesThreshold = 1
.NewLine = vbCr
.DiscardNull = False
.Encoding = Encoding.Default
End With
AddHandler serialport.DataReceived, AddressOf Me.serialport_DataReceived
serialport.Open()
End Sub
Private Sub serialport_DataReceived(sender As Object, e As SerialDataReceivedEventArgs)
waiterbuffer = serialport.ReadLine
Me.BeginInvoke(New EventHandler(Of SerialDataReceivedEventArgs)(AddressOf txtreceived), New Object() {sender, e})
End Sub
Private Sub txtreceived(sender As Object, e As EventArgs)
txt_debug.AppendText("ID: " & waiterbuffer & vbCrLf)
End Sub
End Class