比如加速度计传给VB的数据是10.1234
vb应该如何接收才能保证精度,也就是接收到的数值也是10.1234
而不是10或其他
vb如何正确接收加速度计的数据
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
2条回答
- stone_weigege 2015-02-03 11:54关注
'*******************声明变量*********************
Option Explicit
Dim strData As String
Dim bytInput() As Byte '这里为什么一定要byte类型。byte类型接收回来的数值范围是0-255 但是我想要接收小数,怎么接啊?Private Sub MSComm1_OnComm() Dim intInputLen As Integer MSComm1.InputMode = comInputModeBinary '二进制接收 intInputLen = MSComm1.InBufferCount ReDim bytInput(intInputLen) bytInput = MSComm1.Input jieshou
End Sub
Public Function jieshou() '接收数据处理为16进制
Dim i As Integer
For i = 0 To UBound(bytInput)
If Len(Hex(bytInput(i))) = 1 Then
strData = strData & "0" & Hex(bytInput(i)) & " "
Else
strData = strData & Hex(bytInput(i)) & " "
End If
Next
TxtReceive = strData
TxtReceive.SelStart = Len(TxtReceive.Text)
End Function解决 无用评论 打赏 举报
悬赏问题
- ¥15 运筹学排序问题中的在线排序
- ¥15 关于#flink#的问题:关于docker部署flink集成hadoop的yarn,请教个问题flink启动yarn-session.sh连不上hadoop
- ¥30 求一段fortran代码用IVF编译运行的结果
- ¥15 深度学习根据CNN网络模型,搭建BP模型并训练MNIST数据集
- ¥15 lammps拉伸应力应变曲线分析
- ¥15 C++ 头文件/宏冲突问题解决
- ¥15 用comsol模拟大气湍流通过底部加热(温度不同)的腔体
- ¥50 安卓adb backup备份子用户应用数据失败
- ¥20 有人能用聚类分析帮我分析一下文本内容嘛
- ¥15 请问Lammps做复合材料拉伸模拟,应力应变曲线问题