| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 整数转换 | 出来大于0的整数 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 参_待转换数 | 整数型 | ||||||
如果真 (参_待转换数 ＞ 0)
整数转换 (参_待转换数 ÷ 2) ' 递归整数临时码 ＝ 整数临时码 ＋ 到文本 (参_待转换数 ％ 2)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 小数转换 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 待转小数 | 双精度小数型 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 截取整数 | 整数型 | |||||
如果真 (待转小数 ≠ 0 且 取文本长度 (删全部空 (小数临时码)) ＜ 10) ' 递归方式，保留10位待转小数 ＝ 待转小数 × 2小数临时码 ＝ 小数临时码 ＋ 到文本 (到整数 (待转小数))小数转换 (待转小数 － 到整数 (待转小数)). ' 判断循环首 (待转小数 ≠ 0 且 取文本长度 (删全部空 (小数临时码)) ＜ 10) ' 循环方式，保留10位
' 待转小数 ＝ 待转小数 － 截取整数
' 待转小数 ＝ 待转小数 × 2
' 截取整数 ＝ 待转小数
' 小数临时码 ＝ 小数临时码 ＋ 到文本 (截取整数)
. ' 判断循环尾 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 输出二进制 | 文本型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 二进制码 | 文本型 | |||||
| 二进制总位数 | 整数型 | |||||
| 整数原码 | 文本型 | |||||
| 小数原码 | 文本型 | |||||
判断 (组合框1.现行选中项 ＝ 0)
二进制总位数 ＝ 32 ' 默认值
判断 (组合框1.现行选中项 ＝ 1)
二进制总位数 ＝ 64
整数原码 ＝ 取重复文本 (二进制总位数 － 取文本长度 (整数临时码), “0”) ＋ 整数临时码
' 分组，4位一组，便于阅读
如果 (整数部分 ＜ 0)整数原码 ＝ 负整数转换 (整数原码)整数原码 ＝ 分组 (整数原码) ' 方便阅读整数原码 ＝ 分组 (整数原码)' 小数原码处理
小数原码 ＝ “.” ＋ 分组 (小数临时码)
' 合并
判断 (整数部分 ≠ 0)如果 (小数部分 ＝ 0)二进制码 ＝ 整数原码二进制码 ＝ 整数原码 ＋ 小数原码判断 (小数部分 ＜ 0) ' 纯小数二进制码 ＝ “- 0” ＋ 小数原码二进制码 ＝ “0” ＋ 小数原码返回 (删首尾空 (二进制码))
