第九课-登录软件2

这课重点讲的是综合前面所学。无难点

需要注意的是，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, “第七课作业”)

.如果真结束