IEEE-754转换器，自己在做协yi解析，做的转换器

小劳

自己在做协yi解析，做的转换器。咱们贴吧里没有类似的源码，所以自己写了一个，用了精易模块。将采用IEEE-754格式的16进制4位码 转换成十进制的带小数的数字，自动保留一位小数。现阶段只做了从16进制到10进制小数。逆转没做。别问为什么，问就是还没用到。

  

子程序名	返回值类型	公开	备 注
共用IEEE754转换器1	文本型		自动保留一位小数
参数名	类 型	参考	可空	数组	备 注
计算方式1	整数型				1为16进制转10进制浮点数，其他数为10进制浮点数转16进制。单精度
需转换数据1	文本型				16进制为8位，10进制随意

判断 (计算方式1 ＝ 1)
文本_逐字分割 (需转换数据1, IEEE临转1)
加入成员 (IEEE临转1, 保持数组位数1)
计次循环首 (8, 计次1 [4])
IEEE二制临存1 [计次1 [4]] ＝ 进制转换 (IEEE临转1 [计次1 [4]], 16, 2)
如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 1)
IEEE二制临存1 [计次1 [4]] ＝ “000” ＋ IEEE二制临存1 [计次1 [4]]
如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 2)
IEEE二制临存1 [计次1 [4]] ＝ “00” ＋ IEEE二制临存1 [计次1 [4]]
如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 3)
IEEE二制临存1 [计次1 [4]] ＝ “0” ＋ IEEE二制临存1 [计次1 [4]]
' 2进制0补位

计次循环尾 ()
判断 (到整数 (取文本左边 (IEEE二制临存1 [7], 1)) ＝ 0)
IEEE的S值1 ＝ “”

IEEE的S值1 ＝ “-”
IEEE的E值1 ＝ 进制_二到十 (取文本右边 (IEEE二制临存1 [7], 3) ＋ IEEE二制临存1 [8] ＋ 取文本左边 (IEEE二制临存1 [5], 1))
IEEE的M值1 ＝ 进制_二到十 (取文本右边 (IEEE二制临存1 [5], 3) ＋ IEEE二制临存1 [6] ＋ IEEE二制临存1 [4] ＋ IEEE二制临存1 [1] ＋ IEEE二制临存1 [2] ＋ IEEE二制临存1 [2])
IEEE返回文本1 ＝ IEEE的S值1 ＋ 到文本 ( (1 ＋ IEEE的M值1 × 求次方 (2, -23)) × 求次方 (2, IEEE的E值1 － 127))
返回 (到文本 (四舍五入 (到数值 (IEEE返回文本1), 1)))  ' 自动保留一位小数
返回 (“暂时无法计算”)

.版本 2<br /> <br /> .子程序 共用IEEE754转换器1, 文本型, , 自动保留一位小数<br /> .参数 计算方式1, 整数型, , 1为16进制转10进制浮点数，其他数为10进制浮点数转16进制。单精度<br /> .参数 需转换数据1, 文本型, , 16进制为8位，10进制随意<br /> <br /> <br /> .判断开始 (计算方式1 ＝ 1)<br />     文本_逐字分割 (需转换数据1, IEEE临转1)<br />     加入成员 (IEEE临转1, 保持数组位数1)<br />     .计次循环首 (8, 计次1 [4])<br />         IEEE二制临存1 [计次1 [4]] ＝ 进制转换 (IEEE临转1 [计次1 [4]], 16, 2)<br />         .如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 1)<br />             IEEE二制临存1 [计次1 [4]] ＝ “000” ＋ IEEE二制临存1 [计次1 [4]]<br />         .如果真结束<br />         .如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 2)<br />             IEEE二制临存1 [计次1 [4]] ＝ “00” ＋ IEEE二制临存1 [计次1 [4]]<br />         .如果真结束<br />         .如果真 (文本_取长度 (IEEE二制临存1 [计次1 [4]]) ＝ 3)<br />             IEEE二制临存1 [计次1 [4]] ＝ “0” ＋ IEEE二制临存1 [计次1 [4]]<br />             ' 2进制0补位<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .判断开始 (到整数 (取文本左边 (IEEE二制临存1 [7], 1)) ＝ 0)<br />         IEEE的S值1 ＝ “”<br /> <br />     .默认<br />         IEEE的S值1 ＝ “-”<br />     .判断结束<br />     IEEE的E值1 ＝ 进制_二到十 (取文本右边 (IEEE二制临存1 [7], 3) ＋ IEEE二制临存1 [8] ＋ 取文本左边 (IEEE二制临存1 [5], 1))<br />     IEEE的M值1 ＝ 进制_二到十 (取文本右边 (IEEE二制临存1 [5], 3) ＋ IEEE二制临存1 [6] ＋ IEEE二制临存1 [4] ＋ IEEE二制临存1 [1] ＋ IEEE二制临存1 [2] ＋ IEEE二制临存1 [2])<br />     IEEE返回文本1 ＝ IEEE的S值1 ＋ 到文本 ((1 ＋ IEEE的M值1 × 求次方 (2, -23)) × 求次方 (2, IEEE的E值1 － 127))<br />     返回 (到文本 (四舍五入 (到数值 (IEEE返回文本1), 1)))  ' 自动保留一位小数<br /> .默认<br />     返回 (“暂时无法计算”)<br /> .判断结束

夏亿

感谢分享~

烈焰029雨魔

支持开源~！感谢分享

临安

感谢分享~~~~~~~~~~~~~~~~~~~~~~

一指温柔

谢谢分享

396384183

是感谢分享

chenxiao20

感谢分享~~~~~~~~~~~~~~~~~~~~~~

Conquer

感谢分享，很给力！~

深圳梦

感谢分享，很给力！~