Question

vb中有关浮点数的处理问题

在vb中，如何将从串口接收浮点数存入到数组中，然后将接收的数组的数据恢复为浮点数。谢谢高手解答！
http://blog.csdn.net/zdingyun/archive/2008/06/09/2528026.aspx

Answer 1

首先是从串口中接收的数据.但我不知道你这是不是十六进制的.
我的程序是十六进制的浮点数转换.
假如从串口传过来的数据是:02024167A322 其中 4167A322是浮点数.
那么你就可以用mid()函娄截取浮点数部分.
在下面的程序中MID我就不用了.用的是从TXTBOX控件中输入十六进制数转换为浮点型:
在command_click()事件下写入
Dim b As String
Dim l As Long
Dim f1 As Single
b = Text1.Text
l = Val("&H" & b)
CopyMemory f1, l, 4 '调用模块中的COPY声明,意义为:将L复制给F1,位数为四位.
Text2.Text = f1

在工程中添加一个模块:写入:
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
这段程序
这样就可以转换了.
但是如果十六进制数超出了浮点数的范围那么VB会自动用科学计数法显示比如说FFFFFFFF.那么最后的浮点数肯定是科学计数法.

Answer 2

直接存在数组中不行吗?

Answer 3

串口接收的浮点数是什么，不懂，想学，请高手解答！