求助，多线程结束后出现卡死问题！

海娜百川520

              本人之前学POST刚接触多线程， 我的代码如下，我的方法是跟下面一样的，线程子程序里是不一样的，但是我发现我这样线了之后

每运行几分钟后程序慢慢就变卡了， 如果当某线程判断成立结束线程后会发现，软件直接卡死，同时送上小小精币以表谢意！还望不要嫌少！

在这里面手打的码有点乱！！！
线程启动（&挂机任务）   


挂机任务   (这里是挂机子程序开始)

线程1=线程启动（&线程一，，线程1）
线程2=线程启动（& 线程二，，线程2）
线程2=线程启动（& 线程三，，线程2）


(这里是挂机子程序结束）


结束线程（结束子程序）
线程结束（线程1）
线程结束（线程2）
线程结束（线程3）


线程一  （线程一开始子程序）   

判断循环首（1=1）
处理事件（）
延时（10）
变量1=变量1+1
如果真（变量=1000）
线程启动（&结束线程）
判断循环尾

线程二 （线程二 开始子程序）

判断循环首（1=1）
处理事件（）
延时（10）
变量2=变量2+1
如果真（变量=2000）
线程启动（&结束线程）
判断循环尾


线程三 （线程 三 开始子程序）

判断循环首（1=1）
处理事件（）
延时（10）
变量3=变量3+1
如果真（变量3=3000）
线程启动（&结束线程）
判断循环尾









补充内容 (2015-12-15 09:01):
希望大神给源码小例程，让小弟解决这个问题！谢谢

VC大圣

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

变量名	类 型	静态	数组	备 注
线程总句柄	整数型
许可证	整数型

许可证 ＝ 创建进入许可证 ()
启动线程 (&线程01, 3, 线程总句柄)
强制结束线程 (线程总句柄)
启动线程 (&线程01, 3, 线程总句柄)
强制结束线程 (线程总句柄)
启动线程 (&线程01, 3, 线程总句柄)
强制结束线程 (线程总句柄)
删除进入许可证 (许可证)

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

变量名	类 型	静态	数组	备 注
线程句柄01	整数型
许可证	整数型

进入许可区 (许可证)
启动线程 (&线程01处理数据, 2, )
退出许可区 (许可证)
强制结束线程 (线程句柄01)

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

变量名	类 型	静态	数组	备 注
线程句柄02	整数型
许可证	整数型

进入许可区 (许可证)
启动线程 (&线程01处理数据, 2, )
退出许可区 (许可证)
强制结束线程 (线程句柄02)

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

变量名	类 型	静态	数组	备 注
线程句柄3	整数型
许可证	整数型

进入许可区 (许可证)
启动线程 (&线程03处理数据, 2, 线程句柄3)
退出许可区 (许可证)
强制结束线程 (线程句柄3)

子程序名	返回值类型	公开	备 注
线程01处理数据

' 此处处理数据

子程序名	返回值类型	公开	备 注
线程02处理数据

' 此处处理数据

子程序名	返回值类型	公开	备 注
线程03处理数据

' 此处处理数据

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 总线程<br /> .局部变量 线程总句柄, 整数型<br /> .局部变量 许可证, 整数型<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> 启动线程 (&线程01, 3, 线程总句柄)<br /> 强制结束线程 (线程总句柄)<br /> 启动线程 (&线程01, 3, 线程总句柄)<br /> 强制结束线程 (线程总句柄)<br /> 启动线程 (&线程01, 3, 线程总句柄)<br /> 强制结束线程 (线程总句柄)<br /> 删除进入许可证 (许可证)<br /> <br /> <br /> .子程序 线程01<br /> .局部变量 线程句柄01, 整数型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证)<br /> 启动线程 (&线程01处理数据, 2, )<br /> 退出许可区 (许可证)<br /> 强制结束线程 (线程句柄01)<br /> <br /> .子程序 线程02<br /> .局部变量 线程句柄02, 整数型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证)<br /> 启动线程 (&线程01处理数据, 2, )<br /> 退出许可区 (许可证)<br /> 强制结束线程 (线程句柄02)<br /> <br /> <br /> .子程序 线程03<br /> .局部变量 线程句柄3, 整数型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证)<br /> 启动线程 (&线程03处理数据, 2, 线程句柄3)<br /> 退出许可区 (许可证)<br /> 强制结束线程 (线程句柄3)<br /> <br /> .子程序 线程01处理数据<br /> <br /> ' 此处处理数据<br /> <br /> .子程序 线程02处理数据<br /> <br /> ' 此处处理数据<br /> <br /> .子程序 线程03处理数据<br /> <br /> ' 此处处理数据

你不是一共3条处理数据么？  大概是这样子的！~  分开  一定要分开，都让他成独立的线程处理

冰河信史

延时（10）
这个命令优先级高，非常吃CPU占用率滴。  使用越久 越卡
换成精易模块里的   程序_延时（）这个命令，分分钟解决

冯古屋

判断循环首（1=1）

手误还是就是这么写
难道还有1!=1?

海娜百川520

冯古屋 发表于 2015-12-15 09:06
手误还是就是这么写
难道还有1!=1?

这里是让他在没有判定到某个成立时一直循环，
而我后变量=1000跳出，也只是这里写的，我本是一个判断发现怪死就结束线程

海娜百川520

冰河信史 发表于 2015-12-15 09:05
延时（10）
这个命令优先级高，非常吃CPU占用率滴。  使用越久 越卡
换成精易模块里的   程序_ ...

主要是，结束线程后，软件直接卡死， 不知道为什么

海娜百川520

冯古屋 发表于 2015-12-15 09:06
手误还是就是这么写
难道还有1!=1?

有决绝方法吗？大神门

daugzbabc

1.你把程序延时，改成精易模块里面的程序_延时()
2. 如果程序没有改变窗体上的东西，把你的处理事件也去掉。
3.结束线程用强制结束线程，再去试下看看。

海娜百川520

daugzbabc 发表于 2015-12-15 09:43
1.你把程序延时，改成精易模块里面的程序_延时()
2. 如果程序没有改变窗体上的东西，把你的处理事件也去掉 ...

先在这里谢谢你了，但是，因为这样的方法我有处理过视乎没有起到解决问题，每次运行5分钟后就会慢慢卡死

VC大圣

要是不用模块，用易语言里的自带启动线程的方式呢？  一共3个线程，每个线程设置一个线程句柄，在判断不达成条件的时候强制结束该句柄所对立的线程，完了启动每个线程的时候弄一个许可证，结束一个线程的时候退出当前许可证，一共三个线程，线程启动是一个子程序，在运行某个条件的时候也启动线程，每个子线程的线程数设置在总线程的3分之一！~