开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 5055|回复: 13
收起左侧

我的易语言成长史!

[复制链接]
结帖率:100% (1/1)
发表于 2017-12-31 04:25:31 | 显示全部楼层 |阅读模式   江苏省苏州市
自己写的第一个完整地易语言,高手勿喷,刚学到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

我的登录器完善.e

9.92 KB, 下载次数: 5, 下载积分: 精币 -2 枚

置托盘图标.e

3.57 KB, 下载次数: 3, 下载积分: 精币 -2 枚

闹钟.e

3.59 KB, 下载次数: 2, 下载积分: 精币 -2 枚

99乘法表.e

4.05 KB, 下载次数: 0, 下载积分: 精币 -2 枚

猜数字.e

5.31 KB, 下载次数: 2, 下载积分: 精币 -2 枚

计算器源码.e

9.91 KB, 下载次数: 3, 下载积分: 精币 -2 枚

评分

参与人数 1好评 +1 精币 +2 收起 理由
烟斗 + 1 + 2 加油!

查看全部评分


发表于 2018-5-10 22:15:27 高大上手机用户 | 显示全部楼层   湖南省怀化市
判断换成记次循环方便
回复 支持 反对

使用道具 举报

发表于 2018-5-9 15:20:15 | 显示全部楼层   广东省广州市
同新人,楼主看的什么教程?
回复 支持 反对

使用道具 举报

结帖率:88% (7/8)
发表于 2018-4-14 07:45:38 | 显示全部楼层   浙江省金华市
请教下你看的是什么教程?
回复 支持 反对

使用道具 举报

发表于 2018-3-3 14:00:19 | 显示全部楼层   山东省聊城市
加油,加油
回复 支持 反对

使用道具 举报

发表于 2018-1-16 23:15:58 | 显示全部楼层   陕西省宝鸡市
支持同学,以后共同交流,我也才开始学。
回复 支持 反对

使用道具 举报

发表于 2018-1-16 21:31:14 | 显示全部楼层   辽宁省锦州市
可以呀比我强
回复 支持 反对

使用道具 举报

发表于 2018-1-15 16:05:47 | 显示全部楼层   北京市北京市
支持非常辛苦,谢谢分享
回复 支持 反对

使用道具 举报

结帖率:83% (5/6)
发表于 2018-1-14 03:47:25 | 显示全部楼层   广东省惠州市
支持非常辛苦
回复 支持 反对

使用道具 举报

结帖率:100% (11/11)

签到天数: 3 天

发表于 2018-1-5 11:52:46 | 显示全部楼层   广东省广州市
支持非常辛苦,谢谢分享
回复 支持 反对

使用道具 举报

结帖率:30% (3/10)

签到天数: 6 天

发表于 2018-1-4 19:19:38 | 显示全部楼层   广西壮族自治区贵港市
支持非常辛苦,谢谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表