线程中变量安全操作类

克瑞斯

是哪里失败了呢?说一下调试结果的详情

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:40
两个子程序直接同步 就必须通知一下另一个子程序这边已经准备就绪了,或结束了再操作,这样浅显易懂了?

这两个线程是无限循环的，用互斥来控制，是吧？

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:39
况且,许可证也不是你这么加的,放在返回后边? 真要是线程,你这么写只会导致程序停止(不是崩溃)就是不会往下 ...

谢谢，这个在自己测试时已发现。

醉看ジ笑红颜づ

两个子程序直接同步 就必须通知一下另一个子程序这边已经准备就绪了,或结束了再操作,这样浅显易懂了?

醉看ジ笑红颜づ

况且,许可证也不是你这么加的,放在返回后边? 真要是线程,你这么写只会导致程序停止(不是崩溃)就是不会往下运行了.

醉看ジ笑红颜づ

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
run	逻辑型
文本1	文本型
已赋值	逻辑型

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

run ＝ 真
启动线程 (&_按钮1_被单击, , )

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

启动线程 (&取值1, , )
启动线程 (&赋值1, , )

子程序名	返回值类型	公开	备 注
取值1

判断循环首 (run)
如果真 (已赋值)
调试输出 (文本1)
已赋值 ＝ 假

判断循环尾 ()

子程序名	返回值类型	公开	备 注
赋值1

变量名	类 型	静态	数组	备 注
随机值	整数型

判断循环首 (run)
如果真 (已赋值 ＝ 假)
随机值 ＝ 取随机数 (1, 100000)
文本1 ＝ “abcdefg” ＋ 到文本 (随机值)
如果真 (寻找文本 (文本1, 到文本 (随机值), , 假) ≠ -1)
已赋值 ＝ 真


判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 run, 逻辑型<br /> .程序集变量 文本1, 文本型<br /> .程序集变量 已赋值, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> run ＝ 真<br /> 启动线程 (&_按钮1_被单击, , )<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&取值1, , )<br /> 启动线程 (&赋值1, , )<br /> <br /> .子程序 取值1<br /> <br /> .判断循环首 (run)<br />     .如果真 (已赋值)<br />         调试输出 (文本1)<br />         已赋值 ＝ 假<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 赋值1<br /> .局部变量 随机值, 整数型<br /> <br /> .判断循环首 (run)<br />     .如果真 (已赋值 ＝ 假)<br />         随机值 ＝ 取随机数 (1, 100000)<br />         文本1 ＝ “abcdefg” ＋ 到文本 (随机值)<br />         .如果真 (寻找文本 (文本1, 到文本 (随机值), , 假) ≠ -1)<br />             已赋值 ＝ 真<br />         .如果真结束<br /> <br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()

醉看ジ笑红颜づ

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
run	逻辑型
文本1	文本型
已赋值	逻辑型

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

run ＝ 真
启动线程 (&_按钮1_被单击, , )

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

启动线程 (&取值1, , )
启动线程 (&赋值1, , )

子程序名	返回值类型	公开	备 注
取值1

判断循环首 (run)
如果真 (已赋值)
调试输出 (文本1)
已赋值 ＝ 假

判断循环尾 ()

子程序名	返回值类型	公开	备 注
赋值1

变量名	类 型	静态	数组	备 注
随机值	整数型

判断循环首 (run)
如果真 (已赋值 ＝ 假)
随机值 ＝ 取随机数 (1, 100000)
文本1 ＝ “abcdefg” ＋ 到文本 (随机值)
如果真 (寻找文本 (文本1, 到文本 (随机值), , 假) ≠ -1)
已赋值 ＝ 真


判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 run, 逻辑型<br /> .程序集变量 文本1, 文本型<br /> .程序集变量 已赋值, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> run ＝ 真<br /> 启动线程 (&_按钮1_被单击, , )<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&取值1, , )<br /> 启动线程 (&赋值1, , )<br /> <br /> .子程序 取值1<br /> <br /> .判断循环首 (run)<br />     .如果真 (已赋值)<br />         调试输出 (文本1)<br />         已赋值 ＝ 假<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> .子程序 赋值1<br /> .局部变量 随机值, 整数型<br /> <br /> .判断循环首 (run)<br />     .如果真 (已赋值 ＝ 假)<br />         随机值 ＝ 取随机数 (1, 100000)<br />         文本1 ＝ “abcdefg” ＋ 到文本 (随机值)<br />         .如果真 (寻找文本 (文本1, 到文本 (随机值), , 假) ≠ -1)<br />             已赋值 ＝ 真<br />         .如果真结束<br /> <br /> <br />     .如果真结束<br /> <br /> .判断循环尾 ()

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:23
乱码造成的原因是取值和赋值的线程并不同步,

你说说，一个线程取值，另一个线程赋值，如何保证不乱码。

醉看ジ笑红颜づ

乱码造成的原因是取值和赋值的线程并不同步,

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:21
乱码和闪退没半毛钱关系。

都不知道你到底有没有看我的帖子，我有说是为了解决闪退了吗？？？？