鱼刺线程池怎么避免重复投递任务

veryear

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	鱼刺类_线程池Ex

子程序名	返回值类型	公开	备 注
_选择框1_被单击

如果 (选择框1.选中)
g_true ＝ 真
线程池.投递任务 (&子程序1, , )
g_true ＝ 假

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

线程池.创建 (1, 10, , , )

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

判断循环首 (g_true)
调试输出 (取现行时间 ())
延时 (1000)
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> .如果 (选择框1.选中)<br />     g_true ＝ 真<br />     线程池.投递任务 (&子程序1, , )<br /> .否则<br />     g_true ＝ 假<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 线程池.创建 (1, 10, , , )<br /> <br /> .子程序 子程序1<br /> <br /> .判断循环首 (g_true)<br />     调试输出 (取现行时间 ())<br />     延时 (1000)<br /> .判断循环尾 ()

我用选择框来控制任务的执行和结束,但如果点击过快(快速点击切换让选择框选中和不选中)时就会产生任务的重复投递
* [2016年12月19日10时59分25秒]
* [2016年12月19日10时59分26秒]
* [2016年12月19日10时59分26秒]
* [2016年12月19日10时59分26秒]
* [2016年12月19日10时59分27秒]
* [2016年12月19日10时59分27秒]
* [2016年12月19日10时59分27秒]
* [2016年12月19日10时59分28秒]
* [2016年12月19日10时59分28秒]
* [2016年12月19日10时59分28秒]
* [2016年12月19日10时59分29秒]
* [2016年12月19日10时59分29秒]
* [2016年12月19日10时59分29秒]
* [2016年12月19日10时59分30秒]

有什么办法可以避免呢?@Bints 大大有空帮看看

冯古屋

每个线程都没有重复一说哟
你说的重复和线程重复我觉得是两码事情哟

幻月工作室

加个数组呗，把所有用过的参数加入到数组中，然后先做个判重的操作

键盘上的魔手

点击一下，选择框禁止，等执行完再释放

荖貢

这是线程池吗?
我怎么看着别扭
求科普

红鹰

正在学  也还不会写  这个有点深度

红鹰

正在学习  我也还不知道这个具体怎么操作hahaha

姚海平

加点延迟吧，好像投递线程也需要时间

姚海平

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .局部变量 线程池, 鱼刺类_线程池
   
5. .局部变量 次, 整数型
   
6. 
   
7. 线程池.创建 (2, 假)  ' 创建容纳10个线程的线程池，非UI界面，1M堆栈大小（Windows会自动扩展的，无需担心不足问题）
   
8. .计次循环首 (5, 次)
   
9.     .判断循环首 (线程池.取_空闲线程数 () ＜ 1)  ' 需要加这个循环判断，否则只执行一个线程池容量的线程就结束了，只要有一条线程空闲就可以向其中投递任务了。
   
10.         处理事件 ()
    
11.     .判断循环尾 ()
    
12.     线程池.投递任务 (&子程序1, 次, 次)
    
13.     延迟 (1)  ' 加上延迟稳定多了，不加延迟会漏掉很多
    
14. .计次循环尾 ()
    
15. ' 结束 ()’结束会影响最后一个值的输出
    
16. 
    
17. .子程序 子程序1
    
18. .参数 参数一, 整数型
    
19. .参数 参数二, 整数型
    
20. 
    
21. 调试输出 (参数一 × 参数二)
    
22. 延迟 (1000)
    
23. 调试输出 (参数一 ＋ 参数二)

复制代码

姚海平

姚海平 发表于 2017-3-17 18:36

代码供参考