线程问题求助

web11234

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. .程序集变量 线程句柄数组, 整数型, , "0"
   
5. 
   
6. .子程序 _按钮1_被单击
   
7. .局部变量 n, 整数型
   
8. .局部变量 线程句柄, 整数型
   
9. 
   
10. .计次循环首 (5, n)
    
11.     线程句柄 ＝ 线程_启动 (&功能, 24, )
    
12.     .如果真 (线程句柄 ≠ 0)
    
13.         加入成员 (线程句柄数组, 线程句柄)
    
14.     .如果真结束
    
15. 
    
16.     处理事件 ()
    
17. .计次循环尾 ()
    
18. 
    
19. .子程序 功能
    
20. .参数 Message, 整数型
    
21. 
    
22. 信息框 (到文本 (Message), 0, , )  ' 我想让 这个信息框 和其他线程的信息框 不在同一时间弹出
    
23. 
    
24. 
    
25. .子程序 __启动窗口_将被销毁
    
26. .局部变量 L, 整数型
    
27. 
    
28. .计次循环首 (取数组成员数 (线程句柄数组), L)
    
29.     线程_销毁 (线程句柄数组 [L])
    
30.     处理事件 ()
    
31. .计次循环尾 ()
    

复制代码

我想问的是N个线程同时执行一个子程序 其得到的结果却是相同的 我想让他们稍微有点不同应该怎么办？

其他办法也行  求助 直接回复时 带下你的方法的代码 谢谢了

米漫

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 Thread_Pass, 整数型

.子程序 __启动窗口_创建完毕

Thread_Pass ＝ 线程_创建许可证 ()

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 线程句柄, 整数型

.计次循环首 (5, n)
    线程句柄 ＝ 线程_启动 (&功能, n, )
    .如果真 (线程句柄 ≠ 0)
        加入成员 (线程句柄数组, 线程句柄)
    .如果真结束
    处理事件 ()
.计次循环尾 ()

.子程序 功能
.参数 Message, 整数型

线程_进入许可区 (Thread_Pass)
信息框 (“这是第” ＋ 到文本 (Message) ＋ “条线程。”, 0, )  ' 我想让 这个信息框 和其他线程的信息框 不在同一时间弹出
线程_退出许可区 (Thread_Pass)

.子程序 __启动窗口_将被销毁
.局部变量 L, 整数型

.计次循环首 (取数组成员数 (线程句柄数组), L)
    线程_销毁 (线程句柄数组 [L])
    处理事件 ()
.计次循环尾 ()
线程_删除许可证 (Thread_Pass)

米漫

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 Thread_Pass, 整数型

.子程序 __启动窗口_创建完毕

Thread_Pass ＝ 线程_创建许可证 ()

.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 线程句柄, 整数型

.计次循环首 (5, n)
    线程句柄 ＝ 线程_启动 (&功能, 24, )
    .如果真 (线程句柄 ≠ 0)
        加入成员 (线程句柄数组, 线程句柄)
    .如果真结束
    处理事件 ()
.计次循环尾 ()

.子程序 功能
.参数 Message, 整数型

线程_进入许可区 (Thread_Pass)
信息框 (到文本 (Message), 0, )  ' 我想让 这个信息框 和其他线程的信息框 不在同一时间弹出
线程_退出许可区 (Thread_Pass)

.子程序 __启动窗口_将被销毁
.局部变量 L, 整数型

.计次循环首 (取数组成员数 (线程句柄数组), L)
    线程_销毁 (线程句柄数组 [L])
    处理事件 ()
.计次循环尾 ()
线程_删除许可证 (Thread_Pass)