关于多线程调用全局变量的问题

weiyuqiang

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

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

计次循环首 (500, )
启动线程 (&计算, 结果, )
程序_延时 (10)
处理事件 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
计算
参数名	类 型	参考	可空	数组	备 注
结果	整数型

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

a ＝ 1
b ＝ 2
如果 (a ＋ b ＝ 结果)
Lock_inc (全局成功)
Lock_inc (全局失败)

子程序名	返回值类型	公开	备 注
Lock_inc			原子级对一个变量进行递增。
参数名	类 型	参考	可空	数组	备 注
i	整数型				要递增的全局整数变量

置入代码 ({ 139, 69, 8, 240, 255, 0 })

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

启动线程 (&执行线程, , )

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 执行线程<br /> .局部变量 结果, 整数型<br /> <br /> .计次循环首 (500, )<br />     启动线程 (&计算, 结果, )<br />     程序_延时 (10)<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 计算<br /> .参数 结果, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> <br /> a ＝ 1<br /> b ＝ 2<br /> .如果 (a ＋ b ＝ 结果)<br />     Lock_inc (全局成功)<br /> .否则<br />     Lock_inc (全局失败)<br /> .如果结束<br /> <br /> <br /> .子程序 Lock_inc, , 公开, 原子级对一个变量进行递增。<br /> .参数 i, 整数型, 参考, 要递增的全局整数变量<br /> <br /> 置入代码 ({ 139, 69, 8, 240, 255, 0 })<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&执行线程, , )

多线程中去递增这个全局变量，比如全局成功或者全局失败
用到的这个递增函数，是一位易友提供的
但是我发现一个问题，比如500线程执行完之后，得到的数量和实际不符合 要不多了 要不少了

xizhihan

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
全局成功	整数型
全局失败	整数型

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

全局成功 ＝ 0
全局失败 ＝ 0

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

变量名	类 型	静态	数组	备 注
结果	整数型
线程句柄数组	整数型		500
i	整数型

结果 ＝ 3
计次循环首 (500, i)
线程句柄数组[i] ＝ 启动线程 (&计算, 结果, )
计次循环尾 ()
' 等待所有线程完成
计次循环首 (500, i)
等待线程 (线程句柄数组[i], -1)
关闭线程句柄 (线程句柄数组[i])
计次循环尾 ()
信息框 (“执行完成！成功次数：” ＋ 到文本 (全局成功) ＋ “ 失败次数：” ＋ 到文本 (全局失败), 0, , )

子程序名	返回值类型	公开	备 注
计算
参数名	类 型	参考	可空	数组	备 注
结果	整数型

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

a ＝ 1
b ＝ 2
如果真 (a ＋ b ＝ 结果)
Lock_inc (全局成功)
Lock_inc (全局失败)

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

置入代码 ({ 139, 69, 8, 240, 255, 0 })  

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

全局成功 ＝ 0  ' 每次执行前重置计数
全局失败 ＝ 0
启动线程 (&执行线程, , )

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 全局成功, 整数型<br /> .程序集变量 全局失败, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 全局成功 ＝ 0<br /> 全局失败 ＝ 0<br /> <br /> .子程序 执行线程<br /> .局部变量 结果, 整数型<br /> .局部变量 线程句柄数组, 整数型, , "500"<br /> .局部变量 i, 整数型<br /> <br /> 结果 ＝ 3 <br /> <br /> .计次循环首 (500, i)<br />     线程句柄数组<i> ＝ 启动线程 (&计算, 结果, )<br /> .计次循环尾 ()<br /> <br /> ' 等待所有线程完成<br /> .计次循环首 (500, i)<br />     等待线程 (线程句柄数组<i>, -1)<br />     关闭线程句柄 (线程句柄数组<i>)<br /> .计次循环尾 ()<br /> <br /> 信息框 (“执行完成！成功次数：” ＋ 到文本 (全局成功) ＋ “ 失败次数：” ＋ 到文本 (全局失败), 0, , )<br /> <br /> .子程序 计算<br /> .参数 结果, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> <br /> a ＝ 1<br /> b ＝ 2<br /> .如果真 (a ＋ b ＝ 结果)<br />     Lock_inc (全局成功)<br /> .否则<br />     Lock_inc (全局失败)<br /> .如果真结束<br /> <br /> .子程序 Lock_inc, , 公开<br /> .参数 i, 整数型, 参考<br /> 置入代码 ({ 139, 69, 8, 240, 255, 0 })  <br /> <br /> .子程序 _按钮1_被单击<br /> 全局成功 ＝ 0  ' 每次执行前重置计数<br /> 全局失败 ＝ 0<br /> 启动线程 (&执行线程, , )

忆思梦

没什么问题啊

ksksksks

进入许可证加上 会好很多

廿六

多了的情况应该是你点击了不止一次按钮，只要你在循环前先把两个全局变量赋值为0就不会有这种情况，然后少了应该是你在500个线程还没运行结束之前就是读变量值，启动线程 不等于线程里的源码已经执行完

补充内容 (2025-4-7 19:47):
哦豁回答一半接了个电话，回复后发现已经有人回答了

熊猫xpanda

考虑一下线程是否启动成功了？

15111521472

666666666666666666666666666666666666666666

qicheng01

由于你发出的代码只是测试检测代码使用,和真实环境有出入 ,所以测试代码的结论不能作为真实环境使用的结论 但是问题只能有2个位置会出问题
1.增加许可证,尤其是多线程调用全集变量
2.lnc置入代码 这样的尽量少使用 当大量使用的时候后期不仅仅是报错还会造成程序崩溃

无外乎是上面2个问题

qq420041

例子.e (958.35 KB, 下载次数: 1)

2025-4-8 03:51 上传

点击文件名下载附件 * 成功次数：500* 失败次数：0

Giggle梦痕

创建个许可证吧 这种全局的变量 还是不要同时读写的好