vb.net2019- 串口serial port通信

最新推荐文章于 2024-01-25 13:47:29 发布

「已注销」

最新推荐文章于 2024-01-25 13:47:29 发布

阅读量2k

点赞数 2

文章标签： vb.net

本文链接：https://blog.csdn.net/AI_LX/article/details/88966618

版权

本文介绍了一个简单的串口通信示例程序，演示了如何使用Visual Basic .NET获取可用的串行端口并发送字符串数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

serial port，即串行端口，现在大多数硬件设备均采用串口技术与计算机相连。

Public Class Form1

    Private Sub GetSerialPortNames()
        ' Show all available COM ports.
        For Each sp As String In My.Computer.Ports.SerialPortNames
            ListBox1.Items.Add(sp)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GetSerialPortNames()
    End Sub
    Sub SendSerialData(ByVal data As String)
        ' Send strings to a serial port.
        Using com1 As IO.Ports.SerialPort =
                My.Computer.Ports.OpenSerialPort("COM1")
            com1.WriteLine(data)
        End Using
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show("开始发送数据给：" & ListBox1.SelectedItem.ToString())
        SendSerialData(TextBox1.Text)
        MessageBox.Show("发送" & Trim(TextBox1.Text) & "完毕")
    End Sub
End Class

在这里插入图片描述