vb6串口接收数据事件的数据读出示例
Private Sub MSComm1_On Dim BytReceived() As Byte If MSComm1.InputMode = comInputModeBinary Then BytReceived() = strBuff '如果是二进制接收模式则进行数据处理,否则直接显示字符串 For i = 0 To UBound(BytReceived) If Len(Hex(BytReceived(i))) = 1 Then strData = strData & "0" & Hex(BytReceived(i)) & " " '如果只有一个字符,则前补0,如F显示0F,最后补空格 Else '方便显示观察如: 00 0F FE strData = strData & Hex(BytReceived(i)) & " " End If Next Text2 = Text2 & strData strData = "" Else Text2 = Text2 & strBuff End If End Select End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |