|
发表于 2012-8-29 19:16:00
|
显示全部楼层
四川省成都市
傾城じ爲素顔ジ 发表于 2012-8-29 19:02
额,咳咳,,,,顺便问你下 十六进制怎么转到十进制?
- .版本 2
- .程序集 窗口程序集1
- .子程序 _按钮1_被单击
- 编辑框2.内容 = 到文本 (十六进制到十进制 (编辑框1.内容))
- .子程序 _按钮2_被单击
- .局部变量 R, 整数型
- .局部变量 G, 整数型
- .局部变量 B, 整数型
- .局部变量 s, 字节集
- s = 到字节集 (到整数 (编辑框2.内容))
- R = s [1]
- G = s [2]
- B = s [3]
- 编辑框3.内容 = “RGB=” + 到文本 (R) + “:” + 到文本 (G) + “:” + 到文本 (B)
- .版本 2
- .程序集 程序集1
- .子程序 十六进制到十进制, 长整数型
- .参数 十六进制文本, 文本型
- .局部变量 文本, 文本型
- .局部变量 最终值, 长整数型
- .局部变量 i, 整数型, , , 中间循环变量
- .局部变量 临时数值, 文本型, , , 每一位上的值
- 文本 = 到小写 (十六进制文本)
- .变量循环首 (1, 取文本长度 (文本), 1, i)
- 临时数值 = 取文本中间 (文本, i, 1)
- .如果 (取代码 (临时数值, ) ≥ 取代码 (“a”, ) 且 取代码 (临时数值, ) ≤ 取代码 (“f”, ))
- 最终值 = 最终值 + (取代码 (临时数值, ) - 取代码 (“a”, ) + 10) × 求次方 (16, 取文本长度 (文本) - i)
- .否则
- 最终值 = 最终值 + 到数值 (临时数值) × 求次方 (16, 取文本长度 (文本) - i)
- .如果结束
- .变量循环尾 ()
- 返回 (最终值)
复制代码 |
|