易语言第六课学习课后作业，大家多多指教

YJH眼睛

.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 testnum, 整数型
.程序集变量 testcode1, 整数型
.程序集变量 testcode2, 整数型
.程序集变量 输入长度, 整数型
.程序集变量 判断字符, 文本型
.子程序 __启动窗口_创建完毕
编辑框_输入密码.获取焦点 ()
.子程序 _编辑框_输入账号_获得焦点
.如果真 (编辑框_输入账号.内容 ＝ “请输入账号”)
    编辑框_输入账号.内容 ＝ “”
.如果真结束

.子程序 _编辑框_输入账号_失去焦点
.判断开始 (编辑框_输入账号.内容 ＝ “”)
    编辑框_输入账号.内容 ＝ “请输入账号”
.默认
.判断结束

.子程序 _编辑框_输入密码_内容被改变
.局部变量 输入的字符, 文本型
.局部变量 密码保存, 文本型
.局部变量 密码变量, 整数型
.局部变量 密码变量保存, 整数型
testnum ＝ 0
testcode1 ＝ 0
testcode2 ＝ 0
' 输出调试文本 (判断字符)
输入长度 ＝ 取文本长度 (编辑框_输入密码.内容)
' 输出调试文本 (到文本 (输入长度))
密码保存 ＝ 编辑框_输入密码.内容
.变量循环首 (1, 输入长度, 1, 密码变量)
    ' 判断输入的每个字符
    输入的字符 ＝ 取文本右边 (密码保存, 密码变量)
    输入的字符 ＝ 取文本左边 (输入的字符, 1)
    输出调试文本 (输入的字符)
    ' 判断每个输入的字符是否为数字、大写字母和小写字母
    .判断开始 (取代码 (输入的字符, ) ≥ 48 且 取代码 (输入的字符, ) ≤ 57)  ' 判断输入的是否为数字
        testnum ＝ 1
    .判断 (取代码 (输入的字符, ) ≥ 65 且 取代码 (输入的字符, ) ≤ 90)  ' 判断输入的是否为大写字母
        testcode1 ＝ 1
    .判断 (取代码 (输入的字符, ) ≥ 97 且 取代码 (输入的字符, ) ≤ 122)  ' 判断输入的是否为小写字母
        testcode2 ＝ 1
    .默认
    .判断结束
    判断字符 ＝ 到文本 (testnum) ＋ 到文本 (testcode1) ＋ 到文本 (testcode2)
    输出调试文本 (判断字符 ＋ “字符”)
.变量循环尾 ()

.子程序 _按钮1_被单击
编辑框_输入账号.内容 ＝ 删全部空 (编辑框_输入账号.内容)
编辑框_输入密码.内容 ＝ 删全部空 (编辑框_输入密码.内容)
.判断开始 (编辑框_输入账号.内容 ＝ “请输入账号”)
    信息框 (“请输入账号”, 0, , )
.判断 (取文本长度 (编辑框_输入账号.内容) ＜ 5)
    信息框 (“请输入至少5位数的账号”, 0, , )
.判断 (编辑框_输入账号.内容 ＝ “Admin”)
    .判断开始 (取文本长度 (编辑框_输入密码.内容) ＜ 6)
        信息框 (“请输入至少6位数的密码”, 0, , )
    .判断 (判断字符 ＝ “111”)
        .判断开始 (编辑框_输入密码.内容 ＝ “Aa123456”)
            信息框 (“恭喜您，登录成功”, 0, , )
        .默认
            信息框 (“密码错误”, 0, , )
        .判断结束
    .默认
        信息框 (“请输入至少包含数字、大写字母和小写字母的密码”, 0, , )
    .判断结束
.默认
    信息框 (“账号错误”, 0, , )
.判断结束

.子程序 _编辑框_输入密码_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 ＝ #回车键)
    编辑框_输入账号.内容 ＝ 删全部空 (编辑框_输入账号.内容)
    编辑框_输入密码.内容 ＝ 删全部空 (编辑框_输入密码.内容)
    .判断开始 (编辑框_输入账号.内容 ＝ “请输入账号”)
        信息框 (“请输入账号”, 0, , )
    .判断 (取文本长度 (编辑框_输入账号.内容) ＜ 5)
        信息框 (“请输入至少5位数的账号”, 0, , )
    .判断 (编辑框_输入账号.内容 ＝ “Admin”)
        .判断开始 (取文本长度 (编辑框_输入密码.内容) ＜ 6)
            信息框 (“请输入至少6位数的密码”, 0, , )
        .判断 (判断字符 ＝ “111”)
            .判断开始 (编辑框_输入密码.内容 ＝ “Aa123456”)
                信息框 (“恭喜您，登录成功”, 0, , )
            .默认
                信息框 (“密码错误”, 0, , )
            .判断结束
        .默认
            信息框 (“请输入至少包含数字、大写字母和小写字母的密码”, 0, , )
        .判断结束
    .默认
        信息框 (“账号错误”, 0, , )
    .判断结束
.默认
.判断结束

2277911286

很好 如果在加上一些高深的代码在里面 这个软件可以作为营xiao软件的登陆器了

sa123123

源码弄成附件不好吗

痞主

学习了 哈哈