客户Duan和服务器

bugaosuni1314

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序集_用户	数据类型_用户	0

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

重定义数组 (程序集_用户, 假, 1)
程序集_用户 [1].用户编号 ＝ “10000”
程序集_用户 [1].用户密码 ＝ “123456”
程序集_用户 [1].用户名 ＝ “王艺霖”
程序集_用户 [1].用户性别 ＝ 真
程序集_用户 [1].用户年龄 ＝ 37
程序集_用户 [1].备注 ＝ “wefwejfisdfsd”

子程序名	返回值类型	公开	备 注
_服务器1_客户进入

变量名	类 型	静态	数组	备 注
局部_来源客户	文本型

输出调试文本 (服务器1.取回客户 ())
局部_来源客户 ＝ 服务器1.取回客户 ()
服务器1.发送数据 (局部_来源客户, “ok已经连接！”, )

子程序名	返回值类型	公开	备 注
_服务器1_数据到达

变量名	类 型	静态	数组	备 注
局部_数据	字节集
局部_数据分析	文本型		0
局部_来源客户	文本型
分割数量	整数型
i	整数型

局部_数据 ＝ 服务器1.取回数据 ()
局部_来源客户 ＝ 服务器1.取回客户 ()
输出调试文本 (到文本 (局部_数据))
输出调试文本 (到文本 (局部_来源客户))
判断 (取文本左边 (到文本 (局部_数据), 3) ＝ “DL|”)
局部_数据分析 ＝ 分割文本 (到文本 (局部_数据), “|”, )
如果真 (取数组成员数 (局部_数据分析) ＜ 3)
信息框 (“登陆数据不完整！”, #错误图标, , )
服务器1.发送数据 (局部_来源客户, “CW|登陆数据不完整！”, )
返回 ()
计次循环首 (取数组成员数 (程序集_用户), i)
如果真 (程序集_用户 [i].用户名 ＝ 局部_数据分析 [2])
调试输出 (“1”)
如果真 (程序集_用户 [i].用户密码 ＝ 局部_数据分析 [3])
调试输出 (“2”)
信息框 (“登陆成功，欢迎{” ＋ 程序集_用户 [i].用户名 ＋ “！”, #错误图标, , )
服务器1.发送数据 (局部_来源客户, “OK|登录成功|！” ＋ 程序集_用户 [i].用户名, )
返回 ()
服务器1.发送数据 (局部_来源客户, “CW|用户密码错误|”, )
返回 ()

计次循环尾 ()
服务器1.发送数据 (局部_来源客户, “CW|您输入的用户没有注册”, )
返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序集_用户, 数据类型_用户, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 重定义数组 (程序集_用户, 假, 1)<br /> 程序集_用户 [1].用户编号 ＝ “10000”<br /> 程序集_用户 [1].用户密码 ＝ “123456”<br /> 程序集_用户 [1].用户名 ＝ “王艺霖”<br /> 程序集_用户 [1].用户性别 ＝ 真<br /> 程序集_用户 [1].用户年龄 ＝ 37<br /> 程序集_用户 [1].备注 ＝ “wefwejfisdfsd”<br /> <br /> <br /> .子程序 _服务器1_客户进入<br /> .局部变量 局部_来源客户, 文本型<br /> <br /> 输出调试文本 (服务器1.取回客户 ())<br /> 局部_来源客户 ＝ 服务器1.取回客户 ()<br /> 服务器1.发送数据 (局部_来源客户, “ok已经连接！”, )<br /> <br /> <br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 局部_数据, 字节集<br /> .局部变量 局部_数据分析, 文本型, , "0"<br /> .局部变量 局部_来源客户, 文本型<br /> .局部变量 分割数量, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 局部_数据 ＝ 服务器1.取回数据 ()<br /> 局部_来源客户 ＝ 服务器1.取回客户 ()<br /> 输出调试文本 (到文本 (局部_数据))<br /> 输出调试文本 (到文本 (局部_来源客户))<br /> <br /> .判断开始 (取文本左边 (到文本 (局部_数据), 3) ＝ “DL|”)<br />     局部_数据分析 ＝ 分割文本 (到文本 (局部_数据), “|”, )<br /> <br />     .如果真 (取数组成员数 (局部_数据分析) ＜ 3)<br />         信息框 (“登陆数据不完整！”, #错误图标, , )<br />         服务器1.发送数据 (局部_来源客户, “CW|登陆数据不完整！”, )<br />         返回 ()<br /> <br />     .如果真结束<br />     .计次循环首 (取数组成员数 (程序集_用户), i)<br />         .如果真 (程序集_用户 <i>.用户名 ＝ 局部_数据分析 [2])<br /> <br />             调试输出 (“1”)<br /> <br />             .如果真 (程序集_用户 <i>.用户密码 ＝ 局部_数据分析 [3])<br />                 调试输出 (“2”)<br />                 信息框 (“登陆成功，欢迎{” ＋ 程序集_用户 <i>.用户名 ＋ “！”, #错误图标, , )<br />                 服务器1.发送数据 (局部_来源客户, “OK|登录成功|！” ＋ 程序集_用户 <i>.用户名, )<br />                 返回 ()<br />             .如果真结束<br />             服务器1.发送数据 (局部_来源客户, “CW|用户密码错误|”, )<br />             返回 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     服务器1.发送数据 (局部_来源客户, “CW|您输入的用户没有注册”, )<br /> <br />     返回 ()<br /> <br /> .默认<br /> <br /> .判断结束

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

如果真 (客户1.连接 (“127.0.0.1”, 到整数 (编辑框1.内容)) ＝ 假)
信息框 (“连接服务器失败！”, #错误图标, , )
返回 ()

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

客户1.发送数据 (“DL|” ＋ 编辑框2.内容 ＋ “|” ＋ 编辑框3.内容)

子程序名	返回值类型	公开	备 注
_客户1_数据到达

变量名	类 型	静态	数组	备 注
局部_数据	字节集

局部_数据 ＝ 客户1.取回数据 ()
调试输出 (到文本 (局部_数据))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果真 (客户1.连接 (“127.0.0.1”, 到整数 (编辑框1.内容)) ＝ 假)<br /> <br />     信息框 (“连接服务器失败！”, #错误图标, , )<br />     返回 ()<br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> <br /> 客户1.发送数据 (“DL|” ＋ 编辑框2.内容 ＋ “|” ＋ 编辑框3.内容)<br /> <br /> <br /> .子程序 _客户1_数据到达<br /> .局部变量 局部_数据, 字节集<br /> <br /> 局部_数据 ＝ 客户1.取回数据 ()<br /> 调试输出 (到文本 (局部_数据))

yuzhong

666666666666666666666666666666666

yuzhong

666666666666666666666666666666666666

江山少主

感谢分享，学习了