小白求助,多线程 许可区 的用法!

laniv

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_许可证	整数型
集_加减结果	整数型

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

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

集_许可证 ＝ 创建进入许可证 ()
计次循环首 (5, i)
启动线程 (&主线程, i, )
计次循环尾 ()

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

进入许可区 (集_许可证)
写入编辑框 (a)
退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
写入编辑框
参数名	类 型	参考	可空	数组	备 注
a	整数型

集_加减结果 ＝ 1 ＋ 2
编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “  ” ＋ 到文本 (集_加减结果) ＋ #换行符 )

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

删除进入许可证 (集_许可证)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_许可证, 整数型<br /> .程序集变量 集_加减结果, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 集_许可证 ＝ 创建进入许可证 ()<br /> <br /> .计次循环首 (5, i)<br />     启动线程 (&主线程, i, )<br /> .计次循环尾 ()<br /> <br /> .子程序 主线程<br /> .参数 a, 整数型<br /> <br /> <br /> 进入许可区 (集_许可证)<br /> 写入编辑框 (a)<br /> 退出许可区 (集_许可证)<br /> <br /> .子程序 写入编辑框<br /> .参数 a, 整数型<br /> <br /> 集_加减结果 ＝ 1 ＋ 2<br /> <br /> 编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “  ” ＋ 到文本 (集_加减结果) ＋ #换行符)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (集_许可证)

问题如上,请大佬指点一下,谢谢!
里面5个线程,调用一个子程序,只需要其中一个线程调用 这个 子程序 即可,如果全都调用,算法就会错乱了.

xinqing

laniv 发表于 2020-7-12 20:38
我的意思是,5条线程同事运行,当运行其中一个 子程序 的时候,只允许 一条线程进去运行,其他线程,跳过.你这 ...

你启动几个进去几个，并不是不进去，而是一个一个的进去

a1533759138

许可证是很让人头疼的

laniv

a1533759138 发表于 2020-7-11 22:23
许可证是很让人头疼的

是啊,很头疼,搞不定.所以来这里请教了.

xinqing

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
集_许可证	整数型
集_加减结果	整数型
集_逻辑	逻辑型

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

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

集_许可证 ＝ 创建进入许可证 ()
计次循环首 (5, i)
启动线程 (&主线程, i, )
计次循环尾 ()

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

进入许可区 (集_许可证)
如果 (集_逻辑 ＝ 假)
集_逻辑 ＝ 真
写入编辑框 (a)
编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “-读取结果-” ＋ 到文本 (集_加减结果) ＋ #换行符 )
退出许可区 (集_许可证)

子程序名	返回值类型	公开	备 注
写入编辑框
参数名	类 型	参考	可空	数组	备 注
a	整数型

集_加减结果 ＝ 1 ＋ 2
编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “  ” ＋ 到文本 (集_加减结果) ＋ #换行符 )

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

删除进入许可证 (集_许可证)

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 集_许可证, 整数型<br /> .程序集变量 集_加减结果, 整数型<br /> .程序集变量 集_逻辑, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> 集_许可证 ＝ 创建进入许可证 ()<br /> .计次循环首 (5, i)<br />     启动线程 (&主线程, i, )<br /> .计次循环尾 ()<br /> <br /> .子程序 主线程<br /> .参数 a, 整数型<br /> <br /> 进入许可区 (集_许可证)<br /> .如果 (集_逻辑 ＝ 假)<br />     集_逻辑 ＝ 真<br />     写入编辑框 (a)<br /> .否则<br />     编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “-读取结果-” ＋ 到文本 (集_加减结果) ＋ #换行符)<br /> .如果结束<br /> 退出许可区 (集_许可证)<br /> <br /> .子程序 写入编辑框<br /> .参数 a, 整数型<br /> <br /> 集_加减结果 ＝ 1 ＋ 2<br /> 编辑框1.加入文本 (“执行线程:” ＋ 到文本 (a) ＋ “  ” ＋ 到文本 (集_加减结果) ＋ #换行符)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除进入许可证 (集_许可证)

laniv

xinqing 发表于 2020-7-11 22:39
[e=3].版本 2
.支持库 EThread

这样也不行啊,子程序还是被执行了,我的软件 这个 子程序 ,是一个 赋值变量,只能执行一次,多次执行的话,变量就变了.

月缺

laniv 发表于 2020-7-11 23:01
这样也不行啊,子程序还是被执行了,我的软件 这个 子程序 ,是一个 赋值变量,只能执行一次,多次执行的话,变 ...

根据你帖子内容，地板还不是正解？是我理解能力不行了吗？

laniv

月缺 发表于 2020-7-11 23:27
根据你帖子内容，地板还不是正解？是我理解能力不行了吗？

我想问的意思是, 正常来说,开了 许可区 不应该只执行一次吗?
这里开了 许可证 还是会 执行 5次,我是想知道是不是我用错了,还是怎样?
他这个是加了 变量 来控制,我自己也是这样 操作的,但是 执行还是会 执行 5次啊...

ezzuhao

你计次循环5，可不就是输出5个。

拿了5次许可证呗

laniv

ezzuhao 发表于 2020-7-12 00:01
你计次循环5，可不就是输出5个。

拿了5次许可证呗

可是 许可证 的ID是一样的啊?
这样不是可以控制 一次 只运行 一个子程序 吗?