|
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 编码后, 字节集
- ' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
- 编码后 = 小数编码 (3.1415926)
- 调试输出 (编码后)
- 调试输出 (小数解码 (编码后))
- .子程序 小数编码, 字节集, 公开, 将小数编码成字节集 失败返回空字节集
- .参数 小数, 小数型
- .局部变量 整数部分, 整数型
- .局部变量 小数部分, 小数型
- 整数部分 = 到整数 (小数)
- .如果真 (整数部分 ≠ 到长整数 (小数))
- 返回 ({ })
- .如果真结束
- 小数部分 = 小数 - 整数部分
- 返回 (到字节集 (整数部分) + 到字节集 (到整数 (小数部分 × 2147483647)))
- .子程序 小数解码, 小数型, 公开, 将字节集解码成小数
- .参数 字节集, 字节集
- .局部变量 整数部分, 整数型
- .局部变量 小数部分, 小数型
- 整数部分 = 取字节集数据 (取字节集左边 (字节集, 4), 3, )
- 小数部分 = 取字节集数据 (取字节集右边 (字节集, 4), 3, ) ÷ 2147483647
- 返回 (整数部分 + 小数部分)
复制代码 |
|