我的易语言成长史！

a123369

自己写的第一个完整地易语言，高手勿喷，刚学到9课，希望能坚持下去！










.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 启动效果, 整数型
.程序集变量 数字, 逻辑型
.程序集变量 小写, 逻辑型
.程序集变量 大写, 逻辑型
.子程序 __启动窗口_创建完毕
时钟启动.时钟周期 ＝ 600
编辑框2.获取焦点 ()
编辑框1.内容 ＝ “请输入账号”
.子程序 _时钟启动_周期事件
.判断开始 (_启动窗口.标题 ＝ “正在启动.”)
    _启动窗口.标题 ＝ “正在启动..”
.判断 (_启动窗口.标题 ＝ “正在启动..”)
    _启动窗口.标题 ＝ “正在启动...”
.判断 (_启动窗口.标题 ＝ “正在启动...”)
    _启动窗口.标题 ＝ “正在启动....”
.判断 (_启动窗口.标题 ＝ “正在启动....”)
    _启动窗口.标题 ＝ “正在启动.....”
.判断 (_启动窗口.标题 ＝ “正在启动.....”)
    _启动窗口.标题 ＝ “正在启动.”
.默认
.判断结束
启动效果 ＝ 启动效果 ＋ 1
.判断开始 (启动效果 ＞ 8)
    时钟启动.时钟周期 ＝ 0
    _启动窗口.标题 ＝ “欢迎使用”
.默认
.判断结束

.子程序 _退出_被选择
销毁 ()

.子程序 _隐藏_被选择
置托盘图标 (“C:\Users\Administrator\Desktop\易语言源码\favicon-20171230114441631.ico”, “我的登陆器”)
_启动窗口.可视 ＝ 假
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
调试输出 (操作类型)
.判断开始 (_启动窗口.可视 ＝ 真)
    置托盘图标 (, )
.默认
.判断结束
.判断开始 (操作类型 ＝ #单击右键)
    弹出托盘菜单 (菜单)
.判断 (操作类型 ＝ #双击)
    _启动窗口.可视 ＝ 真
.默认
.判断结束

.子程序 _按钮1_被单击
.判断开始 (取文本长度 (编辑框1.内容) ＜ 5)
    信息框 (“账号，密码长度不足6位”, 0, , )
    返回 ()
.判断 (取文本长度 (编辑框2.内容) ＜ 6)
    信息框 (“账号，密码长度不足6位”, 0, , )
    返回 ()
.默认
.判断结束
编辑框1.内容 ＝ 删首尾空 (编辑框1.内容)
编辑框2.内容 ＝ 删首尾空 (编辑框2.内容)
.判断开始 (大写 ＝ 真 且 数字 ＝ 真 且 小写 ＝ 真)
.默认
    信息框 (“密码需要为，大写，小写，数字”, 0, , )
    返回 ()
.判断结束

.判断开始 (编辑框1.内容 ＝ “admin” 且 编辑框2.内容 ＝ “Aa000000”)
    信息框 (“登陆成功”, 0, , )
.默认
    信息框 (“密码账号错误”, 0, , )
    返回 ()
.判断结束

.子程序 _编辑框1_获得焦点

编辑框1.内容 ＝ “”
.子程序 _编辑框1_失去焦点
.如果真 (编辑框1.内容 ＝ “”)
    编辑框1.内容 ＝ “请输入账号”
.如果真结束


.子程序 _编辑框2_字符输入, 整数型
.参数 字符代码, 整数型
调试输出 (字符代码)
.判断开始 (字符代码 ≥ 48 且 字符代码 ≤ 57)
    输出调试文本 (“数字”)
    数字 ＝ 真
.判断 (字符代码 ≥ 65 且 字符代码 ≤ 90)
    输出调试文本 (“大写”)
    大写 ＝ 真
.判断 (字符代码 ≥ 97 且 字符代码 ≤ 122)
    输出调试文本 (“小写”)
    小写 ＝ 真
.默认
.判断结束

.子程序 _按钮1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
    _按钮1_被单击 ()
.如果真结束


.子程序 _按钮1_获得焦点
按钮1.宽度 ＝ 120
按钮1.高度 ＝ 55
.子程序 _按钮1_失去焦点
按钮1.宽度 ＝ 112
按钮1.高度 ＝ 48

q2394134442

判断换成记次循环方便

flyhua11

同新人，楼主看的什么教程？

borea

请教下你看的是什么教程？

飞子

加油，加油

wentian24

支持同学，以后共同交流，我也才开始学。

hk6242337

可以呀比我强

hkxiang

支持非常辛苦，谢谢分享

坏涛

支持非常辛苦

戏雨流年

支持非常辛苦，谢谢分享

yang6812

支持非常辛苦，谢谢分享