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

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

回忆上一节的代码，其中“发”按钮对应的代码：

SerialPort1.WriteLine(TextBox1.Text)

 

修改接收部分的代码如下：

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim btr() As Byte
        ReDim btr(SerialPort1.BytesToRead)
        SerialPort1.Read(btr, 0, SerialPort1.BytesToRead)

        Dim strRead As String = System.Text.Encoding.UTF8.GetString(btr)
        TextBox2.Text = strRead
    End Sub

然后查看运行情况：

可以看到发送的是"xxxxx"，但是，多了个换行。

在如下位置插入一个断点：

运行后查看btr包含的内容：

可以看到多了个字节：10，chr(10)也就是换行符。因此推测WriteLine()会自动在发送的字符串后面加个chr(10)，当然，在使用ReadLine()的时候把chr(10)省略掉了。

那么对应Read()的写入字节方法，可以使用Write()方法来发送字节数组：

        Dim sendByte() As Byte
        sendByte = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
        SerialPort1.Write(sendByte, 0, sendByte.Count)

或者使用Write()方法发送字符串：

SerialPort1.Write(TextBox1.Text)

 但请提前设置串口类的编码：SerialPort1.Encoding = System.Text.Encoding.UTF8

另外，补充一下：可以使用BytesToWrite和BytesToRead属性来获得缓冲区中需要发送和需要读取的字节数

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show(SerialPort1.BytesToWrite)
        MessageBox.Show(SerialPort1.BytesToRead)
    End Sub

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录

---