线程中变量安全操作类

jingyi11023995

因为自己写的一个软件，只是单线程，在不同电脑上运行，个别电脑出现闪退。
所以在本论坛和百度搜索易语言闪退的原因，看了不少文章和帖子，也做了不少的尝试。

有人说到：假如一个线程要对某个变量取值，而刚好这个时候有另外一个线程要对这个变量赋值，可能会出现错误。

于是，我想到了用自己的建的一个类，在类中用许可证来防止这种情况的发生。代码如下（只写了文本和整数的，其他类型照着写就行了）：

  

窗口程序集名	保 留	保 留	备 注
线程中变量安全操作类, , 公开

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

调试输出 (“线程中变量安全操作类    _初始化”)
许可证 ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

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

子程序名	返回值类型	公开	备 注
文本安全操作
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型				0为取，1为赋值
文本变量	文本型
赋值内容	文本型

进入许可区 (许可证)
判断 (操作类型 ＝ 0)

文本变量 ＝ 赋值内容
退出许可区 (许可证)

子程序名	返回值类型	公开	备 注
整数安全操作
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型				0为取，1为赋值
整数变量	整数型
赋值内容	整数型

进入许可区 (许可证)
判断 (操作类型 ＝ 0)

整数变量 ＝ 赋值内容
退出许可区 (许可证)

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

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 线程中变量安全操作类, , 公开<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 调试输出 (“线程中变量安全操作类    _初始化”)<br /> 许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> 删除进入许可证 (许可证)<br /> <br /> .子程序 文本安全操作, , 公开<br /> .参数 操作类型, 整数型, , 0为取，1为赋值<br /> .参数 文本变量, 文本型, 参考<br /> .参数 赋值内容, 文本型<br /> <br /> 进入许可区 (许可证)<br /> .判断开始 (操作类型 ＝ 0)<br /> <br /> .默认<br />     文本变量 ＝ 赋值内容<br /> <br /> .判断结束<br /> 退出许可区 (许可证)<br /> <br /> .子程序 整数安全操作, , 公开<br /> .参数 操作类型, 整数型, , 0为取，1为赋值<br /> .参数 整数变量, 整数型, 参考<br /> .参数 赋值内容, 整数型<br /> <br /> 进入许可区 (许可证)<br /> .判断开始 (操作类型 ＝ 0)<br /> <br /> .默认<br />     整数变量 ＝ 赋值内容<br /> <br /> .判断结束<br /> 退出许可区 (许可证)

PS：刚测试了，失败，有没有大神帮忙看看？


补充内容 (2017-4-11 12:13):
解决了，代码在27楼。

醉看ジ笑红颜づ

局部变量赋值哪能出错呢,主要是多个线程操作集或者全变量时要加锁,这反而有些画蛇添足了。

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 10:38
局部变量赋值哪能出错呢,主要是多个线程操作集或者全变量时要加锁,这反而有些画蛇添足了。

我就是说在多线程中操作呀。你看第三行。

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 10:38
局部变量赋值哪能出错呢,主要是多个线程操作集或者全变量时要加锁,这反而有些画蛇添足了。

例如这样的情况，如何加锁？？？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文本1	文本型
run	逻辑型
安全操作1	线程中变量安全操作类

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

run ＝ 真

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

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

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

判断循环首 (run)
调试输出 (文本1)
延时 (1)
判断循环尾 ()

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

判断循环首 (run)
文本1 ＝ “abcdefg” ＋ 到文本 (取随机数 (1, 100000))
延时 (1)
判断循环尾 ()

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

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文本1, 文本型<br /> .程序集变量 run, 逻辑型<br /> .程序集变量 安全操作1, 线程中变量安全操作类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> run ＝ 真<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&取值1, , )<br /> 启动线程 (&赋值1, , )<br /> <br /> .子程序 取值1<br /> <br /> .判断循环首 (run)<br />     调试输出 (文本1)<br />     延时 (1)<br /> .判断循环尾 ()<br /> <br /> .子程序 赋值1<br /> <br /> .判断循环首 (run)<br />     文本1 ＝ “abcdefg” ＋ 到文本 (取随机数 (1, 100000))<br />     延时 (1)<br /> .判断循环尾 ()

jingyi11023995

jingyi11023995 发表于 2017-4-10 10:59
例如这样的情况，如何加锁？？？
[e=3].版本 2
.支持库 EThread

试试就知道了，用事实说话。
这些代码会出现输出乱码的。

醉看ジ笑红颜づ

你如果说的是多线程 那按照我自己的理解,只需要把文本1赋值前后加锁即可,延时去掉。

jingyi11023995

jingyi11023995 发表于 2017-4-10 10:59
例如这样的情况，如何加锁？？？
[e=3].版本 2
.支持库 EThread

大哥，我说在单线程中出现闪退，然后说的是要解决多线程中的问题。能不能认真点看？

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:06
你如果说的是多线程 那按照我自己的理解,只需要把文本1赋值前后加锁即可,延时去掉。

别空口说，试试~~

醉看ジ笑红颜づ

一句话,单线程不需要加许可证,是不是傻?你问谁都是一样，不用加。

jingyi11023995

jingyi11023995 发表于 2017-4-10 10:59
例如这样的情况，如何加锁？？？
[e=3].版本 2
.支持库 EThread

@我是你亲表哥
文本1，不是全局变量 ，是程序集变量，如何加锁？测试过，没有乱码再告诉我，不要以为怎么样。