帮忙改一个多线程同步

fengyewl

帮忙改一个多线程同步  

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮启动任务_被单击

计次循环首 (4, )
启动线程 (&子程序1, , )
程序_延时 (1000)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
p	整数型
账号任务名称	文本型
任务名称	文本型
账号任务状态	文本型
任务状态	文本型

计次循环首 (超级列表框_任务.取表项数 (), i)
任务名称 ＝ 超级列表框_任务.取标题 (i － 1, 1)
任务状态 ＝ 超级列表框_任务.取标题 (i － 1, 2)
调试输出 (“任务状态”, i, 任务名称, 任务状态)
如果真 (任务状态 ＝ “完成”)
调试输出 (“任务状态”, i)
跳出循环 ()

判断循环首 (真)
计次循环首 (超级列表框_项目任务.取表项数 (), p)
账号任务名称 ＝ 超级列表框_项目任务.取标题 (p － 1, 1)
账号任务状态 ＝ 超级列表框_项目任务.取标题 (p － 1, 2)
如果真 (账号任务状态 ≠ “完成”)
调试输出 (“项目任务完成：”, i, p, 任务名称, 账号任务名称, 账号任务状态)
如果真 (任务名称 ＝ 账号任务名称)
超级列表框_项目任务.置标题 (p － 1, 2, “完成”)


程序_延时 (200)
计次循环尾 ()
超级列表框_任务.置标题 (i － 1, 2, “完成”)
跳出循环 ()
判断循环尾 ()
程序_延时 (500)
计次循环尾 ()
调试输出 (“结束”)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮启动任务_被单击<br /> <br /> .计次循环首 (4, )<br />     启动线程 (&子程序1, , )<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 账号任务名称, 文本型<br /> .局部变量 任务名称, 文本型<br /> .局部变量 账号任务状态, 文本型<br /> .局部变量 任务状态, 文本型<br /> <br /> .计次循环首 (超级列表框_任务.取表项数 (), i)<br />     任务名称 ＝ 超级列表框_任务.取标题 (i － 1, 1)<br />     任务状态 ＝ 超级列表框_任务.取标题 (i － 1, 2)<br />     调试输出 (“任务状态”, i, 任务名称, 任务状态)<br />     .如果真 (任务状态 ＝ “完成”)<br />         调试输出 (“任务状态”, i)<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     .判断循环首 (真)<br />         .计次循环首 (超级列表框_项目任务.取表项数 (), p)<br />             账号任务名称 ＝ 超级列表框_项目任务.取标题 (p － 1, 1)<br />             账号任务状态 ＝ 超级列表框_项目任务.取标题 (p － 1, 2)<br /> <br />             .如果真 (账号任务状态 ≠ “完成”)<br />                 调试输出 (“项目任务完成：”, i, p, 任务名称, 账号任务名称, 账号任务状态)<br />                 .如果真 (任务名称 ＝ 账号任务名称)<br />                     超级列表框_项目任务.置标题 (p － 1, 2, “完成”)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />             程序_延时 (200)<br />         .计次循环尾 ()<br />         超级列表框_任务.置标题 (i － 1, 2, “完成”)<br />         跳出循环 ()<br />     .判断循环尾 ()<br />     程序_延时 (500)<br /> .计次循环尾 ()<br /> 调试输出 (“结束”)

现在写的有点问题，

demo.e (901.62 KB, 下载次数: 5)

2025-5-20 12:44 上传

点击文件名下载附件

补充内容 (2025-5-20 13:47):
左边 是需要执行的名称任务，
右边是 需要执行左边相同的名字 启动多线程去同步操作 完成后，
继续执行左边的任务名字  右边相同
把左边循环完...

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)
.计次循环尾 ()

Suky

没看明白你想达成一个什么目的

明天自然醒

可以看出来一点基础没有https://125.confly.eu.org/forum.php?mod ... 14816884&extra=

fengyewl

明天自然醒 发表于 2025-5-20 13:26
可以看出来一点基础没有https://125.confly.eu.org/forum.php?mod=viewthread&tid=14816884&extra= ...

哈哈哈，看起来太复杂。。。。

fengyewl

Suky 发表于 2025-5-20 12:59
没看明白你想达成一个什么目的

左边 是需要执行的名称任务， 右边是 需要执行左边相同的名字 启动多线程去同步操作 完成后， 继续执行左边的任务名字  右边相同，，，

一直把左边循环完，结束

zs5819

  

子程序名	返回值类型	公开	备 注
_按钮启动任务_被单击

变量名	类 型	静态	数组	备 注
i	整数型

集_许可证 ＝ 创建进入许可证 ()
计次循环首 (超级列表框_任务.取表项数 (), i)
启动线程 (&子程序1, i － 1, )
程序_延时 (1000)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
参1	整数型

变量名	类 型	静态	数组	备 注
i	整数型
账号任务名称	文本型
任务名称	文本型
账号任务状态	文本型
任务状态	文本型

任务名称 ＝ 超级列表框_任务.取标题 (参1, 1)
任务状态 ＝ 超级列表框_任务.取标题 (参1, 2)
' 调试输出 (“任务状态”, i, 任务名称, 任务状态)
如果真 (任务状态 ＝ “完成”)
调试输出 (“任务状态”, i)
返回 ()

计次循环首 (超级列表框_项目任务.取表项数 (), i)
账号任务名称 ＝ 超级列表框_项目任务.取标题 (i － 1, 1)
账号任务状态 ＝ 超级列表框_项目任务.取标题 (i － 1, 2)
如果真 (账号任务状态 ≠ “完成”)
' 调试输出 (“项目任务完成：”, i, 任务名称, 账号任务名称, 账号任务状态)
如果真 (任务名称 ＝ 账号任务名称)
进入许可区 (集_许可证)
超级列表框_项目任务.置标题 (i － 1, 2, 任务名称 ＋ “-完成”)
退出许可区 (集_许可证)


处理事件 ()
计次循环尾 ()
' 进入许可区 (集_许可证)
超级列表框_任务.置标题 (参1, 2, “完成”)
' 退出许可区 (集_许可证)

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮启动任务_被单击<br /> .局部变量 i, 整数型<br /> <br /> <br /> 集_许可证 ＝ 创建进入许可证 ()<br /> <br /> .计次循环首 (超级列表框_任务.取表项数 (), i)<br />     启动线程 (&子程序1, i － 1, )<br />     程序_延时 (1000)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 子程序1<br /> .参数 参1, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 账号任务名称, 文本型<br /> .局部变量 任务名称, 文本型<br /> .局部变量 账号任务状态, 文本型<br /> .局部变量 任务状态, 文本型<br /> <br /> <br /> <br /> 任务名称 ＝ 超级列表框_任务.取标题 (参1, 1)<br /> 任务状态 ＝ 超级列表框_任务.取标题 (参1, 2)<br /> ' 调试输出 (“任务状态”, i, 任务名称, 任务状态)<br /> .如果真 (任务状态 ＝ “完成”)<br />     调试输出 (“任务状态”, i)<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (超级列表框_项目任务.取表项数 (), i)<br />     账号任务名称 ＝ 超级列表框_项目任务.取标题 (i － 1, 1)<br />     账号任务状态 ＝ 超级列表框_项目任务.取标题 (i － 1, 2)<br /> <br />     .如果真 (账号任务状态 ≠ “完成”)<br />         ' 调试输出 (“项目任务完成：”, i, 任务名称, 账号任务名称, 账号任务状态)<br />         .如果真 (任务名称 ＝ 账号任务名称)<br />             进入许可区 (集_许可证)<br />             超级列表框_项目任务.置标题 (i － 1, 2, 任务名称 ＋ “-完成”)<br />             退出许可区 (集_许可证)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br />     处理事件 ()<br /> .计次循环尾 ()<br /> ' 进入许可区 (集_许可证)<br /> 超级列表框_任务.置标题 (参1, 2, “完成”)<br /> ' 退出许可区 (集_许可证)

夜的静night

fengyewl

夜的静night 发表于 2025-5-20 14:28

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

    .计次循环首 (超级列表框_项目任务.取表项数 (), p)
        账号任务名称 ＝ 超级列表框_项目任务.取标题 (p － 1, 1)
        账号任务状态 ＝ 超级列表框_项目任务.取标题 (p － 1, 2)
        .如果真 (账号任务名称 ＝ 任务名称)
            .如果真 (账号任务状态 ≠ “完成”)
                调试输出 (“项目任务完成：”, i, p, 任务名称, 账号任务名称, 账号任务状态)
                .如果真 (任务名称 ＝ 账号任务名称)
                    超级列表框_项目任务.置标题 (p － 1, 2, “完成”)
                .如果真结束

            .如果真结束
            程序_延时 (200)
        .如果真结束

    .计次循环尾 ()
    超级列表框_任务.置标题 (i － 1, 2, “完成”)
                 ，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，，
4个线程如果有一个在前面完成了，是不是跳过执行下一组； ， 上一组还原有一个没执行完怎么处理呢？
   不是同步执行的

补充内容 (2025-5-20 16:08):
如果真 (任务名称 ＝ 账号任务名称)
      程序_延时 (取随机数 (1000, 10000))
        超级列表框_项目任务.置标题 (p － 1, 2, “完成”)   加一个随机数 延...

fengyewl

zs5819 发表于 2025-5-20 14:13
[e=1].版本 2
.支持库 EThread
.支持库 iext

这样处理只是单线程了，不是多线程了，需要多线程同步操作右边同时进行任务  

你的猫

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
h临界区	整数型
共享变量	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 初始化临界区
h临界区 = CreateCriticalSection ()

子程序名	返回值类型	公开	备 注
_按钮_启动线程_被单击

' 创建两个线程模拟并发操作
启动线程 (&线程任务1, )
启动线程 (&线程任务2, )

子程序名	返回值类型	公开	备 注
线程任务1

.计次循环 100
' 进入临界区
EnterCriticalSection (h临界区)
共享变量 ＝ 共享变量 ＋ 1
输出调试文本 (“线程1:共享变量=” ＋ 到文本 (共享变量))
' 离开临界区
LeaveCriticalSection (h临界区)
延时 (10)
计次循环尾

子程序名	返回值类型	公开	备 注
线程任务2

.计次循环 100
EnterCriticalSection (h临界区)
共享变量 ＝ 共享变量 － 1
输出调试文本 (“线程2:共享变量=” ＋ 到文本 (共享变量))
LeaveCriticalSection (h临界区)
延时 (10)
计次循环尾

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

' 销毁临界区
DeleteCriticalSection (h临界区)
' --- 声明Windows API ---

DLL命令名	返回值类型	公开	备 注
CreateCriticalSection	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
InitializeCriticalSection
参数名	类 型	传址	数组	备 注
lpCriticalSection	整数型

DLL命令名	返回值类型	公开	备 注
EnterCriticalSection
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
EnterCriticalSection
参数名	类 型	传址	数组	备 注
lpCriticalSection	整数型

DLL命令名	返回值类型	公开	备 注
LeaveCriticalSection
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
LeaveCriticalSection
参数名	类 型	传址	数组	备 注
lpCriticalSection	整数型

DLL命令名	返回值类型	公开	备 注
DeleteCriticalSection
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
DeleteCriticalSection
参数名	类 型	传址	数组	备 注
lpCriticalSection	整数型

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 h临界区, 整数型<br /> .程序集变量 共享变量, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     ' 初始化临界区<br />     h临界区 = CreateCriticalSection()<br /> <br /> .子程序 _按钮_启动线程_被单击<br />     ' 创建两个线程模拟并发操作<br />     启动线程(&线程任务1, )<br />     启动线程(&线程任务2, )<br /> <br /> .子程序 线程任务1<br />     .计次循环 100<br />         ' 进入临界区<br />         EnterCriticalSection(h临界区)<br />         共享变量 ＝ 共享变量 ＋ 1<br />         输出调试文本(“线程1:共享变量=” ＋ 到文本(共享变量))<br />         ' 离开临界区<br />         LeaveCriticalSection(h临界区)<br />         延时(10)<br />     .计次循环尾<br /> <br /> .子程序 线程任务2<br />     .计次循环 100<br />         EnterCriticalSection(h临界区)<br />         共享变量 ＝ 共享变量 － 1<br />         输出调试文本(“线程2:共享变量=” ＋ 到文本(共享变量))<br />         LeaveCriticalSection(h临界区)<br />         延时(10)<br />     .计次循环尾<br /> <br /> .子程序 __启动窗口_将被销毁<br />     ' 销毁临界区<br />     DeleteCriticalSection(h临界区)<br /> <br /> ' --- 声明Windows API ---<br /> .DLL命令 CreateCriticalSection, 整数型, "kernel32.dll", "InitializeCriticalSection"<br />     .参数 lpCriticalSection, 整数型, 传址<br /> <br /> .DLL命令 EnterCriticalSection, , "kernel32.dll", "EnterCriticalSection"<br />     .参数 lpCriticalSection, 整数型, 传址<br /> <br /> .DLL命令 LeaveCriticalSection, , "kernel32.dll", "LeaveCriticalSection"<br />     .参数 lpCriticalSection, 整数型, 传址<br /> <br /> .DLL命令 DeleteCriticalSection, , "kernel32.dll", "DeleteCriticalSection"<br />     .参数 lpCriticalSection, 整数型, 传址