机位图多线程求助

hottae

不懂多线程，代码写稀碎好在功能上没问题，求助 大神给改下多线程膜拜


附源码



座位导航.e (1006.13 KB, 下载次数: 9)

2024-11-28 16:49 上传

点击文件名下载附件

chenboss

修复截图卡死
座位导航.e (999.79 KB, 下载次数: 3, 售价: 1 枚 精币)

2024-11-29 03:21 上传

点击文件名下载附件

b0y

好多标签啊....不看了  

fx82608171

你这也不需要多线程啊，就一个线程不就够了

fx82608171

单线程就够了啊

汉族

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程1句柄	整数型

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

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

启动线程 (&子程序1, , 线程1句柄)

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

变量名	类 型	静态	数组	备 注
句柄	整数型
计次	整数型

时钟1.时钟周期 ＝ 0
计次循环首 (185, 计次)
启动线程 (&子程序2, 计次, )
程序_延时 (10, )
计次循环尾 ()
' 写到文件 (“d:\截图\jt.jpg”, 图片_转换1 (图片_屏幕截图 (1920, 1080, ), 2, 70))
' 截图用于通过微信或网页查看电脑空位。
' 时钟1.时钟周期 ＝ 10000
透明标签1.标题 ＝ “刷新周期：60秒”
强制结束线程 (线程1句柄)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

强制结束线程 (线程1句柄)

子程序名	返回值类型	公开	备 注
子程序2
参数名	类 型	参考	可空	数组	备 注
ss

变量名	类 型	静态	数组	备 注
标签	标签

如果真 (ss ＝ 0)
返回 ()
标签 ＝ 取标记组件 (ss)
如果 (系统_通信测试 (“192.168.0.” ＋ 到文本 (ss ＋ 1 － 1), 600) ＝ -1)
标签.背景颜色 ＝ #墨绿
标签.背景颜色 ＝ #红色
调试输出 (“192.168.0.” ＋ 到文本 (ss ＋ 1 － 1))

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程1句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 启动线程 (&子程序1, , 线程1句柄)<br /> <br /> .子程序 子程序1<br /> .局部变量 句柄, 整数型<br /> .局部变量 计次, 整数型<br /> <br /> 时钟1.时钟周期 ＝ 0<br /> .计次循环首 (185, 计次)<br />     启动线程 (&子程序2, 计次, )<br />     程序_延时 (10, )<br /> .计次循环尾 ()<br /> <br /> ' 写到文件 (“d:\截图\jt.jpg”, 图片_转换1 (图片_屏幕截图 (1920, 1080, ), 2, 70))<br /> ' 截图用于通过微信或网页查看电脑空位。<br /> ' 时钟1.时钟周期 ＝ 10000<br /> <br /> 透明标签1.标题 ＝ “刷新周期：60秒”<br /> 强制结束线程 (线程1句柄)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 强制结束线程 (线程1句柄)<br /> <br /> .子程序 子程序2<br /> .参数 ss<br /> .局部变量 标签, 标签<br /> <br /> .如果真 (ss ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 标签 ＝ 取标记组件 (ss)<br /> .如果 (系统_通信测试 (“192.168.0.” ＋ 到文本 (ss ＋ 1 － 1), 600) ＝ -1)<br />     标签.背景颜色 ＝ #墨绿<br /> .否则<br />     标签.背景颜色 ＝ #红色<br /> .如果结束<br /> 调试输出 (“192.168.0.” ＋ 到文本 (ss ＋ 1 － 1))

汉族

补充内容 (2024-11-28 20:27):
这个多线程  可以吧 ，1-3秒 绝对搞定

frankiy

给你做了一个多线程的
还有啊， 不要用时钟来启动任务啊。 你不能保证上一个任务的完成时间。

chenboss

座位导航.e (1.12 MB, 下载次数: 0, 售价: 1 枚 精币)

2024-11-29 03:17 上传

点击文件名下载附件

mytiger

用鱼刺的线程池

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 _线程池, 鱼刺类_线程池
.程序集变量 线程1句柄, 整数型

.子程序 __启动窗口_创建完毕

启动线程 (&主线程, 60000, 线程1句柄)

.子程序 主线程
.参数 刷新周期, 整数型
.局部变量 局_总数量, 整数型
.局部变量 n, 整数型

_线程池.创建 (10, , , )  ' 线程数
.判断循环首 (1 ＝ 1)
    局_总数量 ＝ 185  ' 总任务数
    .计次循环首 (局_总数量, n)
        _线程池.投递任务 (&任务线程, n, )
    .计次循环尾 ()
    .判断循环首 (_线程池.取_是否完全空闲 () ＝ 假)
        _延时 (200)
    .判断循环尾 ()
    ' 写到文件 (“d:\截图\jt.jpg”, 图片_转换1 (图片_屏幕截图 (1920, 1080, ), 2, 70))
    透明标签1.标题 ＝ “刷新周期：” ＋ 到文本 (刷新周期 ＼ 1000) ＋ “秒”
    _延时 (刷新周期)
.判断循环尾 ()

.子程序 任务线程
.参数 任务id, 整数型
.局部变量 标签, 标签

标签 ＝ 取标记组件 (任务id)
.如果 (系统_通信测试 (“192.168.0.” ＋ 到文本 (任务id), 600) ＝ -1)
    标签.背景颜色 ＝ #墨绿
.否则
    标签.背景颜色 ＝ #红色
.如果结束
调试输出 (“192.168.0.” ＋ 到文本 (任务id) ＋ “检测完毕”)

.子程序 __启动窗口_将被销毁

强制结束线程 (线程1句柄)