多用户许可方案

acg2308502323

求一个多用户许可的方案， 测了很多方法，在并发的时候都不行呢。
主要作用是在同一个位置对不同用户进行许可限制，

samll88

创建许可证吧

775928325

易语言自带的许可证就好了，返回标识

小情缘

你看看这种方案行不行了  就是牺牲点寻找匹配许可证的性能过程

新建文本文档 2.txt.e (140.38 KB, 下载次数: 2)

2025-4-6 17:27 上传

点击文件名下载附件

算法艺术家

多个许可证 用哈希表能快一点

算法艺术家

参考楼上大佬的代码 写了一个哈希表版的

  

窗口程序集名	保 留	保 留	备 注
多用户许可证类, , 公开
变量名	类 型	数组	备 注
许可证Z	整数型
许可池Z	哈希表_ASM

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

许可证Z ＝ 创建进入许可证 ()
许可池Z.创建 ( #文本型, #整数型 )

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

变量名	类 型	静态	数组	备 注
i	整数型
许可组	整数型		0

进入许可区 (许可证Z)
许可池Z.取所有值 (许可组)
计次循环首 (取数组成员数 (许可组), i)
删除进入许可证 (许可组 [i])
计次循环尾 ()
许可池Z.清空 ()
退出许可区 (许可证Z)
删除进入许可证 (许可证Z)

子程序名	返回值类型	公开	备 注
创建用户许可证	逻辑型
参数名	类 型	参考	可空	数组	备 注
标识	文本型

变量名	类 型	静态	数组	备 注
许可证	整数型

进入许可区 (许可证Z)
许可证 ＝ 创建进入许可证 ()
许可池Z.添加 (标识, 许可证)
退出许可区 (许可证Z)
返回 (许可证Z ≠ 0)

子程序名	返回值类型	公开	备 注
进入
参数名	类 型	参考	可空	数组	备 注
标识	文本型

变量名	类 型	静态	数组	备 注
许可证	整数型

进入许可区 (许可证Z)
许可证 ＝ 许可池Z.取值 (标识)
退出许可区 (许可证Z)
如果真 (许可证 ≠ 0)
进入许可区 (许可证)

子程序名	返回值类型	公开	备 注
退出
参数名	类 型	参考	可空	数组	备 注
标识	文本型

变量名	类 型	静态	数组	备 注
许可证	整数型

许可证 ＝ 许可池Z.取值 (标识)
如果真 (许可证 ≠ 0)
退出许可区 (许可证)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 多用户许可证类, , 公开<br /> .程序集变量 许可证Z, 整数型<br /> .程序集变量 许可池Z, 哈希表_ASM<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> 许可证Z ＝ 创建进入许可证 ()<br /> 许可池Z.创建 (#文本型, #整数型)<br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> .局部变量 i, 整数型<br /> .局部变量 许可组, 整数型, , "0"<br /> <br /> 进入许可区 (许可证Z)<br /> 许可池Z.取所有值 (许可组)<br /> .计次循环首 (取数组成员数 (许可组), i)<br />     删除进入许可证 (许可组 <i>)<br /> .计次循环尾 ()<br /> 许可池Z.清空 ()<br /> 退出许可区 (许可证Z)<br /> 删除进入许可证 (许可证Z)<br /> <br /> <br /> .子程序 创建用户许可证, 逻辑型, 公开<br /> .参数 标识, 文本型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证Z)<br /> 许可证 ＝ 创建进入许可证 ()<br /> 许可池Z.添加 (标识, 许可证)<br /> 退出许可区 (许可证Z)<br /> 返回 (许可证Z ≠ 0)<br /> <br /> .子程序 进入, , 公开<br /> .参数 标识, 文本型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证Z)<br /> 许可证 ＝ 许可池Z.取值 (标识)<br /> 退出许可区 (许可证Z)<br /> .如果真 (许可证 ≠ 0)<br />     进入许可区 (许可证)<br /> .如果真结束<br /> <br /> <br /> .子程序 退出, , 公开<br /> .参数 标识, 文本型<br /> .局部变量 许可证, 整数型<br /> <br /> 许可证 ＝ 许可池Z.取值 (标识)<br /> .如果真 (许可证 ≠ 0)<br />     退出许可区 (许可证)<br /> .如果真结束

算法艺术家

  

子程序名	返回值类型	公开	备 注
退出
参数名	类 型	参考	可空	数组	备 注
标识	文本型

变量名	类 型	静态	数组	备 注
许可证	整数型

进入许可区 (许可证Z)
许可证 ＝ 许可池Z.取值 (标识)
退出许可区 (许可证Z)
如果真 (许可证 ≠ 0)
退出许可区 (许可证)

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

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 退出, , 公开<br /> .参数 标识, 文本型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证Z)<br /> 许可证 ＝ 许可池Z.取值 (标识)<br /> 退出许可区 (许可证Z)<br /> .如果真 (许可证 ≠ 0)<br />     退出许可区 (许可证)<br /> .如果真结束

算法艺术家

  

这也改一下

子程序名	返回值类型	公开	备 注
创建用户许可证	逻辑型
参数名	类 型	参考	可空	数组	备 注
标识	文本型

变量名	类 型	静态	数组	备 注
许可证	整数型

进入许可区 (许可证Z)
许可证 ＝ 创建进入许可证 ()
如果真 (许可证Z ≠ 0)
许可池Z.添加 (标识, 许可证)
退出许可区 (许可证Z)
返回 (许可证Z ≠ 0)

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

这也改一下<br /> .版本 2<br /> .支持库 EThread<br /> <br /> .子程序 创建用户许可证, 逻辑型, 公开<br /> .参数 标识, 文本型<br /> .局部变量 许可证, 整数型<br /> <br /> 进入许可区 (许可证Z)<br /> 许可证 ＝ 创建进入许可证 ()<br /> .如果真 (许可证Z ≠ 0)<br />     许可池Z.添加 (标识, 许可证)<br /> .如果真结束<br /> 退出许可区 (许可证Z)<br /> 返回 (许可证Z ≠ 0)