|
20精币
本帖最后由 yjd 于 2011-8-27 09:02 编辑
这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
' 退出许可区 (集_许可证)
用了引用代码还是看着不清晰,麻烦热心人士请拷贝到易环境下观看。并给于指点,谢谢!
|
|