.版本 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”))
.子程序 __启动窗口_创建完毕
易语言+二进制