vb.net 使用多个serialport串口控件，互相影响得问题

2018-08-25 05:54:42 451 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#上位机开发实战指南：通信协议、线程处理与项目避坑上位机软件是工业自动化和设备控制的核心枢纽，它承担着与PLC、传感器等设备交互、数据解析、界面展示及指令下发的关键任务。理解其运行原理，需从设备层、通信层与应用层三层架构入手，其中通信协议选型（如串口、Modbus RTU/TCP）和线程模型设计直接决定系统的稳定性。C#凭借其高效的开发效率与Windows生态的强兼容性，成为工控领域的优选语言。在实际工程中，开发者常面临串口乱码、UI线程卡死、版本兼容性及设备超时等痛点，掌握数据帧拼接、跨线程委托调用、超时重试机制等技巧至关重要。本文从项目落地视角，系统梳阅读详情

高手好：
做一个小软件，使用电脑的3个USB分别联接3台串口设备。现在出现了一个很诡异得现象！！！

当我拔掉串口2的设备，串口1端口无法接收设备的返回数据，
也就是 SerialPort1.DataReceived 事件没有反应了。
但是发送数据，串口设备能接收到。
我重复关闭和打开串口尝试重新联接设备，接收数据事件也还是没响应。
唯一只能关闭软件重新运行软件才能恢复接收数据。

串口设备1的接收事件
Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim ReciveLEN As Integer
Try
ReciveLEN = SerialPort1.BytesToRead
ReDim Preserve ReciveBYTE(ReceiveSUM + ReciveLEN)
SerialPort1.Read(ReciveBYTE, ReceiveSUM, ReciveLEN) '读取缓冲数据
ReceiveSUM += ReciveLEN
If UBound(ReciveBYTE) > 3 Then
If ReciveBYTE(ReceiveSUM - 1) = 10 And ReciveBYTE(ReceiveSUM - 2) = 13 Then
Me.BeginInvoke(New Meterdelegate(AddressOf MeterreceivedDelegate), New Object() {})
End If
End If
Catch ex As Exception
ThreadErr = ("仪表接收线程执行错误1" & ex.ToString)
End Try

End Sub

串口设备2的接收事件
'电源通信接收事件
Private Sub SerialPort2_DataReceived(sender As Object, e As Ports.SerialDataReceivedEventArgs) Handles SerialPort2.DataReceived
Dim ReciveLEN As Integer
Try
ReciveLEN = SerialPort2.BytesToRead
ReDim Preserve PowerReciveBYTE(PowerReceiveSUM + ReciveLEN)
SerialPort2.Read(PowerReciveBYTE, PowerReceiveSUM, ReciveLEN) '读取缓冲数据
PowerReceiveSUM += ReciveLEN
If PowerReciveBYTE(PowerReceiveSUM - 1) = 10 Then
Me.BeginInvoke(New Powerdelegate(AddressOf PowerreceivedDelegate), New Object() {})
End If
Catch ex As Exception
ThreadErr = ("电源接收线程执行错误1" & ex.ToString)
End Try
End Sub

...全文