精易论坛

标题: 我的易语言成长史！ [打印本页]

作者: a123369 时间: 2017-12-31 04:25
标题: 我的易语言成长史！
自己写的第一个完整地易语言，高手勿喷，刚学到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