多线程 在数组里 慢 不知道问题出在哪？

airaz

.版本 2
.支持库 spec
.支持库 EThread

.子程序 工作线程表1
.参数 表项, 整数型
.局部变量 a, 文本型, , "0"

延迟 (100)
系统_处理事件 ()
' a ＝ 分割文本 (匹配表1 (高级表格1.取数据 (表项, 5)), “/”, )
.' 如果真 (取数组成员数 (a) ＝ 3)
    ' 高级表格1.置数据 (表项, 7, 1, a [1])
    ' 高级表格1.置数据 (表项, 9, 1, a [2])
    ' 高级表格1.置数据 (表项, 10, 1, a [3])
.如果真结束




.' 如果 (到小数 (a [2]) ＜ 0)
    ' 高级表格1.置单元格文字颜色 (表项, 5, , 9, #墨绿)


.否则
    ' 高级表格1.置单元格文字颜色 (表项, 5, , 9, #桃红)
.如果结束



a ＝ 分割文本 (匹配表1(ttt [表项]), “/”, )
.如果真 (取数组成员数 (a) ＝ 3)
    ttt [表项] ＝ ttt [表项] ＋ a [1] ＋ a [2] ＋ a [3]








进入许可区 (许可证表1)
线程数表1 ＝ 线程数表1 － 1
退出许可区 (许可证表1)

.子程序 主线程表1
.局部变量 任务数, 整数型
.局部变量 sd, 整数型

清除数组 (ttt)
子程序3 ()
sd ＝ 取启动时间 ()
许可证表1 ＝ 创建进入许可证 ()
.判断循环首 (任务数 ＜ 取数组成员数 (ttt))

    .如果真 (线程数表1 ＜ 95)

        进入许可区 (许可证表1)
        系统_处理事件 ()
        线程数表1 ＝ 线程数表1 ＋ 1

        任务数 ＝ 任务数 ＋ 1

        退出许可区 (许可证表1)

        启动线程 (&工作线程表1, 任务数, )


    .如果真结束

.判断循环尾 ()
删除进入许可证 (许可证表1)
调试输出 (取启动时间 () － sd)





---------------------------------------------------------------------------------------------

原来是用高级表格  11秒 搞定
放到数组里  400多秒

airaz

判断循环首 (任务数 ＜ 取数组成员数 (ttt))
问题在这

airaz

不是这里 是我数据出了问题