计次循环问题

aochens

  

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

时钟1.时钟周期 ＝ 60000
客户1.连接 (“127.0.0.1”, 6666)

.版本 2<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时钟1.时钟周期 ＝ 60000<br /> 客户1.连接 (“127.0.0.1”, 6666)

用计次循环 从软件打开运行一次间隔1分钟运行1次 一共运行5次应该怎么写！

LEOONL

  

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

启动线程 (&连接, , )

子程序名	返回值类型	公开	备 注
连接

计次循环首 (5, )
客户1.连接 (“127.0.0.1”, 6666)
延时 (60000)
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&连接, , )<br /> <br /> .子程序 连接<br /> <br /> .计次循环首 (5, )<br />     客户1.连接 (“127.0.0.1”, 6666)<br />     延时 (60000)<br /> .计次循环尾 ()

鹏书

  

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

计次循环首 (5, )
客户1.连接 (“127.0.0.1”, 6666)
延迟 (1000 × 60)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .计次循环首 (5, )<br />     客户1.连接 (“127.0.0.1”, 6666)<br />     延迟 (1000 × 60)<br /> .计次循环尾 ()

深寒

用时钟或者在计次循环中使用延迟，但是客户访问最好在线程里进行。这样不卡界面

aochens

LEOONL 发表于 2024-8-26 19:50

  

[/quote]
大佬 你发我的 这里刷新应该怎么写呀，有的关闭了客户Duan，上面还是显示。怎么写成客户Duan关闭自动退出！
或者在服务端整一个刷新的按钮！
[img=627,458]https://img.picui.cn/free/2024/08/26/66cc6ee0cd477.png[/img]
[e=3].版本 2

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
客户句柄	文本型

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

变量名	类 型	静态	数组	备 注
列数	整数型
i	整数型
j	整数型
temp	文本型
text	文本型
new	文本型
行数	整数型

行数 ＝ 超级列表框1.取表项数 ()
列数 ＝ 超级列表框1.取列数 ()
计次循环首 (行数, i)
计次循环首 (列数, j)
temp ＝ 超级列表框1.取标题 (i － 1, j － 1)
text ＝ text ＋ temp ＋ “ ”
计次循环尾 ()
new ＝ new ＋ text ＋ #换行符
text ＝ “”
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\text.txt”, 到字节集 (new))
信息框 (“生成成功，文件名text.txt”, 0, “生成成功”, )

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

变量名	类 型	静态	数组	备 注
进程文本	文本型		0
进程信息	文本型		0
n	整数型

超级列表框1.全部删除 ()
进程文本 ＝ 分割文本 (到文本 (解压数据 (服务器1.取回数据 ())), #换行符, )
计次循环首 (取数组成员数 (进程文本), n)
进程信息 ＝ 分割文本 (进程文本 [n], “----”, )
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (n － 1, 0, 进程信息 [1])
超级列表框1.置标题 (n － 1, 1, 进程信息 [2])
计次循环尾 ()

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

超级列表框2.插入表项 (, 服务器1.取回客户 (), , , , )

子程序名	返回值类型	公开	备 注
_超级列表框2_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

服务器1.发送数据 (超级列表框2.取标题 (超级列表框2.现行选中项, 0), 压缩数据 (到字节集 (“获取进程”)), )

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
dp1	数据操作支持库一

.版本 2<br /> .支持库 EThread</blockquote></div><br /> 大佬 你发我的 这里刷新应该怎么写呀，有的关闭了客户Duan，上面还是显示。怎么写成客户Duan关闭自动退出！<br /> 或者在服务端整一个刷新的按钮！<br /> <img id="aimg_oI14h" onclick="zoom(this, this.src, 0, 0, 0)" class="zoom" width="627" height="458" src="https://img.picui.cn/free/2024/08/26/66cc6ee0cd477.png" border="0" alt="" /><br /> [e=3].版本 2<br /> .支持库 iext<br /> .支持库 dp1<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 客户句柄, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 列数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 temp, 文本型<br /> .局部变量 text, 文本型<br /> .局部变量 new, 文本型<br /> .局部变量 行数, 整数型<br /> <br /> 行数 ＝ 超级列表框1.取表项数 ()<br /> 列数 ＝ 超级列表框1.取列数 ()<br /> .计次循环首 (行数, i)<br />     .计次循环首 (列数, j)<br />         temp ＝ 超级列表框1.取标题 (i － 1, j － 1)<br />         text ＝ text ＋ temp ＋ “ ”<br />     .计次循环尾 ()<br />     new ＝ new ＋ text ＋ #换行符<br />     text ＝ “”<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\text.txt”, 到字节集 (new))<br /> 信息框 (“生成成功，文件名text.txt”, 0, “生成成功”, )<br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 进程文本, 文本型, , "0"<br /> .局部变量 进程信息, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 进程文本 ＝ 分割文本 (到文本 (解压数据 (服务器1.取回数据 ())), #换行符, )<br /> .计次循环首 (取数组成员数 (进程文本), n)<br />     进程信息 ＝ 分割文本 (进程文本 [n], “----”, )<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (n － 1, 0, 进程信息 [1])<br />     超级列表框1.置标题 (n － 1, 1, 进程信息 [2])<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _服务器1_客户进入<br /> <br /> 超级列表框2.插入表项 (, 服务器1.取回客户 (), , , , )<br /> <br /> .子程序 _超级列表框2_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 服务器1.发送数据 (超级列表框2.取标题 (超级列表框2.现行选中项, 0), 压缩数据 (到字节集 (“获取进程”)), )