VB串口通信问题

发布网友 发布时间：2022-05-01 21:19

我来回答

共2个回答

热心网友 时间：2022-06-23 16:01

需要错误重传机制，提供一段代码供参考：

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private fACK As Boolean

Private Sub Command1_Click()
Call Test
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Public Function Test() As Boolean
Dim errCount As Integer
Send_Command:
'--------------------------------超时处理
Dim msCount As Long
msCount = 500 + GetTickCount '500ms超时（注意不是很准，通过实际调试来确定）

Call 模拟MSComm接收到数据
While GetTickCount < msCount '等待ACK(接收下位机反馈,500ms为限)
DoEvents
Sleep 1 '降低CPU使用率
If fACK = True Then
Test = m_ReturnStr
Test = True '成功出口
Exit Function
End If
Wend
'--------------------------------------
errCount = errCount + 1
Debug.Print "发送超时"; errCount & "次"
If errCount >= 3 Then '定义允许错误重传的次数
errCount = 0
GoTo errHandle
End If
GoTo Send_Command '超时重传
'--------------------------------------
errHandle:
Test = False '失败出口
End Function

Private Sub Timer1_Timer()
fACK = True
End Sub

Private Sub 模拟MSComm接收到数据()
fACK = False
Timer1.Interval = 2000 '1s钟后接收到数据
Timer1.Enabled = True
End Sub

热心网友 时间：2022-06-23 16:01

发送数据，对方接收后反馈一个接受成功的信息

发送方 收到接受成功 的信息，再 发送后续数据

祝你顺利