易语言初学作业，第九课：前课程总结性质的登陆程序。。

EHUATOOpTWO

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序集_用户名录入群组	文本型	0
程序集_用户密码群组	文本型	0
程序集_录入账户数目	整数型
程序集_当前账户	文本型
程序集_当前密码	文本型
程序集_时钟计数	整数型
程序集_是否播放音乐	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 600
程序集_时钟计数 ＝ 0
按钮_登陆.禁止 ＝ 真
按钮_录入用户信息.禁止 ＝ 真
编辑框_用户名.禁止 ＝ 真
编辑框_用户密码.禁止 ＝ 真
标签1.禁止 ＝ 真
标签2.禁止 ＝ 真
右键菜单.禁止 ＝ 真
程序集_是否播放音乐 ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

_启动窗口.弹出菜单 (右键菜单, _启动窗口.左边 ＋ 横向位置, _启动窗口.顶边 ＋ 纵向位置)

子程序名	返回值类型	公开	备 注
_按钮_录入用户信息_被单击

判断 (子程序_考校账户_初步考校 (程序集_当前账户, 程序集_当前密码) ＝ 假)
信息框 (“账号密码长度不对，账号至少5位，密码起码6位；”, 0, , )
返回 ()
判断 (子程序_考校账户_深度考校 (程序集_当前密码) ＝ 3)
加入成员 (程序集_用户名录入群组, 程序集_当前账户)
加入成员 (程序集_用户密码群组, 程序集_当前密码)
程序集_录入账户数目 ＝ 程序集_录入账户数目 ＋ 1
程序集_当前账户 ＝ “”
程序集_当前密码 ＝ “”
编辑框_用户名.内容 ＝ “”
编辑框_用户密码.内容 ＝ “”
信息框 (“账号密码录入成功，可以试着检索。。”, 0, , )
信息框 (“密码成分不合格，密码需要同时包括大小写字母和数字；”, 0, , )
返回 ()

子程序名	返回值类型	公开	备 注
_按钮_登陆_被单击

变量名	类 型	静态	数组	备 注
局部_计次变量	整数型
局部_积值变量	整数型

局部_积值变量 ＝ 0
计次循环首 (程序集_录入账户数目, 局部_计次变量)
如果 (程序集_用户名录入群组 [局部_计次变量] ＝ 程序集_当前账户 且 程序集_用户密码群组 [局部_计次变量] ＝ 程序集_当前密码)
信息框 (“登陆试验成功；” ＋ 到文本 (局部_计次变量) ＋ “号账户符合要求；”, 0, , )
如果真 (信息框 (“请确认程序，准备播放音乐；”, 4, , ) ＝ #是钮 )
判断 (程序集_是否播放音乐 ＝ 假)
播放MP3 (3, “1.MP3”)
程序集_是否播放音乐 ＝ 真
信息框 (“音乐正在播放，请及时响应；”, 0, , )

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (“e.ico”, “可以双击解除托盘模式；”)
局部_积值变量 ＝ 局部_积值变量 ＋ 1
到循环尾 ()
跳出循环 ()
计次循环尾 ()
如果真 (局部_积值变量 ＝ 0)
信息框 (“登陆不成功，请检查用户信息；”, 0, , )

子程序名	返回值类型	公开	备 注
_编辑框_用户名_失去焦点

程序集_当前账户 ＝ 编辑框_用户名.内容

子程序名	返回值类型	公开	备 注
_编辑框_用户密码_失去焦点

程序集_当前密码 ＝ 编辑框_用户密码.内容

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
局部_计次变量	整数型

局部_计次变量 ＝ 局部_计次变量 ＋ 1
如果真 (局部_计次变量 ≥ 9)
如果 (局部_计次变量 ＞ 9)
时钟1.时钟周期 ＝ 0
_启动窗口.标题 ＝ “登陆界面程序：”
如果真 (局部_计次变量 ＝ 9)
按钮_登陆.禁止 ＝ 假
按钮_录入用户信息.禁止 ＝ 假
编辑框_用户名.禁止 ＝ 假
编辑框_用户密码.禁止 ＝ 假
标签1.禁止 ＝ 假
标签2.禁止 ＝ 假
右键菜单.禁止 ＝ 假
时钟1.时钟周期 ＝ 1200
_启动窗口.标题 ＝ “启动完成：欢迎使用；”
返回 ()
返回 ()
程序集_时钟计数 ＝ 程序集_时钟计数 ％ 4
如果真 (程序集_时钟计数 ＝ 1)
_启动窗口.标题 ＝ “启动中。”
如果真 (程序集_时钟计数 ＝ 2)
_启动窗口.标题 ＝ “启动中。。”
如果真 (程序集_时钟计数 ＝ 3)
_启动窗口.标题 ＝ “启动中。。。”
如果真 (程序集_时钟计数 ＝ 0)
_启动窗口.标题 ＝ “启动中”
程序集_时钟计数 ＝ 程序集_时钟计数 ＋ 1

子程序名	返回值类型	公开	备 注
_帮助_被选择

信息框 (“本程序是用户登陆界面程序，我们可以先录入账户，然后登陆操作。。”, 0, , )

子程序名	返回值类型	公开	备 注
_退出_被选择

销毁 ()

子程序名	返回值类型	公开	备 注
_托盘操作_被选择

如果 (_启动窗口.可视 ＝ 真)
_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (“e.ico”, “可以双击解除托盘模式；”)
判断 (_启动窗口.可视 ＝ 假)
_启动窗口.可视 ＝ 真
_启动窗口.置托盘图标 (, )

子程序名	返回值类型	公开	备 注
__启动窗口_托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

判断 (操作类型 ＝ #双击 )
_启动窗口.可视 ＝ 真
如果真 (程序集_是否播放音乐 ＝ 真)
停止播放 ()
程序集_是否播放音乐 ＝ 假
_启动窗口.置托盘图标 (, )
判断 (操作类型 ＝ #单击右键 )
弹出托盘菜单 (右键菜单)

子程序名	返回值类型	公开	备 注
子程序_考校账户_初步考校	逻辑型
参数名	类 型	参考	可空	数组	备 注
参数_用户名	文本型
参数_密码	文本型

判断 (取文本长度 (参数_用户名) ＜ 5)
返回 (假)
判断 (取文本长度 (参数_密码) ＜ 6)
返回 (假)
返回 (真)

子程序名	返回值类型	公开	备 注
子程序_考校账户_深度考校	整数型
参数名	类 型	参考	可空	数组	备 注
参数_密码	文本型

变量名	类 型	静态	数组	备 注
局部_考校数据	文本型
局部_考校当值	文本型
局部_考校计数	整数型

局部_考校数据 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”
局部_考校计数 ＝ 0
局部_考校当值 ＝ “0”
计次循环首 (10, )
局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)
局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)
如果真 (局部_考校计数 ＜ 1)
如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)
局部_考校计数 ＝ 局部_考校计数 ＋ 1




计次循环尾 ()
如果真 (局部_考校计数 ＜ 1)
返回 (0)
局部_考校当值 ＝ “a”
计次循环首 (26, )
局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)
局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)
如果真 (局部_考校计数 ＜ 2)
如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)
局部_考校计数 ＝ 局部_考校计数 ＋ 1




计次循环尾 ()
如果真 (局部_考校计数 ＜ 2)
返回 (1)
局部_考校当值 ＝ “A”
计次循环首 (26, )
局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)
局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)
如果真 (局部_考校计数 ＜ 3)
如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)
局部_考校计数 ＝ 局部_考校计数 ＋ 1




计次循环尾 ()
如果真 (局部_考校计数 ＜ 3)
返回 (2)
返回 (局部_考校计数)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序集_用户名录入群组, 文本型, , "0"<br /> .程序集变量 程序集_用户密码群组, 文本型, , "0"<br /> .程序集变量 程序集_录入账户数目, 整数型<br /> .程序集变量 程序集_当前账户, 文本型<br /> .程序集变量 程序集_当前密码, 文本型<br /> .程序集变量 程序集_时钟计数, 整数型<br /> .程序集变量 程序集_是否播放音乐, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 600<br /> 程序集_时钟计数 ＝ 0<br /> 按钮_登陆.禁止 ＝ 真<br /> 按钮_录入用户信息.禁止 ＝ 真<br /> 编辑框_用户名.禁止 ＝ 真<br /> 编辑框_用户密码.禁止 ＝ 真<br /> 标签1.禁止 ＝ 真<br /> 标签2.禁止 ＝ 真<br /> 右键菜单.禁止 ＝ 真<br /> 程序集_是否播放音乐 ＝ 假<br /> <br /> .子程序 __启动窗口_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> _启动窗口.弹出菜单 (右键菜单, _启动窗口.左边 ＋ 横向位置, _启动窗口.顶边 ＋ 纵向位置)<br /> <br /> .子程序 _按钮_录入用户信息_被单击<br /> <br /> .判断开始 (子程序_考校账户_初步考校 (程序集_当前账户, 程序集_当前密码) ＝ 假)<br />     信息框 (“账号密码长度不对，账号至少5位，密码起码6位；”, 0, , )<br />     返回 ()<br /> .判断 (子程序_考校账户_深度考校 (程序集_当前密码) ＝ 3)<br />     加入成员 (程序集_用户名录入群组, 程序集_当前账户)<br />     加入成员 (程序集_用户密码群组, 程序集_当前密码)<br />     程序集_录入账户数目 ＝ 程序集_录入账户数目 ＋ 1<br />     程序集_当前账户 ＝ “”<br />     程序集_当前密码 ＝ “”<br />     编辑框_用户名.内容 ＝ “”<br />     编辑框_用户密码.内容 ＝ “”<br />     信息框 (“账号密码录入成功，可以试着检索。。”, 0, , )<br /> .默认<br />     信息框 (“密码成分不合格，密码需要同时包括大小写字母和数字；”, 0, , )<br /> .判断结束<br /> 返回 ()<br /> <br /> .子程序 _按钮_登陆_被单击<br /> .局部变量 局部_计次变量, 整数型<br /> .局部变量 局部_积值变量, 整数型<br /> <br /> 局部_积值变量 ＝ 0<br /> .计次循环首 (程序集_录入账户数目, 局部_计次变量)<br />     .如果 (程序集_用户名录入群组 [局部_计次变量] ＝ 程序集_当前账户 且 程序集_用户密码群组 [局部_计次变量] ＝ 程序集_当前密码)<br />         信息框 (“登陆试验成功；” ＋ 到文本 (局部_计次变量) ＋ “号账户符合要求；”, 0, , )<br />         .如果真 (信息框 (“请确认程序，准备播放音乐；”, 4, , ) ＝ #是钮)<br />             .判断开始 (程序集_是否播放音乐 ＝ 假)<br />                 播放MP3 (3, “1.MP3”)<br />                 程序集_是否播放音乐 ＝ 真<br />             .默认<br />                 信息框 (“音乐正在播放，请及时响应；”, 0, , )<br />             .判断结束<br /> <br />         .如果真结束<br />         _启动窗口.可视 ＝ 假<br />         _启动窗口.置托盘图标 (“e.ico”, “可以双击解除托盘模式；”)<br />         局部_积值变量 ＝ 局部_积值变量 ＋ 1<br />     .否则<br />         到循环尾 ()<br />     .如果结束<br />     跳出循环 ()<br /> .计次循环尾 ()<br /> .如果真 (局部_积值变量 ＝ 0)<br />     信息框 (“登陆不成功，请检查用户信息；”, 0, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 _编辑框_用户名_失去焦点<br /> <br /> 程序集_当前账户 ＝ 编辑框_用户名.内容<br /> <br /> .子程序 _编辑框_用户密码_失去焦点<br /> <br /> 程序集_当前密码 ＝ 编辑框_用户密码.内容<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 局部_计次变量, 整数型, 静态<br /> <br /> 局部_计次变量 ＝ 局部_计次变量 ＋ 1<br /> .如果真 (局部_计次变量 ≥ 9)<br />     .如果 (局部_计次变量 ＞ 9)<br />         时钟1.时钟周期 ＝ 0<br />         _启动窗口.标题 ＝ “登陆界面程序：”<br />     .否则<br />         .如果真 (局部_计次变量 ＝ 9)<br />             按钮_登陆.禁止 ＝ 假<br />             按钮_录入用户信息.禁止 ＝ 假<br />             编辑框_用户名.禁止 ＝ 假<br />             编辑框_用户密码.禁止 ＝ 假<br />             标签1.禁止 ＝ 假<br />             标签2.禁止 ＝ 假<br />             右键菜单.禁止 ＝ 假<br />             时钟1.时钟周期 ＝ 1200<br />             _启动窗口.标题 ＝ “启动完成：欢迎使用；”<br />         .如果真结束<br />         返回 ()<br />     .如果结束<br />     返回 ()<br /> .如果真结束<br /> 程序集_时钟计数 ＝ 程序集_时钟计数 ％ 4<br /> .如果真 (程序集_时钟计数 ＝ 1)<br />     _启动窗口.标题 ＝ “启动中。”<br /> .如果真结束<br /> .如果真 (程序集_时钟计数 ＝ 2)<br />     _启动窗口.标题 ＝ “启动中。。”<br /> .如果真结束<br /> .如果真 (程序集_时钟计数 ＝ 3)<br />     _启动窗口.标题 ＝ “启动中。。。”<br /> .如果真结束<br /> .如果真 (程序集_时钟计数 ＝ 0)<br />     _启动窗口.标题 ＝ “启动中”<br /> .如果真结束<br /> 程序集_时钟计数 ＝ 程序集_时钟计数 ＋ 1<br /> <br /> <br /> .子程序 _帮助_被选择<br /> <br /> 信息框 (“本程序是用户登陆界面程序，我们可以先录入账户，然后登陆操作。。”, 0, , )<br /> <br /> <br /> .子程序 _退出_被选择<br /> <br /> 销毁 ()<br /> <br /> <br /> .子程序 _托盘操作_被选择<br /> <br /> .如果 (_启动窗口.可视 ＝ 真)<br />     _启动窗口.可视 ＝ 假<br />     _启动窗口.置托盘图标 (“e.ico”, “可以双击解除托盘模式；”)<br /> .否则<br />     .判断开始 (_启动窗口.可视 ＝ 假)<br />         _启动窗口.可视 ＝ 真<br />         _启动窗口.置托盘图标 (, )<br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_托盘事件<br /> .参数 操作类型, 整数型<br /> <br /> .判断开始 (操作类型 ＝ #双击)<br />     _启动窗口.可视 ＝ 真<br />     .如果真 (程序集_是否播放音乐 ＝ 真)<br />         停止播放 ()<br />         程序集_是否播放音乐 ＝ 假<br />     .如果真结束<br />     _启动窗口.置托盘图标 (, )<br /> .判断 (操作类型 ＝ #单击右键)<br />     弹出托盘菜单 (右键菜单)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 子程序_考校账户_初步考校, 逻辑型<br /> .参数 参数_用户名, 文本型<br /> .参数 参数_密码, 文本型<br /> <br /> .判断开始 (取文本长度 (参数_用户名) ＜ 5)<br />     返回 (假)<br /> .判断 (取文本长度 (参数_密码) ＜ 6)<br />     返回 (假)<br /> .默认<br />     返回 (真)<br /> .判断结束<br /> <br /> <br /> .子程序 子程序_考校账户_深度考校, 整数型<br /> .参数 参数_密码, 文本型<br /> .局部变量 局部_考校数据, 文本型<br /> .局部变量 局部_考校当值, 文本型<br /> .局部变量 局部_考校计数, 整数型<br /> <br /> 局部_考校数据 ＝ “0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ”<br /> 局部_考校计数 ＝ 0<br /> 局部_考校当值 ＝ “0”<br /> .计次循环首 (10, )<br />     局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)<br />     局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)<br />     .如果真 (局部_考校计数 ＜ 1)<br />         .如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)<br />             局部_考校计数 ＝ 局部_考校计数 ＋ 1<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (局部_考校计数 ＜ 1)<br />     返回 (0)<br /> .如果真结束<br /> 局部_考校当值 ＝ “a”<br /> .计次循环首 (26, )<br />     局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)<br />     局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)<br />     .如果真 (局部_考校计数 ＜ 2)<br />         .如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)<br />             局部_考校计数 ＝ 局部_考校计数 ＋ 1<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (局部_考校计数 ＜ 2)<br />     返回 (1)<br /> .如果真结束<br /> 局部_考校当值 ＝ “A”<br /> .计次循环首 (26, )<br />     局部_考校当值 ＝ 取文本左边 (局部_考校数据, 1)<br />     局部_考校数据 ＝ 取文本右边 (局部_考校数据, 取文本长度 (局部_考校数据) － 1)<br />     .如果真 (局部_考校计数 ＜ 3)<br />         .如果 (寻找文本 (参数_密码, 局部_考校当值, 1, 假) ≠ -1)<br />             局部_考校计数 ＝ 局部_考校计数 ＋ 1<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (局部_考校计数 ＜ 3)<br />     返回 (2)<br /> .如果真结束<br /> 返回 (局部_考校计数)

ghost12

很好很强悍，坚持下去哦~

yizhie666

感谢，6666666666666666666666666666666666666666666666

f15007937680

支持开源 学习

laojikiss200

6666666666666666

EHUATOOpTWO

谢谢大家支持啊。。
-有空多聊。

tapouki

支持一下

喵帕斯和艾希

kantal

厉害~！支持一下