.版本 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, , )
.判断结束
.默认
.判断结束
|