帮忙改一个多线程同步

goodsboy2030

看了别人的回复也是种学习

fengyewl

demo6.e (1.2 MB, 下载次数: 2)

2025-5-21 00:31 上传

点击文件名下载附件

                                                    这个又是我从新写的代码。启动不能4个线程一起去运行AAA  感觉还是单线程的样子，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，、
请高手帮帮忙 @





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

调试输出 (“开始局_索引:”, 局_索引, 全局_任务索引)
.计次循环首 (超级列表框_项目任务.取表项数 (), p)
    进入许可区 (集_许可证)
    账号任务名称 ＝ 超级列表框_项目任务.取标题 (p － 1, 1)
    账号任务状态 ＝ 超级列表框_项目任务.取标题 (p － 1, 2)
    退出许可区 (集_许可证)
    调试输出 (“账号任务名称账号任务状态:”, 账号任务名称, 账号任务状态, “局_索引:”, 局_索引)
    .如果真 (账号任务名称 ＝ 全局_任务名称 且 账号任务状态 ≠ “完成”)
        超级列表框_项目任务.置标题 (p － 1, 2, “任务中”)
        程序_延时 (取随机数 (1000, 1000))
        进入许可区 (集_许可证)
        超级列表框_项目任务.置标题 (p － 1, 2, “完成”)
        完成任务数量 ＝ 完成任务数量 ＋ 1

        退出许可区 (集_许可证)
        调试输出 (“已完成项目任务:”, 账号任务名称, “已完成任务名称:”, 全局_任务名称, “完成任务数量”, 完成任务数量, “局_索引:”, 局_索引, 全局_任务索引)
    .如果真结束
    .如果真 (完成任务数量 ≥ 4)
        调试输出 (“完成任务数量”, 完成任务数量, 局_索引)
        超级列表框_任务.置标题 (全局_任务索引, 2, “完成”)
        完成任务数量 ＝ 0
        跳出循环 ()
    .如果真结束
    处理事件 ()
    程序_延时 (1000)
.计次循环尾 ()