以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]十六进制浮点数转字符串  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109066)
--  作者：dengmj
--  发布时间：2017/11/3 15:15:00
--  [求助]十六进制浮点数转字符串
十进制(1.25)的单精度浮点数值：
3FA00000 ->1.25这个怎么转换呢？
--  作者：有点甜
--  发布时间：2017/11/3 18:07:00
--  

转单精度

 

Dim bs() As Byte = BitConverter.GetBytes(1.25f)
For i As Integer = bs.length-1 To 0 Step -1
    output.show(DecToHex(bs(i)))
Next

 

转小数

 

Dim bs() As Byte = {0, 0, &HA0, &H3f}
Dim f = BitConverter.ToSingle(bs, 0)
msgbox(f)