线程问题 大佬来看看

是可可吖

  

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

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

判断 (编辑框_线程数.内容 ＝ “”)
对比线程 ＝ 1
对比线程 ＝ 到整数 (编辑框_线程数.内容)

运行线程数 ＝ 0
计次循环首 (超级列表框2.取表项数 (), 次数)
线程_启动 (&查找, 次数 － 1, )
进入许可区 (集_许可证_查找)
运行线程数 ＝ 运行线程数 ＋ 1
退出许可区 (集_许可证_查找)
判断循环首 (运行线程数 ≥ 对比线程)
程序_延时 (500, )
判断循环尾 ()
计次循环尾 ()
判断循环首 (运行线程数 ＞ 0)
程序_延时 (500, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
查找
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型

变量名	类 型	静态	数组	备 注
位置索引	整数型

位置索引 ＝ 超级列表框1.查找表项 (超级列表框2.取标题 (表项索引, 1), , , )
如果真 (位置索引 ≠ -1)
进入许可区 (集_许可证_查找)
编辑框1.加入文本 (“位置索引：” ＋ 到文本 (位置索引) ＋ #换行符 )
退出许可区 (集_许可证_查找)

进入许可区 (集_许可证_查找)
运行线程数 ＝ 运行线程数 － 1
退出许可区 (集_许可证_查找)

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

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> <br /> .子程序 _按钮_排查_被单击<br /> .局部变量 次数, 整数型<br /> <br /> .判断开始 (编辑框_线程数.内容 ＝ “”)<br />     对比线程 ＝ 1<br /> .默认<br />     对比线程 ＝ 到整数 (编辑框_线程数.内容)<br /> .判断结束<br /> <br /> 运行线程数 ＝ 0<br /> .计次循环首 (超级列表框2.取表项数 (), 次数)<br />     线程_启动 (&查找, 次数 － 1, )<br />     进入许可区 (集_许可证_查找)<br />     运行线程数 ＝ 运行线程数 ＋ 1<br />     退出许可区 (集_许可证_查找)<br />     .判断循环首 (运行线程数 ≥ 对比线程)<br />         程序_延时 (500, )<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> .判断循环首 (运行线程数 ＞ 0)<br />     程序_延时 (500, )<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 查找<br /> .参数 表项索引, 整数型<br /> .局部变量 位置索引, 整数型<br /> <br /> 位置索引 ＝ 超级列表框1.查找表项 (超级列表框2.取标题 (表项索引, 1), , , )<br /> .如果真 (位置索引 ≠ -1)<br />     进入许可区 (集_许可证_查找)<br />     编辑框1.加入文本 (“位置索引：” ＋ 到文本 (位置索引) ＋ #换行符)<br />     退出许可区 (集_许可证_查找)<br /> <br /> .如果真结束<br /> <br /> 进入许可区 (集_许可证_查找)<br /> 运行线程数 ＝ 运行线程数 － 1<br /> 退出许可区 (集_许可证_查找)

大佬们，来看看，我这线程跑起来就卡死了，是什么原因

是哪里写错了吗？

是可可吖

已自行解决，日志打印不加进出许可就不会卡死了

是可可吖

@LEOONL

大佬帮忙看看，跑到最后直接卡死了

风行无忌

其它线程操作界面需要等主线程反馈，而这时候主线程如果进入了锁，其它线程会阻塞住，一直在那等待主线程反馈，此时主线程还在等待进入许可区，就造成了死锁。
你这个 运行线程数 ＝ 运行线程数 ＋ 1 可以改成原子操作来保持同步，应该就正常了。
简单的说，如果其它线程会与主线程交互，就不能在主线程中使用临界许可。

是可可吖

风行无忌 发表于 2025-1-11 17:18
其它线程操作界面需要等主线程反馈，而这时候主线程如果进入了锁，其它线程会阻塞住，一直在那等待主线程反 ...

谢谢，已自行解决了，日子打印不加许可就行了

真IKUN

来晚了