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 教程目录

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/85014620

栏目列表

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