线程启动与子程序执行在实际场景中区别

rectdbszy

在无意思中写一个软件，发现： 线程启动（&子程序，，）这个命令会在多线程中超出定义的执行数。
就又用了 ：子程序（） 这个命令就不会出现超出。

（备注：是没有加开关，没有改代码，只是命令不一样，线程自由执行情况下）

分享出来让大家不要再踩坑，有性趣可一起在评论区讨论一下，让大家都能有所了解

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
c	整数型
许可证	多线程许可证
b	整数型

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

许可证 ＝ 超级_线程创建许可证 ()
停止 ＝ 假

子程序名	返回值类型	公开	备 注
_按钮_生成_被单击

变量名	类 型	静态	数组	备 注
sz	文本型		0
i	整数型
b	整数型

超级_数组随机生成 (sz, 到整数 (编辑框_数量.内容), 到整数 (编辑框_位数.内容))
计次循环首 (取数组成员数 (sz), i)
b ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (b, 0, 到文本 (b ＋ 1))
超级列表框1.置标题 (b, 1, sz [i])
透明标签1.标题 ＝ “正在生成” ＋ 到文本 (i)
计次循环尾 ()
透明标签1.标题 ＝ “完成数组生成”

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

b ＝ 0
判断循环首 (b ＜ 超级列表框1.取表项数 ())
计次循环首 (到整数 (编辑框1.内容), )
判断 (编辑框3.内容 ＝ “1”)
执行3 ()
判断 (编辑框3.内容 ＝ “2”)
处理事件 ()
启动线程 (&执行3, , )
返回 ()

计次循环尾 ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_普通执行_被单击

c ＝ 0
判断循环首 (c ＜ 超级列表框1.取表项数 ())
计次循环首 (到整数 (编辑框2.内容), )
执行2 ()
计次循环尾 ()
判断循环尾 ()

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

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

超级_线程进入许可区 (许可证)
判断 (编辑框_执行.内容 ＝ “”)
透明标签7.标题 ＝ “正在执行” ＋ 到文本 (c)
超级列表框1.置标题 (c, 2, “”)
c ＝ c ＋ 1
透明标签7.标题 ＝ “执行完成” ＋ 到文本 (c)
超级列表框1.保证显示 (c)



超级_线程离开许可区 (许可证)

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

超级_线程进入许可区 (许可证)
判断 (编辑框_执行.内容 ＝ “”)
超级列表框1.置标题 (b, 2, “执行”)
透明标签2.标题 ＝ “正在执行” ＋ 到文本 (b)
超级列表框1.置标题 (b, 2, “完成”)
b ＝ b ＋ 1
透明标签2.标题 ＝ “执行完成” ＋ 到文本 (b)
超级列表框1.保证显示 (b)



超级_线程离开许可区 (许可证)

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 c, 整数型<br /> .程序集变量 许可证, 多线程许可证<br /> .程序集变量 b, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 许可证 ＝ 超级_线程创建许可证 ()<br /> 停止 ＝ 假<br /> <br /> .子程序 _按钮_生成_被单击<br /> .局部变量 sz, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 b, 整数型<br /> <br /> 超级_数组随机生成 (sz, 到整数 (编辑框_数量.内容), 到整数 (编辑框_位数.内容))<br /> .计次循环首 (取数组成员数 (sz), i)<br />     b ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (b, 0, 到文本 (b ＋ 1))<br />     超级列表框1.置标题 (b, 1, sz <i>)<br />     透明标签1.标题 ＝ “正在生成” ＋ 到文本 (i)<br /> <br /> .计次循环尾 ()<br /> 透明标签1.标题 ＝ “完成数组生成”<br /> <br /> .子程序 _按钮_线程执行_被单击<br /> <br /> b ＝ 0<br /> .判断循环首 (b ＜ 超级列表框1.取表项数 ())<br />     .计次循环首 (到整数 (编辑框1.内容), )<br />         .判断开始 (编辑框3.内容 ＝ “1”)<br />             执行3 ()<br />         .判断 (编辑框3.内容 ＝ “2”)<br />             处理事件 ()<br />             启动线程 (&执行3, , )<br />         .默认<br />             返回 ()<br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> .子程序 _按钮_普通执行_被单击<br /> <br /> c ＝ 0<br /> .判断循环首 (c ＜ 超级列表框1.取表项数 ())<br />     .计次循环首 (到整数 (编辑框2.内容), )<br />         执行2 ()<br />     .计次循环尾 ()<br /> .判断循环尾 ()<br /> <br /> .子程序 执行2<br /> .局部变量 i, 整数型<br /> <br /> 超级_线程进入许可区 (许可证)<br /> .判断开始 (编辑框_执行.内容 ＝ “”)<br />     透明标签7.标题 ＝ “正在执行” ＋ 到文本 (c)<br />     超级列表框1.置标题 (c, 2, “”)<br />     c ＝ c ＋ 1<br /> <br />     透明标签7.标题 ＝ “执行完成” ＋ 到文本 (c)<br />     超级列表框1.保证显示 (c)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 超级_线程离开许可区 (许可证)<br /> <br /> <br /> .子程序 执行3<br /> <br /> 超级_线程进入许可区 (许可证)<br /> .判断开始 (编辑框_执行.内容 ＝ “”)<br />     超级列表框1.置标题 (b, 2, “执行”)<br />     透明标签2.标题 ＝ “正在执行” ＋ 到文本 (b)<br />     超级列表框1.置标题 (b, 2, “完成”)<br />     b ＝ b ＋ 1<br />     透明标签2.标题 ＝ “执行完成” ＋ 到文本 (b)<br />     超级列表框1.保证显示 (b)<br /> <br /> .默认<br /> <br /> .判断结束<br /> 超级_线程离开许可区 (许可证)

rectdbszy

生成1000个，用线程启动，它会执行2000多次
用子程序（）就只会执行1000次
有人说哪么不 用精易的，实际我发现问题就是用的精易的，以为换个模块命令会对，哪知道还是一样会跑2000多次，上源码时就难得改了，就没改回精易模块。
实际我讨论的只是线程启动这个命令。为什么会跑2000多次，我也是一头晕，所以才分享出来。

rectdbszy

这次什么都不加，只调用这两个命令对比。看下是啥情况

ghost12

感谢分享，很给力！~

zhao0404

zhao0404 发表于 2021-5-1 22:59
线程处理速度不一加个延迟解决一切

是这个GIF

zhao0404

zhao0404 发表于 2021-5-1 22:52
这怎么解释

线程处理速度不一加个延迟解决一切

zhao0404

rectdbszy 发表于 2021-4-26 21:17
这次什么都不加，只调用这两个命令对比。看下是啥情况

这怎么解释

cc66029

感谢楼主分享,学习学习

shuaifei156

看你们觉得自己只是小白中胡小白

rectdbszy

bianyuan456 发表于 2021-4-27 00:29
模块！你用的啥模块？我直接运行，缺少模块！！！！！

只有一个生成随机是我的模块，可改成取随机数，多线程的命令可以直接换成精易。别的就没改的了

成神之日

666666666666666

cc66029

感谢楼主分享