|
10精币
怎么把输入的人前面带上自己的编号
比如说我输入 就显示 1号:**** 以下是源码
服务器
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 _服务器1_数据到达
.局部变量 i
编辑框1.加入文本 (“收到信息:” + 到文本 (服务器1.取回数据 ()) + #换行符)
i = 1
.计次循环首 (列表框1.取项目数 (), i)
服务器1.发送数据 (列表框1.取项目文本 (i - 1), 服务器1.取回数据 (), )
.计次循环尾 ()
.子程序 _服务器1_客户进入
编辑框1.加入文本 (服务器1.取回客户 () + “进入” + #换行符)
列表框1.加入项目 (服务器1.取回客户 (), )
.子程序 _服务器1_客户离开
.局部变量 i
编辑框1.加入文本 (服务器1.取回客户 () + “离开” + #换行符)
i = 1
.计次循环首 (列表框1.取项目数 (), i)
.如果真 (列表框1.取项目文本 (i - 1) = 服务器1.取回客户 ())
列表框1.删除项目 (i - 1)
跳出循环 ()
.如果真结束
.计次循环尾 ()
服务端
.版本 2
.子程序 _按钮发送_被单击
客户1.发送数据 (自己说话.内容)
自己说话.内容 = “”
' 聊天内容.加入文本 (自己说话.内容 + #换行符 + #换行符)
.子程序 _按钮连接_被单击
.如果 (编辑框ip.内容 = “”)
信息框 (“请输入服务器的IP地址”, 0, )
.否则
.如果 (客户1.连接 (编辑框ip.内容, 到数值 (编辑框port.内容)) = 真)
标题 = “客户端 - 连接【” + 编辑框ip.内容 + “】成功!”
按钮连接.禁止 = 真
按钮断开.禁止 = 假
按钮发送.禁止 = 假
连续赋值 (真, 编辑框ip.禁止, 编辑框port.禁止)
.否则
标题 = “客户端 - 连接【” + 编辑框ip.内容 + “】失败! ”
按钮连接.禁止 = 假
按钮断开.禁止 = 真
按钮发送.禁止 = 真
连续赋值 (假, 编辑框ip.禁止, 编辑框port.禁止)
.如果结束
.如果结束
.子程序 _按钮断开_被单击
客户1.断开连接 ()
标题 = “客户端 - 已经与【” + 编辑框ip.内容 + “】断开!”
按钮断开.禁止 = 真
按钮发送.禁止 = 真
连续赋值 (假, 编辑框ip.禁止, 编辑框port.禁止, 按钮连接.禁止)
.子程序 _客户1_数据到达
聊天内容.加入文本 (到文本 (客户1.取回数据 ()) + #换行符 + #换行符)
.子程序 _自己说话_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (功能键状态 = 1 且 键代码 = #回车键)
_按钮发送_被单击 ()
返回 (假)
.如果真结束
.子程序 _按钮退出_被单击
客户1.断开连接 ()
销毁 ()
.子程序 _按钮清屏_被单击
聊天内容.内容 = “”
.子程序 _编辑框port_内容被改变
.如果 (编辑框ip.内容 = “” 或 编辑框port.内容 = “”)
按钮连接.禁止 = 真
.否则
按钮连接.禁止 = 假
.如果结束
.子程序 _编辑框ip_内容被改变
.如果 (编辑框ip.内容 = “” 或 编辑框port.内容 = “”)
按钮连接.禁止 = 真
.否则
按钮连接.禁止 = 假
.如果结束
.子程序 _编辑框ip_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 = #回车键)
_按钮连接_被单击 ()
返回 (假)
.如果真结束
.子程序 __启动窗口_创建完毕
编辑框ip.内容 = “127.0.0.1”
|
|