以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  （已解决）16进制转浮点小数代码，这理有C#的代码，不知道如何转FOX  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110860)
--  作者：lhpc120
--  发布时间：2017/12/11 11:40:00
--  （已解决）16进制转浮点小数代码，这理有C#的代码，不知道如何转FOX
  1. #include "stdafx.h"  
  2. #include <process.h>  
  3.   
  4. int _tmain(int argc, _TCHAR* argv[])  
  5. {  
  6.     // 将十六进制转换为float形式  
  7.     unsigned char pMem[] = {0x66,0xE6,0xF0,0x42};  
  8.     float *p = (float*)pMem;  
  9.     printf("%g\\r\\n",*p);  
  10.   
  11.     // 将float转换为16进制  
  12.     float a=120.45f;  
  13.     unsigned char * b = (unsigned char*)&a;  
  14.   
  15.     for(int i = 0; i<4; i++)   
  16.         printf("0x%2X,", b[i]);   
  17.       
  18.     system("pause");  
  19.     return 0;  
  20. }  
[此贴子已经被作者于2017/12/11 12:15:36编辑过]
--  作者：lhpc120
--  发布时间：2017/12/11 11:40:00
--  
求转换方式和用法！
--  作者：有点甜
--  发布时间：2017/12/11 11:43:00
--  

你要这个？

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109066&skin=0

 
--  作者：lhpc120
--  发布时间：2017/12/11 12:15:00
--  
以后求助完了回帖子！

Dim bs() As Byte = {&H42, &H43, &HC1, &HAD}
Array.Reverse(bs) \'将数组倒置
Dim f = BitConverter.ToSingle(bs, 0)
msgbox(f)

这个我需要的代码，谢谢版主