vb.net 教程 3-9 窗体编程 串口组件3 SerialPort传输的简单范例1 （

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

串口操作实际很简单，只需要：

（好吧，csdn的烂编辑器，这里我多打了个回车键，然后就删不掉了，只好加上这行字）

打开串口-发送/接收数据-关闭串口

窗口设计如图：

当窗口载入时，设置SerialPort1的编码

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.Encoding = System.Text.Encoding.UTF8
    End Sub
选择串口，检测该串口是否已经打开，已经打开就先关闭再打开，COM1...这里已经设置到了ComboBox1控件

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        If portname <> ComboBox1.Text Then
            If SerialPort1.IsOpen = True Then
                SerialPort1.Close()
            End If
            portname = ComboBox1.Text
            SerialPort1.PortName = portname
 
            Try
                SerialPort1.Open()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub
“发”按钮按下时发送数据：

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SerialPort1.WriteLine(TextBox1.Text)
    End Sub
“收”按钮按下时收取数据：

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If SerialPort1.BytesToRead > 0 Then
            TextBox2.Text = SerialPort1.ReadLine()
        Else
            TextBox2.Text = "(没有多余数据)"
        End If
    End Sub
当退出程序时，请不要忘了关闭串口：

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen = True Then
            SerialPort1.Close()
        End If
    End Sub
除了手工收取数据，还有一个更方便的方法，使用SerialPort类提供的DataReceived事件，可以将“收”按钮的代码替换为：

    Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        TextBox2.Text = TextBox2.Text & SerialPort1.ReadLine()
    End Sub
由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录
————————————————
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。