易语言同一个程序中执行两次线程的方法

admin

直接看代码

1. .版本 2
   
2. .支持库 EThread
   
3. .支持库 spec
   
4. 
   
5. .程序集 窗口程序集_启动窗口
   
6. 
   
7. .子程序 _按钮1_被单击
   
8. 
   
9. 启动线程 (&子程序1, , )  ' //易语言里面同一个程序只能启动一个线程，个人经验发现，如果调用多次启动线程就会乱套的
   
10. 
    
11. .子程序 子程序1
    
12. .局部变量 i, 整数型
    
13. .局部变量 计次, 整数型, , , 比如你要求这个子程序执行两次，那么就这个设置2
    
14. 
    
15. 计次 ＝ 1
    
16. .判断循环首 (真)
    
17.     i ＝ i ＋ 1
    
18.     调试输出 (i)
    
19.     .如果 (i ＝ 100)  ' //判断如果已经执行完一万次，则计次+1
    
20.         计次 ＝ 计次 ＋ 1
    
21.         i ＝ 0
    
22.     .否则
    
23. 
    
24.     .如果结束
    
25. 
    
26.     .如果 (计次 ＝ 3)  ' //判断 计次如果等于3 就说明这个循环已经执行了2次，那么就跳出循环，线程自动结束
    
27.         调试输出 (“累计执行线程：” ＋ 到文本 (计次 － 1) ＋ “次”)
    
28.         跳出循环 ()
    
29.     .否则
    
30. 
    
31.     .如果结束
    
32. 
    
33.     延时 (30)
    
34. .判断循环尾 ()
    

复制代码

运行截图