VB。net 串口接收数据，用串口调试助手发数据，只有第一次可以正常接收

你定义的委托需要带参数才行，DataReceived事件中没有接收数据代码，下面的代码经测试可用

成都创新互联主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务咸丰,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:028-86922220

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '将收到的数据入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

vb.net serialport 如何从串口通信缓存区每次4个字节的数据,缓存区中的数据大于4个字节

你可以等全部获取后 用mid函数去截取字符串 再赋值

dim a()

redim a(len(s)\4))

for i = 1 to len(s) step 4

a(j)=mid(s,i,4)

j=j+1

next

vb.net 串口接收问题

0x3F表示字符"?"

估计是你的发送指令不正确，设备返回你发送的指令后面加''？""

请教用VB.NET向串口发送16进制的数的方法

应该是你的转换格式不正确，下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03

Dim TestArray() As String = Split(TextBox1.Text)

Dim hexBytes() As Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i As Integer

For i = 0 To TestArray.Length - 1

hexBytes(i) = Val("h" TestArray(i))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

如果有问题可以再联系。