多线程应用求助，谢谢！

yjd

这2天下例程参考学习，到现在还是很模糊，思路不清晰不得要领。我现在写出来的流程是这样。
要是不用许可证可看到同时执行多个任务，但由于操作了同一变量不用许可又会崩溃。用了许可看起来就和排队一样一个个执行失去了效果。
1，

启动线程 (&多线程_主, , 集_多线程_主句柄)  ' 启动一条主线程

2，以下是分派任务范围

.版本 2
.支持库 spec
.支持库 EThread
.局部变量 temp, 分配任务_自定义
.局部变量 n1, 整数型

temp.任务数 ＝ 绝对取整 (取数组成员数 (集_temp文本) ÷ 4)  ' 整除得到需要创建多少个任务
temp.余数 ＝ 取数组成员数 (集_temp文本) － temp.任务数 × 4  ' 整除记录下余数

重定义数组 (集_范围数组, 假, temp.任务数)  ' 创建范围数组=任务数

.计次循环首 (temp.任务数, n1)  ' 生成每个任务需要执行的范围值
    集_范围数组 [n1].开始 ＝ n1 × 4 － 3
    集_范围数组 [n1].结束 ＝ n1 × 4
.计次循环尾 ()
.如果真 (temp.余数 ≠ 0)  ' 如果有余数把余数+到数组最后一个成员上
    集_范围数组 [取数组下标 (集_范围数组, )].结束 ＝ 集_范围数组 [取数组下标 (集_范围数组, )].结束 ＋ temp.余数

.如果真结束
调试输出 (temp.任务数, “任务数”, temp.余数, “余数”)

.判断循环首 (集_线程数 ＜ temp.任务数)
    .计次循环首 (temp.任务数, n1)
        启动线程 (&多线程_子, n1, 集_多线程_子句柄)  ' 启动一个线程执行ping 四个ip地址
        集_线程数 ＝ 集_线程数 ＋ 1
    .计次循环尾 ()
.判断循环尾 ()

3，子线程的代码

.版本 2
.支持库 spec
.参数 a, 整数型, , 范围数组的位置
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 temp, 文本型

' 进入许可区 (集_许可证)
.变量循环首 (集_范围数组 [a].开始, 集_范围数组 [a].结束, 1, n1)
    调试输出 (集_范围数组 [a].开始, “变量循环参数1”, 集_范围数组 [a].结束, “变量循环参数2”, n1)
    .计次循环首 (到整数 (编辑框_ping次数.内容), )
        Ping_test循环 (集_temp文本 [n1])
        延时 (集_Ping间隔)
        集_统计发送次数 ＝ 集_统计发送次数 ＋ 1
        .如果真 (集_停止 ＝ 真)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (集_停止 ＝ 真)
        跳出循环 ()
    .如果真结束

.变量循环尾 ()
集_线程数 ＝ 集_线程数 － 1
' 退出许可区 (集_许可证)

用了引用代码还是看着不清晰，麻烦热心人士请拷贝到易环境下观看。并给于指点，谢谢！

china1982

完全搞不懂{:3_227:}

四海铭洋

看不懂啊，有没有这样的教程发一下啦

yjd

自己解决了。需要写全局变量的地方用标签反馈事件来传递。这样就不会线程冲突又能解决用许可带来的效率降低。

象记工程师

自己还高手嘢······

liluun

找了几万个贴了。还没找到我要的。