VB中MSComm控件来发送接收16进制数怎样解决？

2025-02-24 18:52:09

推荐回答（1个）

回答1：

Private Sub MSComm1_OnComm()
With MSComm1
Select Case .CommEvent
Case comEvReceive
Call RecieveText
End Select
End With
End Sub
'功能：从输入缓冲区中接收数据并显示到界面上
Private Sub RecieveText()
Static bFrameOver As Boolean '当前处理指令帧处理完毕
Dim lData As Long
Dim j As Integer
Dim sTemp As String
Dim sNewStr As String
Dim byteInBytes() As Byte
Dim i As Integer
Dim s As String
Dim nTemp As Integer
Dim sResultBytesArr() As String
Dim sFrameDataVal As String '接收到数据中分解出一帧的结果
Dim nCollectCupNo As Integer
Dim nRet As Integer
Dim RecievesInstruction As String '接受到的指令
On Error GoTo errExit
' bFrameOver = False
If MSComm1.PortOpen Then
'收数据
With MSComm1
byteInBytes = .Input
DoEvents
End With
ReIn:
sTemp = "" 'FE o3 oo o1 o1 o1 FD
For i = LBound(byteInBytes) To UBound(byteInBytes)
bFrameOver = False
'新到一个字节数据
s = Hex$(byteInBytes(i))
sNewStr = IIf(Len(s) < 2, "0" & s, s) '根据情况追加前导0后的字符串
If sNewStr = "FE" Then RecievesInstruction = "" '接收到帧头FE
If sNewStr = "FD" Then bFrameOver = True '接收到帧尾FD
'''''收集收到的串口数据

RecievesInstruction = RecievesInstruction & sNewStr
If bFrameOver = True Then
Text1.Text = RecievesInstruction
RecievesInstruction = ""
End If

Next_For:
Next i
byteInBytes = MSComm1.Input
If UBound(byteInBytes) > 0 Then GoTo ReIn
End If

Exit Sub

errExit:
MsgBox Err.Description

End Sub

最新问答

阿尔威羽毛球拍跟红双喜是个牌子吗？

求帮忙做一份行政前台等内勤工作的精品应届生求职简历，100分！

ubuntu下Qt连接oracle的驱动怎么写

白蜡木家具和白橡木家具比较

测定干燥速率曲线的意义

华为M3系统能不能改为win版

哪位高手帮忙做一个c语言学生成绩管理程序，急用，谢谢

男朋友穷，该不该分手

一直都是肠胃不好，消化系统不行，经常性的便秘，不知道有没有什么有效地方法呢？

仙剑奇侠传4人物仙术学习最佳方案