这课重点讲的是综合前面所学。无难点
需要注意的是,ASCII表的应用
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 标题循环次数, 整数型
.程序集变量 数字, 逻辑型
.程序集变量 小写, 逻辑型
.程序集变量 大写, 逻辑型
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 600
.子程序 _时钟1_周期事件
.判断开始 (_启动窗口.标题 = “启动中.”)
_启动窗口.标题 = “启动中..”
.判断 (_启动窗口.标题 = “启动中..”)
_启动窗口.标题 = “启动中...”
.判断 (_启动窗口.标题 = “启动中...”)
_启动窗口.标题 = “启动中.”
.默认
.判断结束
标题循环次数 = 标题循环次数 + 1
.如果真 (标题循环次数 > 10)
时钟1.时钟周期 = 0
_启动窗口.标题 = “欢迎使用!”
.如果真结束
.子程序 _相关信息_被选择
信息框 (“沙雕!看你马呢!”, 0, , )
.子程序 _退出_被选择
销毁 ()
.子程序 _按钮1_被单击
.判断开始 (取文本长度 (编辑框1.内容) < 6)
信息框 (“用户名的长度小于6!”, 0, , )
返回 ()
.默认
.判断结束
.判断开始 (取文本长度 (编辑框2.内容) < 6)
信息框 (“密码的长度小于6!”, 0, , )
返回 ()
.默认
.判断结束
.判断开始 (数字 = 真 且 大写 = 真 且 小写 = 真)
信息框 (“需要输入大写小写和数字!”, 0, , )
.默认
返回 ()
.判断结束
.判断开始 (编辑框1.内容 = “123123”)
.判断开始 (编辑框2.内容 = “123123”)
信息框 (“登录成功!”, 0, , )
.默认
信息框 (“密码错误!”, 0, , )
.判断结束
.默认
信息框 (“账号错误”, 0, , )
.判断结束
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.判断开始 (操作类型 = #单击右键)
弹出托盘菜单 (菜单)
.默认
.判断结束
.判断开始 (操作类型 = #双击)
_启动窗口.可视 = 真
置托盘图标 (, )
.默认
.判断结束
.子程序 _编辑框2_字符输入, 整数型
.参数 字符代1码, 整数型
.判断开始 (字符代1码 ≥ 48 且 字符代1码 ≤ 57)
输出调试文本 (字符代1码)
数字 = 真
.判断 (字符代1码 ≥ 65 且 字符代1码 ≤ 90)
输出调试文本 (字符代1码)
大写 = 真
.判断 (字符代1码 ≥ 97 且 字符代1码 ≤ 122)
输出调试文本 (字符代1码)
小写 = 真
.默认
.判断结束
.子程序 __启动窗口_位置被改变
.如果真 (位置 = 2)
_启动窗口.可视 = 假
置托盘图标 (#图片1, “第七课作业”)
.如果真结束