精易论坛

标题: 自己需要用顺手写了个抽奖 [打印本页]

---

作者: 654799976    时间: 2023-9-5 19:55
标题: 自己需要用顺手写了个抽奖
刚好自己需要，参考下别人的写了个抽奖，大神勿喷！

截图.png (229.01 KB, 下载次数: 33)

下载附件

2023-9-5 19:54 上传

概率抽奖通用.e

2023-9-5 19:54 上传

点击文件名下载附件

下载积分: 精币 -2 枚

254.14 KB, 下载次数: 43, 下载积分: 精币 -2 枚

---

作者: LWB666    时间: 2023-9-5 20:21

  

子程序名	返回值类型	公开	备 注
算法_概率抽奖	奖品		概率总合不能超过32767
参数名	类 型	参考	可空	数组	备 注
奖品	奖品

变量名	类 型	静态	数组	备 注
总概率	整数型
i	整数型
区域	整数型
随机数	长整数型
返回奖品	奖品

置随机数种子 ()
计次循环首 (取数组成员数 (奖品), i)
总概率 ＝ 总概率 ＋ 奖品 [i].概率
计次循环尾 ()
区域 ＝ 0
随机数 ＝ 算法_取随机数_asmEx (1, 总概率)
计次循环首 (取数组成员数 (奖品), i)
奖品 [i].中奖区域 ＝ 区域
区域 ＝ 区域 ＋ 奖品 [i].概率
如果真 (随机数 ≥ 奖品 [i].中奖区域 ＋ 1 且 随机数 ≤ 奖品 [i].中奖区域 ＋ 奖品 [i].概率)
返回奖品 ＝ 奖品 [i]

计次循环尾 ()
返回 (返回奖品)

子程序名	返回值类型	公开	备 注
算法_取随机数_asmEx	整数型
参数名	类 型	参考	可空	数组	备 注
最小值	整数型
最大值	整数型

如果真 (最大值 ＜ 最小值)
返回 (最大值)
置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })
返回 (0)

.版本 2<br /> <br /> .子程序 算法_概率抽奖, 奖品, , 概率总合不能超过32767<br /> .参数 奖品, 奖品, 数组<br /> .局部变量 总概率, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 区域, 整数型<br /> .局部变量 随机数, 长整数型<br /> .局部变量 返回奖品, 奖品<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (奖品), i)<br />     总概率 ＝ 总概率 ＋ 奖品 <i>.概率<br /> .计次循环尾 ()<br /> 区域 ＝ 0<br /> 随机数 ＝ 算法_取随机数_asmEx (1, 总概率)<br /> .计次循环首 (取数组成员数 (奖品), i)<br />     奖品 <i>.中奖区域 ＝ 区域<br />     区域 ＝ 区域 ＋ 奖品 <i>.概率<br />     .如果真 (随机数 ≥ 奖品 <i>.中奖区域 ＋ 1 且 随机数 ≤ 奖品 <i>.中奖区域 ＋ 奖品 <i>.概率)<br />         返回奖品 ＝ 奖品 <i><br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (返回奖品)<br /> <br /> .子程序 算法_取随机数_asmEx, 整数型, 公开<br /> .参数 最小值, 整数型<br /> .参数 最大值, 整数型<br /> <br /> .如果真 (最大值 ＜ 最小值)<br />     返回 (最大值)<br /> .如果真结束<br /> 置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })<br /> 返回 (0)

看看我的

---

作者: qqmqqg    时间: 2023-9-5 20:47
66666666666666

---

作者: ttggnn    时间: 2023-9-5 21:46
感谢分享

---

作者: 一指温柔    时间: 2023-9-6 01:38
感谢楼主分享！

---

作者: 查过    时间: 2023-9-6 06:59
全都是大佬~

---

作者: 豆豆灰常开心    时间: 2023-9-6 07:07
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 大胜科技    时间: 2023-9-6 08:04
6666666666666

---

作者: suming99    时间: 2023-9-6 08:40
666666666666666666666

---

作者: happyweeks365    时间: 2023-9-6 09:28
66666666666666666

---

作者: 君九    时间: 2023-9-6 09:31
感谢楼主分享

---

作者: 654799976    时间: 2023-9-6 11:30

LWB666 发表于 2023-9-5 20:21
[e=0].版本 2

.子程序 算法_概率抽奖, 奖品, , 概率总合不能超过32767

我只会基础的命令 高深的不会

---

作者: tw1    时间: 2023-9-6 12:22
感谢楼主

---

作者: 171796163    时间: 2023-9-6 14:27
先看看好不好用。

---

作者: bianyuan456    时间: 2023-9-6 15:01
已经顶贴，感谢您对论坛的支持！

---

作者: 查过    时间: 2023-9-7 06:49
感谢发布原创作品，精易因你更精彩！6666666666666

---

作者: 豆豆灰常开心    时间: 2023-9-7 06:54
已经顶贴，感谢您对论坛的支持！

---

作者: 396384183    时间: 2023-9-7 08:24
小帅AI智能助手

---

作者: 一指温柔    时间: 2023-9-7 09:03
感谢分享

---

作者: 我欲风流    时间: 2023-9-7 10:15

感谢楼主分享,拿来参考一下.

---

作者: pipicool    时间: 2023-9-11 00:14
学习一下

---

作者: mifasol520    时间: 2023-9-13 22:56
        感谢发布原创作品，精易因你更精彩！

---

作者: caskywz    时间: 2023-9-22 12:38
谢谢分享！！

---

作者: SHIWOOOO    时间: 2024-1-31 09:07
好好好好

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4