使用VB的MSC控件,实现与单片机之间数据的接收发送,为什么接收回来的数据全是0,接收的是18个数,用二进制接收,转换成16进制后,显示在文本框text1,请帮忙看一下程序哪里有问题。
还有就是读数据的时候老显示读comm设备有误,我改一下RThre的值,它又能正常显示了
Private Sub Command3_click()
Dim ReceiveArr() As Byte
Dim receivedata As String
Dim counter As Integer
Dim i As Integer
Dim s As String
Dim a(18) As Variant
MSComm1.InputMode = comInputModeText
MSComm1.InputLen = 0
receivedata = ""
If (MSComm1.InBufferCount > 0) Then
counter = MSComm1.InBufferCount
ReceiveArr = MSComm1.Input
For i = 0 To (counter - 1) Step 1
ReDim ReceiveArr(i)
If ReceiveArr(i) < 16 Then
receivedata = receivedata & "0" + Hex(ReceiveArr(i)) & Space(1)
Else
receivedata = receivedata & Hex(ReceiveArr(i)) & Space(1)
End If
s = receivedata
text1.Text=s
VB通过MSC控件接收数据全为0
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答 默认 最新
悬赏问题
- ¥40 复杂的限制性的商函数处理
- ¥15 程序不包含适用于入口点的静态Main方法
- ¥15 素材场景中光线烘焙后灯光失效
- ¥15 请教一下各位,为什么我这个没有实现模拟点击
- ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来
- ¥50 comfyui下连接animatediff节点生成视频质量非常差的原因
- ¥20 有关区间dp的问题求解
- ¥15 多电路系统共用电源的串扰问题
- ¥15 slam rangenet++配置
- ¥15 有没有研究水声通信方面的帮我改俩matlab代码