精易论坛

标题: 16进制到单精度浮点方法分享 [打印本页]

作者: 雨林木风    时间: 2018-5-10 13:31
标题: 16进制到单精度浮点方法分享
本帖最后由 雨林木风 于 2018-5-10 13:33 编辑

搜索互联网,没有找到16进制到浮点的方法,所以分享帮助需要的易友,经常开发单片机接口类程序,用途比较大,欢迎交流

  
子程序名返回值类型公开备 注
子程序_解码文本型 
参数名类 型参考可空数组备 注
参数文本型
变量名类 型静态数组备 注
txt文本型 
result文本型 
i  
txt = 删全部空 (ReplaceTxt (参数))
如果真 (位与 (取文本长度 (txt), 1) ≠ 0)
返回 (参数)
result = “”
计次循环首 (取文本长度 (txt) \ 2, i)
result = result + 十六转10 (取文本中间 (txt, i × 2 - 1, 2)) + “,”
计次循环尾 ()
result = 文本替换 (result, 取文本长度 (result), 1, “”)
如果真 (result = “”)
result = “”

返回 (result)

  
子程序名返回值类型公开备 注
ReplaceTxt文本型 
参数名类 型参考可空数组备 注
result文本型
result = 到半角 (result)
result = 子文本替换 (result, #换行符, , , , )
result = 子文本替换 (result, 字符 (13), , , , )
result = 子文本替换 (result, 字符 (10), , , , )
result = 子文本替换 (result, “{”, , , , )
result = 子文本替换 (result, “}”, , , , )
result = 子文本替换 (result, “(”, , , , )
result = 子文本替换 (result, “)”, , , , )
result = 子文本替换 (result, 字符 ( #Tab键 ), , , , )
result = 子文本替换 (result, “+”, “,”, , , )
result = 删首尾空 (result)
返回 (result)
  
子程序名返回值类型公开备 注
_十六到浮点文本型 
参数名类 型参考可空数组备 注
十六进制文本文本型
变量名类 型静态数组备 注
数值字节集 
局部_十六进制文本文本型 
返回值文本型 
' /将局部_十六进制文本替换为需要转换的值即可
局部_十六进制文本 = 取文本中间 (十六进制文本, 7, 2)取文本中间 (十六进制文本, 5, 2)取文本中间 (十六进制文本, 3, 2)取文本中间 (十六进制文本, 1, 2)
数值 = 字节集_文本转字节集 (“{”子程序_解码 (十六进制文本)“}”)
如果真 (取字节集长度 (数值) ≥ 1)
返回值 = 到文本 (取字节集数据 (数值, 5, 1))
返回 (返回值)









作者: Zangetsu    时间: 2018-5-10 14:02
难道我看到了  搞系统的那货




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4