精易多线程卡死

heigui999

.版本 2

注册数量 ＝ 0
线程数量 ＝ 0
重定义数组 (线程组, 假, 到整数 (编辑框注册线程.内容))
主线程 ＝ 线程_启动 (&运行, , )


.版本 2
.支持库 spec

.判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))
    .如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))
        .如果真 (组合框1.现行选中项 ＝ 0)
            线程_启动 (&任务, 注册数量, 线程名)
        .如果真结束
        .如果真 (组合框1.现行选中项 ＝ 1)
            线程_启动 (&处理, 注册数量, 线程名)
        .如果真结束

        注册数量 ＝ 注册数量 ＋ 1
        加入成员 (线程组, 线程编号)
        线程数量 ＝ 线程数量 ＋ 1
        系统_处理事件 ()
        延迟 (200)
    .如果真结束

.判断循环尾 ()

  容易卡死
后面加的
系统_处理事件 ()
        延迟 (200)     还没测试   看看有没有办法改下   

RainCharm

  

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

变量名	类 型	静态	数组	备 注
许可证	线程许可证
注册数量	整数型
线程数量	整数型
线程组	整数型		0
线程编号	整数型

许可证 ＝ 线程_创建许可证 ()
注册数量 ＝ 0
线程数量 ＝ 0
重定义数组 (线程组, 假, 0)
判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))
如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))
线程_进入许可区 (许可证)
如果真 (组合框1.现行选中项 ＝ 0)
线程_启动 (&任务, 注册数量, 线程编号)
如果真 (组合框1.现行选中项 ＝ 1)
线程_启动 (&处理, 注册数量, 线程编号)

如果真 (线程编号 ≠ 0)
注册数量 ＝ 注册数量 ＋ 1
加入成员 (线程组, 线程编号)
线程数量 ＝ 线程数量 ＋ 1
线程_退出许可区 (许可证)
系统_处理事件 ()
延迟 (200)

系统_处理事件 ()
延迟 (50)
判断循环尾 ()
线程_删除许可证 (许可证)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 运行<br /> .局部变量 许可证, 线程许可证<br /> .局部变量 注册数量, 整数型<br /> .局部变量 线程数量, 整数型<br /> .局部变量 线程组, 整数型, , "0"<br /> .局部变量 线程编号, 整数型<br /> <br /> <br /> 许可证 ＝ 线程_创建许可证 ()<br /> 注册数量 ＝ 0<br /> 线程数量 ＝ 0<br /> 重定义数组 (线程组, 假, 0)<br /> <br /> .判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))<br />     .如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))<br />         线程_进入许可区 (许可证)<br />         .如果真 (组合框1.现行选中项 ＝ 0)<br />             线程_启动 (&任务, 注册数量, 线程编号)<br />         .如果真结束<br />         .如果真 (组合框1.现行选中项 ＝ 1)<br />             线程_启动 (&处理, 注册数量, 线程编号)<br /> <br />         .如果真结束<br /> <br />         .如果真 (线程编号 ≠ 0)<br />             注册数量 ＝ 注册数量 ＋ 1<br />             加入成员 (线程组, 线程编号)<br />             线程数量 ＝ 线程数量 ＋ 1<br />         .如果真结束<br />         线程_退出许可区 (许可证)<br /> <br />         系统_处理事件 ()<br />         延迟 (200)<br />     .如果真结束<br /> <br />     系统_处理事件 ()<br />     延迟 (50)<br /> <br /> .判断循环尾 ()<br /> <br /> 线程_删除许可证 (许可证)

测试没问题，你试一下这样写

萧楚楠

延迟换成 程序_延时

小李吃不饱

  

判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))
程序_延时 (10)
如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))
如果真 (组合框1.现行选中项 ＝ 0)
线程_启动 (&任务, 注册数量, 线程名)
如果真 (组合框1.现行选中项 ＝ 1)
线程_启动 (&处理, 注册数量, 线程名)

注册数量 ＝ 注册数量 ＋ 1
加入成员 (线程组, 线程编号)
线程数量 ＝ 线程数量 ＋ 1
系统_处理事件 ()
延迟 (200)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))<br />     程序_延时(10)<br />     .如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))<br />         .如果真 (组合框1.现行选中项 ＝ 0)<br />             线程_启动 (&任务, 注册数量, 线程名)<br />         .如果真结束<br />         .如果真 (组合框1.现行选中项 ＝ 1)<br />             线程_启动 (&处理, 注册数量, 线程名)<br />         .如果真结束<br /> <br />         注册数量 ＝ 注册数量 ＋ 1<br />         加入成员 (线程组, 线程编号)<br />         线程数量 ＝ 线程数量 ＋ 1<br />         系统_处理事件 ()<br />         延迟 (200)<br />     .如果真结束<br /> <br /> .判断循环尾 ()

补充内容 (2025-11-18 20:30):
其他代码删了就行