线程中变量安全操作类

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楼。

xxdahai

jingyi11023995 发表于 2017-4-10 21:15
@xxdahai
类中是不能使用全局变量的。

那我觉得这个程序类里面不要进行许可证的相关操作，而是在调用类之前先进入许可证，调用类，退出许可证

xxdahai

jingyi11023995 发表于 2017-4-10 21:15
@xxdahai
类中是不能使用全局变量的。

那我觉得这个程序类里面不要进行许可证的相关操作，而是在调用类之前先进入许可证，调用类，退出许可证

xxdahai

jingyi11023995 发表于 2017-4-10 21:15
@xxdahai
类中是不能使用全局变量的。

那我觉得这个程序类里面不要进行许可证的相关操作，而是在调用类之前先进入许可证，调用类，退出许可证

龙海软件

666666来签个到，谢谢分享。

waterbra

有学到了。。。。

jingyi11023995

  

窗口程序集名	保 留	保 留	备 注
文本安全类, , 公开
变量名	类 型	数组	备 注
value	文本型
许可证	整数型

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

许可证 ＝ 创建进入许可证 ()

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

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

子程序名	返回值类型	公开	备 注
Set_And_Get	文本型
参数名	类 型	参考	可空	数组	备 注
赋值	逻辑型
参数	文本型

进入许可区 (许可证)
延时 (1)
如果真 (赋值)
value ＝ 参数
退出许可区 (许可证)
返回 (value)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 文本安全类, , 公开<br /> .程序集变量 value, 文本型<br /> .程序集变量 许可证, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 许可证 ＝ 创建进入许可证 ()<br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> 删除进入许可证 (许可证)<br /> <br /> .子程序 Set_And_Get, 文本型, 公开<br /> .参数 赋值, 逻辑型<br /> .参数 参数, 文本型, 可空<br /> <br /> 进入许可区 (许可证)<br /> 延时 (1)<br /> .如果真 (赋值)<br />     value ＝ 参数<br /> .如果真结束<br /> 退出许可区 (许可证)<br /> 返回 (value)

jingyi11023995

醉看ジ笑红颜づ 发表于 2017-4-10 11:37
[e=0].版本 2
.支持库 EThread
.支持库 spec

感谢回复，那是我另一个帖子的内容。
另一种实现办法。

本贴是说的是想建一个类，在类中通过许可证来保证不同线程不能同时操作一个变量。

waiting2012

在相互交流中提高！

jingyi11023995

@xxdahai
类中是不能使用全局变量的。

荖貢

你这方法不好 应该对全局共享数据做互斥操作, 而不是写到类里就能解决问题的,要根据实际情况写互斥