首页
社区
课程
招聘
[原创]进制转换[易语言源代码]
发表于: 2006-6-30 21:45 8076

[原创]进制转换[易语言源代码]

2006-6-30 21:45
8076
易语言内部已经提供了整数型到16进制文本型的转换
我就补充两种比较常用的转换代码:

[原创]源代码分享--16进制文本到整数型

.版本 2

.子程序 HexToInt, 整数型
.参数 Hex, 文本型
.局部变量 n, 整数型
.局部变量 number, 整数型

.计次循环首 (取文本长度 (Hex), n)
    .如果真 (取代码 (“0”, ) ≤ 取代码 (到大写 (Hex), n) 且 取代码 (到大写 (Hex), n) ≤ 取代码 (“9”, ))
        number = number × 16 + 取代码 (到大写 (Hex), n) - 取代码 (“0”, )
    .如果真结束
    .如果真 (取代码 (“A”, ) ≤ 取代码 (到大写 (Hex), n) 且 取代码 (到大写 (Hex), n) ≤ 取代码 (“F”, ))
        number = number × 16 + 取代码 (到大写 (Hex), n) - 取代码 (“A”, ) + 10
    .如果真结束

.计次循环尾 ()
返回 (number)

五行代码即可实现进制转换!来自VC Runtime Source

[原创]源代码分享-整数型到二进制文本

.版本 2

.子程序 整数型到二进制文本, 文本型
.参数 整数, 整数型
.局部变量 文本, 文本型
.局部变量 返回文本, 文本型

.判断循环首 (整数 > 0)
    文本 = 文本 + 字符 (取代码 (“0”, ) + 整数 % 2)
    整数 = 整数 ÷ 2
.判断循环尾 ()
.计次循环首 (取文本长度 (文本), 整数)
    返回文本 = 返回文本 + 取文本中间 (文本, 取文本长度 (文本) - 整数 + 1, 1)
.计次循环尾 ()
返回 (返回文本)

8行吧。不是很多

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入!

收藏
免费 0
支持
分享
最新回复 (7)
雪    币: 333
活跃值: (45)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
wan
2
好东东```学习了```
2006-7-2 16:30
0
雪    币: 1852
活跃值: (504)
能力值: (RANK:1010 )
在线值:
发帖
回帖
粉丝
3
在本版块已经有类似的工具,所以就不加精了

文本和16进制数据相互转换工具
http://bbs.pediy.com/showthread.php?s=&threadid=27771

期待楼主更多佳作
2006-7-2 18:36
0
雪    币: 721
活跃值: (350)
能力值: ( LV9,RANK:1250 )
在线值:
发帖
回帖
粉丝
4
易语言程序看起来真令人毛骨悚然!
2006-7-3 08:56
0
雪    币: 200
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
eym
5
happytown

严重同意!E刚出来时好像不是这样的,我安装了一下就删了,这是第一次看到它的代码,看着有点乱
2006-7-6 16:05
0
雪    币: 248
活跃值: (1121)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
6
易语言=口水言
2006-7-6 17:03
0
雪    币: 4
活跃值: (39)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
学习一下 谢谢
2006-7-6 19:33
0
雪    币: 750
活跃值: (228)
能力值: ( LV9,RANK:780 )
在线值:
发帖
回帖
粉丝
8
不能这么说易的

它的IDE里用虚线和表格表示的

只是帖出来就有点难看了

唉,苦了易语言

它毕竟是国产的
2006-7-8 19:05
0
游客
登录 | 注册 方可回帖
返回
//