VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >

  • 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版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/UruseiBest/article/details/85014115

相关教程