- UID
- 22350
注册时间2006-10-1
阅读权限30
最后登录1970-1-1
龙战于野
TA的每日心情 | 奋斗 2017-6-11 12:16 |
---|
签到天数: 10 天 [LV.3]偶尔看看II
|
在飘云老大的英名指导下,我终于用易语言写出了一个非常简单的注册机。
虽然简单,但 It is my first!!
下面是源程序代码共享:
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 len, 整数型
.局部变量 i, 整数型
.局部变量 meiwei, 整数型
.局部变量 name, 文本型
.局部变量 ebx, 整数型
.局部变量 eax, 整数型
.局部变量 ecx, 长整数型
.局部变量 n3, 文本型
.局部变量 n2, 文本型
.局部变量 n1, 文本型
n1 = “CM2”
name = 编辑框1.内容
len = 取文本长度 (name)
.如果 (len ≥ 1)
ecx = 0
.计次循环首 (len, i)
meiwei = 取代码 (name, i)
eax = 左移 (meiwei, 4)
ebx = 右移 (meiwei, 5)
eax = 位异或 (eax, ebx)
eax = eax + 38
eax = 位异或 (eax, ecx)
ecx = ecx + eax
.计次循环尾 ()
n2 = 取十六进制文本 (ecx)
eax = 789999
eax = eax - ecx
eax = eax × eax
n3 = 取十六进制文本 (eax)
编辑框2.内容 = n1 + “-” + n2 + “-” + n3
.否则
信息框 (“要输入用户名的喔!”, 0, )
.如果结束
.子程序 _按钮2_被单击
结束 () |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?加入我们
x
|