多线程完美不崩溃防卡死

西瓜撞地球

感觉没什么用啊

anyuezhiji

hellohexiang 发表于 2016-8-31 12:06
我怎么一点就卡死啊

已补充代码（置顶到了二楼），你再测试下，看还卡么

anyuezhiji

1. 强制结束线程 (线程句柄 [条目])

复制代码

昨天写得太匆忙没检查，少了一句关键的，超时的线程太多时还是可能崩溃，现在补上
修改后的代码如下

  

子程序名	返回值类型	公开	备 注
处理条目
参数名	类 型	参考	可空	数组	备 注
线程数

变量名	类 型	静态	数组	备 注
i	整数型
条目
状态	文本型
运行时间
线程句柄			0
通讯信号	线程传参		0

' 调试输出 (线程数)
' 调试输出 (超时时长)
重定义数组 (线程句柄, 真, 总条数)
重定义数组 (通讯信号, 真, 总条数)
判断循环首 (总计次 ＜ 总条数)
' ——————————————————————
进入许可区 (许可证0)
总计次 ＝ 总计次 ＋ 1
如果真 (总计次 ＞ 总条数)
退出许可区 (许可证1)
跳出循环 ()
条目 ＝ 总计次
退出许可区 (许可证0)
' ——————————————————————
' 开始处理第（条目）条并输出结果
进入许可区 (许可证1)
编辑框5.加入文本 (“开始：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理）...” ＋ #换行符 )
处理事件 ()
退出许可区 (许可证1)
' ——————————————————————
运行时间 ＝ 取启动时间 ()
通讯信号 [条目].条目 ＝ 条目
启动线程 (&处理条目_子程序, 取指针地址 (通讯信号 [条目]), 线程句柄 [条目])
判断循环首 (条目 ＞ 0)  ' 无限循环，判断
延时 (300)
如果真 (通讯信号 [条目].信号 ＝ 1)
状态 ＝ “正常结束”
跳出循环 ()
如果真 (取启动时间 () － 运行时间 ＞ 超时时长)
强制结束线程 (线程句柄 [条目])
状态 ＝ “超时退出”
跳出循环 ()
如果真 (结束信号)
进入许可区 (许可证0)
如果真 (条目 ＝ 总条数)
总计次 ＝ 总计次 ＋ 1
逆计次 ＝ 逆计次 － 1
退出许可区 (许可证0)
返回 ()

判断循环尾 ()
' ——————————————————————
进入许可区 (许可证1)
编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符 )
处理事件 ()
退出许可区 (许可证1)
' 完成处理第（条目）条并输出结果
' ——————————————————————
进入许可区 (许可证0)
如果真 (条目 ＝ 总条数)
总计次 ＝ 总计次 ＋ 1
逆计次 ＝ 逆计次 － 1
退出许可区 (许可证0)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 shellEx<br /> <br /> .子程序 处理条目<br /> .参数 线程数<br /> .局部变量 i, 整数型<br /> .局部变量 条目<br /> .局部变量 状态, 文本型<br /> .局部变量 运行时间<br /> .局部变量 线程句柄, , , "0"<br /> .局部变量 通讯信号, 线程传参, , "0"<br /> <br /> ' 调试输出 (线程数)<br /> ' 调试输出 (超时时长)<br /> 重定义数组 (线程句柄, 真, 总条数)<br /> 重定义数组 (通讯信号, 真, 总条数)<br /> <br /> .判断循环首 (总计次 ＜ 总条数)<br />     ' ——————————————————————<br />     进入许可区 (许可证0)<br />     总计次 ＝ 总计次 ＋ 1<br />     .如果真 (总计次 ＞ 总条数)<br />         退出许可区 (许可证1)<br />         跳出循环 ()<br />     .如果真结束<br />     条目 ＝ 总计次<br />     退出许可区 (许可证0)<br />     ' ——————————————————————<br />     ' 开始处理第（条目）条并输出结果<br />     进入许可区 (许可证1)<br />     编辑框5.加入文本 (“开始：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理）...” ＋ #换行符)<br />     处理事件 ()<br />     退出许可区 (许可证1)<br />     ' ——————————————————————<br />     运行时间 ＝ 取启动时间 ()<br />     通讯信号 [条目].条目 ＝ 条目<br />     启动线程 (&处理条目_子程序, 取指针地址 (通讯信号 [条目]), 线程句柄 [条目])<br />     .判断循环首 (条目 ＞ 0)  ' 无限循环，判断<br />         延时 (300)<br />         .如果真 (通讯信号 [条目].信号 ＝ 1)<br />             状态 ＝ “正常结束”<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (取启动时间 () － 运行时间 ＞ 超时时长)<br />             强制结束线程 (线程句柄 [条目])<br />             状态 ＝ “超时退出”<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (结束信号)<br />             进入许可区 (许可证0)<br />             .如果真 (条目 ＝ 总条数)<br />                 总计次 ＝ 总计次 ＋ 1<br />             .如果真结束<br />             逆计次 ＝ 逆计次 － 1<br />             退出许可区 (许可证0)<br />             返回 ()<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     ' ——————————————————————<br />     进入许可区 (许可证1)<br />     编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符)<br />     处理事件 ()<br />     退出许可区 (许可证1)<br />     ' 完成处理第（条目）条并输出结果<br />     ' ——————————————————————<br />     进入许可区 (许可证0)<br />     .如果真 (条目 ＝ 总条数)<br />         总计次 ＝ 总计次 ＋ 1<br />     .如果真结束<br />     逆计次 ＝ 逆计次 － 1<br />     退出许可区 (许可证0)<br /> .判断循环尾 ()

hellohexiang

我怎么一点就卡死啊

15039346689

不好使，该慢的还慢，该卡的还卡，咋写差不错

无夜

这种只适合用来参照写法，至于是否会崩溃卡死，还是得具体到实际的应用当中。。

真正运用到实例上面，线程里面执行的代码，计算应该是很复杂的，耗费时间绝对比你这个要长，那个时候出现崩溃卡死才是要真正的去解决