易语言多线程启动优化防止出现卡死闪退

近几年

模块使用的是：精易模块v11.1.5

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
许可证	整数型
是否运行	逻辑型
数据缓存	文本型	0
线程池	整数型	0
线程数量	整数型
队列最大值	整数型

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

' 初始化许可证
许可证 ＝ 创建进入许可证 ()
' 设置初始状态
是否运行 ＝ 假
按钮_停止.禁止 ＝ 真
队列最大值 ＝ 1000
线程数量 ＝ 到整数 (编辑框1.内容)
重定义数组 (线程池, 假, 线程数量)

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

变量名	类 型	静态	数组	备 注
i	整数型

如果真 (到整数 (编辑框1.内容) ≤ 0)
信息框 (“线程数量必须大于0”, 0, “温馨提示”, )
返回 ()

线程数量 ＝ 到整数 (编辑框1.内容)
是否运行 ＝ 真
按钮_启动.禁止 ＝ 真
按钮_停止.禁止 ＝ 假
时钟_刷新.时钟周期 ＝ 50
重定义数组 (线程池, 假, 线程数量)
标签_状态.标题 ＝ “线程状态：已启动”
计次循环首 (线程数量, i)
线程池 [i] ＝ 线程_启动 (&数据生成线程)
计次循环尾 ()
线程_sum.标题 ＝ 到文本 (取数组成员数 (线程池))

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

变量名	类 型	静态	数组	备 注
i	整数型

是否运行 ＝ 假
按钮_启动.禁止 ＝ 假
按钮_停止.禁止 ＝ 真
时钟_刷新.时钟周期 ＝ 0
标签_状态.标题 ＝ “线程状态：已停止”
计次循环首 (线程数量, i)
线程_等待 (线程池 [i], 500)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
数据生成线程

变量名	类 型	静态	数组	备 注
数据生成	文本型

判断循环首 (是否运行)
' 生成模拟数据
数据生成 ＝ 到文本 (取现行时间 ()) ＋ “|” ＋ 到文本 (取随机数 (1, 1000))
进入许可区 (许可证)
如果真 (取数组成员数 (数据缓存) ≥ 队列最大值)
删除成员 (数据缓存, 1, 500)
加入成员 (数据缓存, 数据生成)
退出许可区 (许可证)
' 非阻塞延时（精易模块）
程序_延时 (20)
判断循环尾 ()

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

变量名	类 型	静态	数组	备 注
临时数据	文本型		0
分割数据	文本型		0
索引	整数型
i	整数型

进入许可区 (许可证)
如果真 (取数组成员数 (数据缓存) ＞ 0)
复制数组 (临时数据, 数据缓存)
清除数组 (数据缓存)  ' 安全清空原数据

退出许可区 (许可证)
' 批量插入到超级列表框
' 超级列表框_数据展示.禁止重画 ()  ' 禁止刷新提高性能
计次循环首 (取数组成员数 (临时数据), i)
分割数据 ＝ 分割文本 (临时数据 [i], “|”, )
如果真 (取数组成员数 (分割数据) ＝ 2)
索引 ＝ 超级列表框_数据展示.插入表项 (-1, , , , , )
超级列表框_数据展示.置标题 (索引, 0, 到文本 (超级列表框_数据展示.取表项数 ()))
超级列表框_数据展示.置标题 (索引, 1, 分割数据 [1])  ' 数据值

计次循环尾 ()
' 超级列表框_数据展示.允许重画 ()
超级列表框_数据展示.保证显示 (超级列表框_数据展示.取表项数 () － 1)  ' 自动滚动
标签_显示数据.标题 ＝ 到文本 (超级列表框_数据展示.取表项数 ())
' 强制界面刷新
处理事件 ()

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

变量名	类 型	静态	数组	备 注
i	整数型

是否运行 ＝ 假
计次循环首 (线程数量, i)
线程_销毁 (线程池 [i])
计次循环尾 ()
删除进入许可证 (许可证)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 许可证, 整数型<br /> .程序集变量 是否运行, 逻辑型<br /> .程序集变量 数据缓存, 文本型, , "0"<br /> .程序集变量 线程池, 整数型, , "0"<br /> .程序集变量 线程数量, 整数型<br /> .程序集变量 队列最大值, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 初始化许可证<br /> 许可证 ＝ 创建进入许可证 ()<br /> ' 设置初始状态<br /> 是否运行 ＝ 假<br /> 按钮_停止.禁止 ＝ 真<br /> 队列最大值 ＝ 1000<br /> 线程数量 ＝ 到整数 (编辑框1.内容)<br /> 重定义数组 (线程池, 假, 线程数量)<br /> <br /> .子程序 _按钮_启动_被单击<br /> .局部变量 i, 整数型<br /> <br /> <br /> .如果真 (到整数 (编辑框1.内容) ≤ 0)<br />     信息框 (“线程数量必须大于0”, 0, “温馨提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 线程数量 ＝ 到整数 (编辑框1.内容)<br /> 是否运行 ＝ 真<br /> 按钮_启动.禁止 ＝ 真<br /> 按钮_停止.禁止 ＝ 假<br /> 时钟_刷新.时钟周期 ＝ 50<br /> <br /> 重定义数组 (线程池, 假, 线程数量)<br /> 标签_状态.标题 ＝ “线程状态：已启动”<br /> <br /> <br /> .计次循环首 (线程数量, i)<br />     线程池 <i> ＝ 线程_启动 (&数据生成线程)<br /> .计次循环尾 ()<br /> <br /> <br /> 线程_sum.标题 ＝ 到文本 (取数组成员数 (线程池))<br /> <br /> .子程序 _按钮_停止_被单击<br /> .局部变量 i, 整数型<br /> <br /> <br /> 是否运行 ＝ 假<br /> 按钮_启动.禁止 ＝ 假<br /> 按钮_停止.禁止 ＝ 真<br /> 时钟_刷新.时钟周期 ＝ 0<br /> 标签_状态.标题 ＝ “线程状态：已停止”<br /> <br /> .计次循环首 (线程数量, i)<br />     线程_等待 (线程池 <i>, 500)<br /> .计次循环尾 ()<br /> <br /> .子程序 数据生成线程<br /> .局部变量 数据生成, 文本型<br /> <br /> <br /> <br /> .判断循环首 (是否运行)<br />     ' 生成模拟数据<br />     数据生成 ＝ 到文本 (取现行时间 ()) ＋ “|” ＋ 到文本 (取随机数 (1, 1000))<br />     进入许可区 (许可证)<br />     .如果真 (取数组成员数 (数据缓存) ≥ 队列最大值)<br />         删除成员 (数据缓存, 1, 500)<br />     .如果真结束<br />     加入成员 (数据缓存, 数据生成)<br />     退出许可区 (许可证)<br />     ' 非阻塞延时（精易模块）<br />     程序_延时 (20)<br /> .判断循环尾 ()<br /> <br /> .子程序 _时钟_刷新_周期事件<br /> .局部变量 临时数据, 文本型, , "0"<br /> .局部变量 分割数据, 文本型, , "0"<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> <br /> 进入许可区 (许可证)<br /> .如果真 (取数组成员数 (数据缓存) ＞ 0)<br />     复制数组 (临时数据, 数据缓存)<br />     清除数组 (数据缓存)  ' 安全清空原数据<br /> .如果真结束<br /> <br /> 退出许可区 (许可证)<br /> ' 批量插入到超级列表框<br /> ' 超级列表框_数据展示.禁止重画 ()  ' 禁止刷新提高性能<br /> <br /> .计次循环首 (取数组成员数 (临时数据), i)<br />     分割数据 ＝ 分割文本 (临时数据 <i>, “|”, )<br /> <br />     .如果真 (取数组成员数 (分割数据) ＝ 2)<br />         索引 ＝ 超级列表框_数据展示.插入表项 (-1, , , , , )<br />         超级列表框_数据展示.置标题 (索引, 0, 到文本 (超级列表框_数据展示.取表项数 ()))<br />         超级列表框_数据展示.置标题 (索引, 1, 分割数据 [1])  ' 数据值<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> ' 超级列表框_数据展示.允许重画 ()<br /> 超级列表框_数据展示.保证显示 (超级列表框_数据展示.取表项数 () － 1)  ' 自动滚动<br /> <br /> 标签_显示数据.标题 ＝ 到文本 (超级列表框_数据展示.取表项数 ())<br /> ' 强制界面刷新<br /> 处理事件 ()<br /> <br /> .子程序 __启动窗口_将被销毁<br /> .局部变量 i, 整数型<br /> <br /> <br /> 是否运行 ＝ 假<br /> .计次循环首 (线程数量, i)<br />     线程_销毁 (线程池 <i>)<br /> .计次循环尾 ()<br /> 删除进入许可证 (许可证)

rxfrxf0476

感谢分享，很给力！~

铭焱

感谢分享，很给力！~

qw155

#在这里快速回复#多线程, 多线程处理