开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

123
返回列表 发新帖
楼主: anyuezhiji
收起左侧

[易语言纯源码] 多线程完美不崩溃防卡死

[复制链接]
结帖率:80% (8/10)
发表于 2016-8-31 13:38:42 | 显示全部楼层   广西壮族自治区来宾市
看看有什么用
回复 支持 反对

使用道具 举报

发表于 2016-8-31 12:43:43 | 显示全部楼层   贵州省铜仁市
感觉没什么用啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-8-31 12:36:25 | 显示全部楼层   湖南省长沙市
hellohexiang 发表于 2016-8-31 12:06
我怎么一点就卡死啊

已补充代码(置顶到了二楼),你再测试下,看还卡么
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-8-31 12:34:02 | 显示全部楼层   湖南省长沙市
  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扩展功能支持库一

回复 支持 反对

使用道具 举报

结帖率:100% (26/26)

签到天数: 4 天

发表于 2016-8-31 12:06:42 | 显示全部楼层   江苏省南通市
我怎么一点就卡死啊
回复 支持 反对

使用道具 举报

结帖率:100% (6/6)
发表于 2016-8-31 09:08:20 | 显示全部楼层   河南省濮阳市
不好使,该慢的还慢,该卡的还卡,咋写差不错
回复 支持 反对

使用道具 举报

结帖率:56% (19/34)

签到天数: 17 天

发表于 2016-8-31 02:20:42 | 显示全部楼层   广东省广州市
这种只适合用来参照写法,至于是否会崩溃卡死,还是得具体到实际的应用当中。。

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

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表