如何在vb.net中编写自动检测串口的程序

Question

我正在开发一个通过笔记本电脑/PC 的 USB 端口连接 RS232 的项目。我已经创建了 vb.net 应用程序。当应用程序第一次加载时，它需要检测串行端口。截至目前，我手动将端口名放入串行端口的属性中，但如果我部署应用程序并且使用其他笔记本电脑/PC，则在运行 GUI 时会出现错误：System.IO.IOException。我想编写自动检测串口的程序，但我对 vb.net 中的串口编程很陌生。

有人可以帮助我吗？谢谢！

这是我的程序的一部分：

Imports System.IO.Ports

Public Class Form1

'Dim myPort As Array 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Try

        'myPort = IO.Ports.SerialPort.GetPortNames() 

        SerialPort1.Open()
        Timer1.Enabled = True
    Catch ex As Exception
        MsgBox(ex.ToString)

    End Try
End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

    '==zigbee sent data to the app====
    Console.Beep(3000, 1000) 'high tone buzzer whenever there is a notification received

    MsgBox("THERE IS A NOTIFICATION RECEIVED!")

    uart_rx = Me.SerialPort1.ReadExisting
    toDisplay = toDisplay + uart_rx

    flag = 1 'there is a notification sent


End Sub

....

在 myPort = IO.Ports.SerialPort.GetPortNames() 之后，我不知道下一步该做什么。

Answer 1

以下网页上有一个示例显示了如何完成此操作：http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx

在示例中，在应用程序与端口通信之前，系统会提示用户进行串行端口设置。

SerialPort.GetPortNames (http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.getportnames.aspx) 将获取串行端口的名称。

Answer 2

我提供了一个列表框并用系统上的所有端口填充它。用户必须选择 com 端口，然后将该端口名称分配给串行端口。
代码如下 将 SP 变暗为字符串

Private Sub frmSelectPort_Load(sender as Object,  e as 
System. EventArgs)  Handles Me. Load 
GetSerialPortnames 
End Sub

 Sub GetSerialPortnames () For Each SP In My. Computer. 
   SerialPortNames
   Listbox1. Items. Add(sp) 
 End Sub


 (Under button click event) 
SP =Listbox1. SelectedItem
SerialPort1. PortName=SP 
SerialPort1. Open()