多线程 许可证的疑问

ldwz

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_线程池	鱼刺类_线程池
集_临界许可	鱼刺类_临界许可
日志许可证	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			易语言学习资源、源码下载站：www.eyuyan.la

' 临界许可第一个用法，线程排队执行
' 某种情况下，所有线程不能并发执行，必须排队执行。
' 也可以用队列，在不方便使用队列的情况下，可以用这个临界许可

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

日志许可证 ＝ 创建进入许可证 ()
启动线程 (&主线程, , )

子程序名	返回值类型	公开	备 注
主线程			www.eyuyan.la

变量名	类 型	静态	数组	备 注
i	整数型
局_线程数	整数型

局_线程数 ＝ 4  ' 创建4个线程
集_线程池.创建 (局_线程数, , , 假)  ' 是否在UI线程执行 线程中一般不用处理事件
计次循环首 (8, i)
启动线程 (&子线程, i, )
调试输出 (“主线程：” ＋ i)
计次循环尾 ()
集_线程池.等待任务动态 ()  ' 这句话可写可不写
判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完
_延时 (300)
判断循环尾 ()
调试输出 (“线程全部执行完毕”)

子程序名	返回值类型	公开	备 注
子线程			易语言学习资源、源码下载站：www.eyuyan.la
参数名	类 型	参考	可空	数组	备 注
i	整数型

' 进入许可区 (日志许可证)
_延时 (700)
调试输出 (i)
' 退出许可区 (日志许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_线程池, 鱼刺类_线程池<br /> .程序集变量 集_临界许可, 鱼刺类_临界许可<br /> .程序集变量 日志许可证, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> <br /> ' 临界许可第一个用法，线程排队执行<br /> ' 某种情况下，所有线程不能并发执行，必须排队执行。<br /> ' 也可以用队列，在不方便使用队列的情况下，可以用这个临界许可<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 日志许可证 ＝ 创建进入许可证 ()<br /> <br /> 启动线程 (&主线程, , )<br /> <br /> .子程序 主线程, , , <a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .局部变量 i, 整数型<br /> .局部变量 局_线程数, 整数型<br /> <br /> 局_线程数 ＝ 4  ' 创建4个线程<br /> 集_线程池.创建 (局_线程数, , , 假)  ' 是否在UI线程执行 线程中一般不用处理事件<br /> <br /> .计次循环首 (8, i)<br />     启动线程 (&子线程, i, )<br />     调试输出 (“主线程：” ＋ i)<br /> .计次循环尾 ()<br /> <br /> 集_线程池.等待任务动态 ()  ' 这句话可写可不写<br /> .判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完<br />     _延时 (300)<br /> .判断循环尾 ()<br /> <br /> 调试输出 (“线程全部执行完毕”)<br /> <br /> .子程序 子线程, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .参数 i, 整数型<br /> <br /> <br /> ' 进入许可区 (日志许可证)<br /> _延时 (700)<br /> 调试输出 (i)<br /> ' 退出许可区 (日志许可证)

主线程 里面输出的i 是正常的  1、2、3、4、5、6、7、8 ，那按说带入到 子线程 的i 应该也是 1-8才对呀，为什么会有重复的情况？ 只有加入了许可证 就不出现重复。

没弄懂到底是为什么导致 子线程   调试输出  I  出现重复的情况。




补充内容 (2024-11-22 12:03):
比如主线程 i 明明是 1-8不重复，i 带入到 子线成 里面 确出现重复的情况。

源业

线程加延迟

ldwz

源业 发表于 2024-11-22 11:42
线程加延迟

不加延迟 为什么  子线程会出现 重复的情况。

乐鱼驴

  

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

启动线程 (&主线程, , )

子程序名	返回值类型	公开	备 注
主线程			www.eyuyan.la

变量名	类 型	静态	数组	备 注
i	整数型
局_线程数	整数型

计次循环首 (8, i)
启动线程 (&子线程, i, )
调试输出 (“主线程：”, i)
计次循环尾 ()
调试输出 (“线程全部执行完毕”)

子程序名	返回值类型	公开	备 注
子线程			易语言学习资源、源码下载站：www.eyuyan.la
参数名	类 型	参考	可空	数组	备 注
i	整数型

' 进入许可区 (日志许可证)
程序_延时 (3000, )
调试输出 (i)
' 退出许可区 (日志许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&主线程, , )<br /> <br /> .子程序 主线程, , , <a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .局部变量 i, 整数型<br /> .局部变量 局_线程数, 整数型<br /> <br /> .计次循环首 (8, i)<br />     启动线程 (&子线程, i, )<br />     调试输出 (“主线程：”, i)<br /> .计次循环尾 ()<br /> 调试输出 (“线程全部执行完毕”)<br /> <br /> .子程序 子线程, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .参数 i, 整数型<br /> <br /> ' 进入许可区 (日志许可证)<br /> 程序_延时 (3000, )<br /> 调试输出 (i)<br /> ' 退出许可区 (日志许可证)

你的代码跑不起来的,

补充内容 (2024-11-22 15:34):
不用你的那个_延迟 就可以正常的

ldwz

乐鱼驴 发表于 2024-11-22 13:58
[e=0].版本 2
.支持库 EThread
.支持库 spec

调试输出 (“主线程：”, i)  这里  删除了。就行了或者加个 到文本  

半晚安睡

数据本身是没问题的，有问题的是调试输出，这个命令不是线程安全的。至于为什么会输出重复数字，我猜测是调试输出命令在出现线程安全问题时凑巧会输出1-8，可以尝试传递100-108则没有重复问题，可通过以下代码验证结论。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_线程池	鱼刺类_线程池
集_临界许可	鱼刺类_临界许可
日志许可证	整数型
arr	整数型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			易语言学习资源、源码下载站：www.eyuyan.la

' 临界许可第一个用法，线程排队执行
' 某种情况下，所有线程不能并发执行，必须排队执行。
' 也可以用队列，在不方便使用队列的情况下，可以用这个临界许可

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

日志许可证 ＝ 创建进入许可证 ()
启动线程 (&主线程, , )

子程序名	返回值类型	公开	备 注
主线程			www.eyuyan.la

变量名	类 型	静态	数组	备 注
i	整数型
局_线程数	整数型

局_线程数 ＝ 4  ' 创建4个线程
集_线程池.创建 (局_线程数, , , 假)  ' 是否在UI线程执行 线程中一般不用处理事件
' 数组_去重复 (, arr)
清除数组 (arr)
计次循环首 (10, i)
启动线程 (&子线程, i ＋ 100, )
' 启动线程 (&子线程2, i, )
调试输出 (“主线程：”, i)
计次循环尾 ()
延迟 (100)
调试输出 (arr)
集_线程池.等待任务动态 ()  ' 这句话可写可不写
判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完
_延时 (300)
判断循环尾 ()
调试输出 (“线程全部执行完毕”)

子程序名	返回值类型	公开	备 注
子线程			易语言学习资源、源码下载站：www.eyuyan.la
参数名	类 型	参考	可空	数组	备 注
i	整数型

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

' 进入许可区 (日志许可证)
_延时 (40)
调试输出 (“i”, i)
进入许可区 (日志许可证)
加入成员 (arr, i)
退出许可区 (日志许可证)
' 退出许可区 (日志许可证)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_线程池, 鱼刺类_线程池<br /> .程序集变量 集_临界许可, 鱼刺类_临界许可<br /> .程序集变量 日志许可证, 整数型<br /> .程序集变量 arr, 整数型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> <br /> ' 临界许可第一个用法，线程排队执行<br /> ' 某种情况下，所有线程不能并发执行，必须排队执行。<br /> ' 也可以用队列，在不方便使用队列的情况下，可以用这个临界许可<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 日志许可证 ＝ 创建进入许可证 ()<br /> <br /> 启动线程 (&主线程, , )<br /> <br /> .子程序 主线程, , , <a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .局部变量 i, 整数型<br /> .局部变量 局_线程数, 整数型<br /> <br /> 局_线程数 ＝ 4  ' 创建4个线程<br /> 集_线程池.创建 (局_线程数, , , 假)  ' 是否在UI线程执行 线程中一般不用处理事件<br /> <br /> ' 数组_去重复 (, arr)<br /> <br /> 清除数组 (arr)<br /> <br /> .计次循环首 (10, i)<br />     启动线程 (&子线程, i ＋ 100, )<br />     ' 启动线程 (&子线程2, i, )<br />     调试输出 (“主线程：”, i)<br /> .计次循环尾 ()<br /> 延迟 (100)<br /> 调试输出 (arr)<br /> <br /> 集_线程池.等待任务动态 ()  ' 这句话可写可不写<br /> .判断循环首 (集_线程池.取_是否完全空闲 () ＝ 假)  ' 等待任务全部执行完<br />     _延时 (300)<br /> .判断循环尾 ()<br /> <br /> 调试输出 (“线程全部执行完毕”)<br /> <br /> .子程序 子线程, , , 易语言学习资源、源码下载站：<a href="http://www.eyuyan.la" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.eyuyan.la</a><br /> .参数 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> ' 进入许可区 (日志许可证)<br /> _延时 (40)<br /> 调试输出 (“i”, i)<br /> 进入许可区 (日志许可证)<br /> 加入成员 (arr, i)<br /> 退出许可区 (日志许可证)<br /> ' 退出许可区 (日志许可证)

尛龍科技

你这边许可证用错位置了，许可证应该在线程内

chenboss

调试输出要加许可证，不然多线程会输出错乱，不是i的问题