Question

vb如何将浮点数的十六进制数转化为十进制数据

举个例子：浮点数241.5在内存中以0x00 0x80 0x74 0x43的形式存储，现在从串口接受到一条数据，01 03 04 00 80 71 43 9E 7A,我要把0x00 0x80 0x71 0x43解析出来了，需要在界面控件上以241.5显示。

Answer 1

使用API函数CopyMemory来转换。

Option Explicit
    Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Sub Command1_Click()
    Dim BB(0 To 3) As Byte
    Dim se As Single
    BB(0) = &H0
    BB(1) = &H80
    BB(2) = &H71
    BB(3) = &H43
    CopyMemory se, ByVal VarPtr(BB(0)), 4
    Text1.Text = se
End Sub

具体参考：http://blog.csdn.net/zdingyun/article/details/2528026