Imports System.IO.Ports
Public Class Form1
Private comBuffer As Byte()
Private Delegate Sub UpdateFormDelegate()
Private UpdateFormDelegate1 As UpdateFormDelegate
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i1 As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
ComboBox1.Items.Add(My.Computer.Ports.SerialPortNames(i1))
Next
Button1.Text = "Open"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Open" Then
With SerialPort1
If ComboBox1.Text <> "" Then
.PortName = ComboBox1.Text
Else
MsgBox("Choose a port first")
End If
.BaudRate = 38400
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.Handshake = Handshake.None
If .IsOpen = False Then
Try
.Open()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End With
Button1.Text = "Close"
Else
SerialPort1.Close()
Button1.Text = "Open"
End If
End Sub
Private Sub mySerialPort_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
'Handles serial port data received events
UpdateFormDelegate1 = New UpdateFormDelegate(AddressOf UpdateDisplay)
Dim n As Integer = SerialPort1.BytesToRead 'find number of bytes in buf
comBuffer = New Byte(n - 1) {} 're dimension storage buffer
SerialPort1.Read(comBuffer, 0, n) 'read data from the buffer
Me.Invoke(UpdateFormDelegate1) 'call the delegate
End Sub
Private Sub UpdateDisplay()
'ListBox1.Items.Add(CStr(comBuffer(0)))
TextBox1.Text = TextBox1.Text & Environment.NewLine & CStr(comBuffer(0))
updateList()
End Sub
Private Sub updateList()
ListBox1.Items.Add(CStr(comBuffer(0)))
End Sub
End Class
