多线程停不下来的问题 - 精易论坛

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

变量名	类型	静态	数组	备注
局_任务线程	整数型
i	整数型
局_当前任务数	整数型
局_线程信息	线程_子任务信息

局_任务线程＝到整数 (编辑框_任务数.内容)
集_并发＝到整数 (编辑框_并发数.内容)

如果真 (取反 (线程池_鱼刺.创建 (局_任务线程 × 集_并发, 1500, , , , , )))

信息框 (“线程池创建失败！”, 0, , )

返回 ()

日志 (“=====================[线程池创建成功]==========================”, )
重定义数组 (集_线程组, 假, 0)

判断循环首 (真)

如果真 (超级列表框_工作表单.取表项数 () ＞局_当前任务数)

计次循环首 (超级列表框_工作表单.取表项数 (), i)

如果真 (超级列表框_工作表单.取标题 (i － 1, 10) ＝ “等待执行”)

加入成员 (集_线程组, 局_线程信息)

超级列表框_工作表单.置标题 (i － 1, 10, “Doing...”)

启动线程 (&线程_子线程, i, )

局_当前任务数＝局_当前任务数＋ 1

系统_处理事件 ()

计次循环尾 ()

程序_延时 (100, )

判断循环尾 ()

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

子程序名	返回值类型	公开	备注
线程_子线程
参数名	类型	参考	可空	数组	备注
i

变量名	类型	静态	数组	备注
空闲线程	整数型
单次投递	整数型
执行线程数	整数型
并发	双精度小数型

' 置入代码 (#SP_Begin_7)
调试输出 (“线程子任务开始：”, i)
集_线程组 [i].子任务id ＝ i  ' 主线程
集_线程组 [i].任务线程运行中数量＝ 0  ' 子线程执行数量
集_线程组 [i].任务线程总运行次数＝ 0  ' 运行次数
集_线程组 [i].结束判断＝ 0  ' 结束判断

判断循环首 (真)

' 检查是否收到结束信号

如果真 (集_线程组 [i].结束判断＝ 1)

日志 (“线程 ” ＋到文本 (i) ＋ “ 收到停止信号，退出”, )

跳出循环 ()

如果真 (集_并发－集_线程组 [i].任务线程运行中数量＞ 0)

单次投递＝集_并发－集_线程组 [i].任务线程运行中数量

计次循环首 (单次投递, )

判断 (组合框_捡漏类型.现行选中项＝ 1) ' 快捷下单

线程池_鱼刺.投递任务 (&任务_快捷下单, i, )

原子_递增 (集_线程组 [i].任务线程运行中数量)

原子_递增 (集_线程组 [i].任务线程总运行次数)

系统_处理事件 ()

程序_延时 (到整数 (编辑框_任务延迟.内容), )

计次循环尾 ()

如果真 (线程池_鱼刺.等待任务动态 (, ) ＝假) ' 当用户点击停止线程返回假超时也是返回假

跳出循环 ()

如果真 (线程池_鱼刺.取_状态 () ＝ 3)

跳出循环 ()

如果真 (集_线程组 [i].结束判断＝ 1)

跳出循环 ()

系统_处理事件 ()

' 原有的线程投递逻辑...

判断循环尾 ()
调试输出 (“子线程结束”, i)
' 置入代码 (#SP_End)

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

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 线程_子线程<br />
.参数 i<br />
.局部变量 空闲线程, 整数型<br />
.局部变量 单次投递, 整数型<br />
.局部变量 执行线程数, 整数型<br />
.局部变量 并发, 双精度小数型<br />
<br />
' 置入代码 (#SP_Begin_7)<br />
<br />
<br />
调试输出 (“线程子任务开始：”, i)<br />
<br />
<br />
集_线程组 <i>.子任务id ＝ i  ' 主线程<br />
集_线程组 <i>.任务线程运行中数量 ＝ 0  ' 子线程执行数量<br />
集_线程组 <i>.任务线程总运行次数 ＝ 0  ' 运行次数<br />
集_线程组 <i>.结束判断 ＝ 0  ' 结束判断<br />
<br />
.判断循环首 (真)<br />
    ' 检查是否收到结束信号<br />
    .如果真 (集_线程组 <i>.结束判断 ＝ 1)<br />
        日志 (“线程 ” ＋ 到文本 (i) ＋ “ 收到停止信号，退出”, )<br />
        跳出循环 ()<br />
    .如果真结束<br />
<br />
    .如果真 (集_并发 － 集_线程组 <i>.任务线程运行中数量 ＞ 0)<br />
        单次投递 ＝ 集_并发 － 集_线程组 <i>.任务线程运行中数量<br />
        .计次循环首 (单次投递, )<br />
            .判断开始 (组合框_捡漏类型.现行选中项 ＝ 1)  ' 快捷下单<br />
                线程池_鱼刺.投递任务 (&任务_快捷下单, i, )<br />
            .默认<br />
<br />
            .判断结束<br />
<br />
            原子_递增 (集_线程组 <i>.任务线程运行中数量)<br />
            原子_递增 (集_线程组 <i>.任务线程总运行次数)<br />
            系统_处理事件 ()<br />
            程序_延时 (到整数 (编辑框_任务延迟.内容), )<br />
        .计次循环尾 ()<br />
<br />
    .如果真结束<br />
    .如果真 (线程池_鱼刺.等待任务动态 (, ) ＝ 假)  ' 当用户点击停止线程  返回假  超时也是返回假<br />
        跳出循环 ()<br />
    .如果真结束<br />
    .如果真 (线程池_鱼刺.取_状态 () ＝ 3)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    .如果真 (集_线程组 <i>.结束判断 ＝ 1)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    系统_处理事件 ()<br />
    ' 原有的线程投递逻辑...<br />
.判断循环尾 ()<br />
<br />
<br />
调试输出 (“子线程结束”, i)<br />
' 置入代码 (#SP_End)

子程序名	返回值类型	公开	备注
_按钮_结束任务_被单击

变量名	类型	静态	数组	备注
i	整数型
index	整数型
ii	整数型
掉线	文本型

线程_销毁 (集_主线程句柄)
线程池_鱼刺.销毁 (0, )
日志 (“=====================[线程池销毁成功!!!]==========================”, )
index ＝超级列表框_工作表单.现行选中项

如果真 (index ≠ -1)

临界.进入 ()

超级列表框_工作表单.置标题 (index, 10, “已掉线”)

集_线程组 [index ＋ 1].结束判断＝ 1

临界.退出 ()

i支持库列表	支持库注释
iext	扩展界面支持库一