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

子程序名	返回值类型	公开	备注
共用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 />
.判断结束