.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 .局部变量 a, 整数型 .局部变量 s 标签1.标题 ＝ “” s ＝ 15 .计次循环首 (15, a) 重画 () 标签1.标题 ＝ 标签1.标题 ＋ 到文本 (s) ＋ “÷2=” ＋ 到文本 (到整数 (s ÷ 2)) ＋ “余” ＋ 到文本 (s ％ 2) ＋ #换行符 s ＝ s － 1 延迟 (36) .计次循环尾 () .子程序 _按钮2_被单击, , , 37%/4 编辑框3.内容 ＝ 文本到二进制 (编辑框2.内容) .子程序 文本到二进制, 文本型 .参数 文本, 文本型 .局部变量 数据, 字节集 .局部变量 长度, 整数型 .局部变量 计次, 整数型 .局部变量 hex, 文本型 .局部变量 txt, 文本型 .局部变量 二进制数据, 文本型 数据 ＝ 到字节集 (文本) 长度 ＝ 取字节集长度 (数据) ' 调试输出 (数据) txt ＝ “” .计次循环首 (长度, 计次) hex ＝ 十转十六 (数据 [计次]) ' 调试输出 (hex) 二进制数据 ＝ 十六转二 (hex) txt ＝ txt ＋ 二进制数据 处理事件 () .计次循环尾 () 返回 (txt) .子程序 二进制到文本, 文本型 .参数 数据, 文本型 .局部变量 二进制表, 文本型, , "0" .局部变量 a, 整数型 .局部变量 段, 文本型 .局部变量 c, 整数型 .局部变量 b .局部变量 结果, 文本型 .局部变量 txt, 字节集 .局部变量 q, 文本型 二进制表 ＝ 分割文本 (#进制表, #换行符, ) txt ＝ 取空白字节集 (取文本长度 (数据) ÷ 8) c ＝ 1 .计次循环首 (取文本长度 (数据) ÷ 4, ) 段 ＝ 取文本中间 (数据, c, 4) c ＝ c ＋ 4 ' 调试输出 (段, c) ' 延迟 (540) .计次循环首 (取数组成员数 (二进制表), a) .如果真 (取文本右边 (二进制表 [a], 4) ＝ 段) 结果 ＝ 取文本左边 (二进制表 [a], 1) ' 16进制 q ＝ q ＋ 结果 ' 调试输出 (结果) .如果真结束 处理事件 () .计次循环尾 () .计次循环尾 () 编辑框4.内容 ＝ q b ＝ 1 .计次循环首 (取文本长度 (q) ÷ 2, a) txt [a] ＝ 十六转十 (取文本中间 (q, b, 2)) ' 调试输出 (取文本中间 (q, b, 2)) b ＝ b ＋ 2 处理事件 () .计次循环尾 () ' 调试输出 (txt) 返回 (到文本 (txt)) .子程序 十转十六, 文本型 .参数 数, 整数型, , bu能超过255 .局部变量 hex, 文本型, , "6" .局部变量 hee, 文本型, , "6" .局部变量 十, 文本型 .局部变量 个, 文本型 .局部变量 a, 整数型 hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” } hee ＝ { “10”, “11”, “12”, “13”, “14”, “15” } 十 ＝ 到文本 (到整数 (数 ÷ 16)) 个 ＝ 到文本 (数 ％ 16) .计次循环首 (取数组成员数 (hex), a) .如果真 (十 ＝ hee [a]) 十 ＝ hex [a] .如果真结束 .如果真 (个 ＝ hee [a]) 个 ＝ hex [a] .如果真结束 处理事件 () .计次循环尾 () 返回 (十 ＋ 个) .子程序 十六转十, 整数型 .参数 hex数, 文本型 .局部变量 hex, 文本型, , "6" .局部变量 十, 文本型 .局部变量 个, 文本型 .局部变量 a, 整数型 .局部变量 hee, 文本型, , "6" .局部变量 结果, 整数型 .局部变量 定1, 逻辑型, , "2" hex ＝ { “A”, “B”, “C”, “D”, “E”, “F” } hee ＝ { “10”, “11”, “12”, “13”, “14”, “15” } .计次循环首 (取数组成员数 (hex), a) .如果真 (定1 [1] ＝ 假) .如果 (到大写 (取文本左边 (hex数, 1)) ＝ hex [a]) 十 ＝ hee [a] 定1 [1] ＝ 真 .否则 十 ＝ 取文本左边 (hex数, 1) .如果结束 .如果真结束 .如果真 (定1 [2] ＝ 假) .如果 (到大写 (取文本右边 (hex数, 1)) ＝ hex [a]) 个 ＝ hee [a] 定1 [2] ＝ 真 .否则 个 ＝ 取文本右边 (hex数, 1) .如果结束 .如果真结束 处理事件 () .计次循环尾 () ' 调试输出 (十, 个) 结果 ＝ 到整数 (十) × 16 ＋ 到整数 (个) 返回 (结果) .子程序 十六转二, 文本型 .参数 hex, 文本型 .局部变量 十, 文本型 .局部变量 个, 文本型 .局部变量 二进制表, 文本型, , "0" .局部变量 a, 整数型 .局部变量 结果, 文本型 .局部变量 定, 逻辑型 十 ＝ 到大写 (取文本左边 (hex, 1)) 个 ＝ 到大写 (取文本右边 (hex, 1)) ' 调试输出 (十, 个) 二进制表 ＝ 分割文本 (#进制表, #换行符, ) 结果 ＝ “” .计次循环首 (取数组成员数 (二进制表), a) .如果真 (取文本左边 (二进制表 [a], 1) ＝ 十) 结果 ＝ 结果 ＋ 取文本右边 (二进制表 [a], 4) .如果真结束 .计次循环尾 () .计次循环首 (取数组成员数 (二进制表), a) .如果真 (取文本左边 (二进制表 [a], 1) ＝ 个) 结果 ＝ 结果 ＋ 取文本右边 (二进制表 [a], 4) .如果真结束 .计次循环尾 () 返回 (结果) .子程序 _按钮3_被单击 编辑框3.内容 ＝ 二进制到文本 (编辑框2.内容) .子程序 _按钮4_被单击 调试输出 (十六转十 (“d5”), 十转十六 (10), 十六转二 (“31”)) .子程序 __启动窗口_创建完毕