精易论坛

标题: 抽奖源码免费分享 [打印本页]

作者: bbgzzg    时间: 2024-6-12 22:54
标题: 抽奖源码免费分享
之前看到帖子说 求抽奖的源码,奖池7个 ,连抽5个,不能有重复的,
然后寻思简单 就做了一个 ,但是后来一看,自己忽略了概率的问题  一等奖嘎嘎来,
后来完善了一下,但是 贴主已经闭贴了, 评论也好些人说忽略了概率的问题,后来就自己琢磨了一会儿,
还是搞出来了,但是贴主不要了,就在这边分享吧




  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
奖池文本型7
result整数型 
奖品文本型 
二次抽奖文本型0
一等奖逻辑型 
二等奖逻辑型 
三等奖逻辑型 
四等奖逻辑型 
五等奖逻辑型 
六等奖逻辑型 
七等奖逻辑型 
点数小整数型 
点数大整数型 
抽取次数整数型 
奖池 = { “7等奖”, “6等奖”, “5等奖”, “4等奖”, “3等奖”, “2等奖”, “1等奖” }
抽取次数 = 5
' 抽5次要求不能抽到重复
点数小 = 1
点数大 = 10000
连续赋值 (真, 一等奖, 二等奖, 三等奖, 四等奖, 五等奖, 六等奖, 七等奖)
连续赋值 (假, 标签1.可视, 标签2.可视, 标签3.可视, 标签4.可视, 标签5.可视, 标签6.可视, 标签7.可视)
判断循环首 (抽取次数 > 0)
抽取次数 = 抽取次数 - 1
调试输出 (点数小)
调试输出 (点数大)
result = 取随机数 (点数小, 点数大)
调试输出 (result)
判断 (result > 0 result ≤ 5000)
奖品 = “7等奖”
加入成员 (二次抽奖, 奖品)
调试输出 (777)
七等奖 = 假
点数小 = 5001
标签7.可视 = 真
判断 (result > 5000 result ≤ 7000)
奖品 = “6等奖”
标签6.可视 = 真
判断 (六等奖 = )
抽取次数 = 抽取次数 + 1
调试输出 (“重复6”)
六等奖 = 假
调试输出 (“抽到6”)
加入成员 (二次抽奖, 奖品)
判断 (七等奖 = 六等奖 = )
点数小 = 7001
调试输出 (666)



判断 (7000 < result result ≤ 8600)
奖品 = “5等奖”
标签5.可视 = 真
判断 (五等奖 = )
抽取次数 = 抽取次数 + 1
调试输出 (“重复5”)
五等奖 = 假
调试输出 (“抽到5”)
加入成员 (二次抽奖, 奖品)
判断 (七等奖 = 六等奖 = 五等奖 = )
点数小 = 8601
调试输出 (55)



判断 (8600 < result result ≤ 9300)
奖品 = “4等奖”
标签4.可视 = 真
判断 (四等奖 = )
抽取次数 = 抽取次数 + 1
调试输出 (“重复4”)
四等奖 = 假
调试输出 (“抽到4”)
加入成员 (二次抽奖, 奖品)
判断 (七等奖 = 六等奖 = 五等奖 = 四等奖 = )
点数小 = 9301
调试输出 (444)



判断 (9300 < result result ≤ 9800)
奖品 = “3等奖”
标签3.可视 = 真
判断 (三等奖 = )
抽取次数 = 抽取次数 + 1
三等奖 = 假
加入成员 (二次抽奖, 奖品)

判断 (9800 < result result ≤ 9958)
奖品 = “2等奖”
标签2.可视 = 真
判断 (二等奖 = )
抽取次数 = 抽取次数 + 1
二等奖 = 假
加入成员 (二次抽奖, 奖品)

判断 (9958 < result result ≤ 10000)
奖品 = “1等奖”
标签1.可视 = 真
加入成员 (二次抽奖, 奖品)
调试输出 (111)
一等奖 = 假
点数大 = 9958


调试输出 (奖品)
调试输出 (“剩余次数 = ”到文本 (抽取次数))
判断循环尾 ()
' 二次抽奖代码,重抽到的5次不重复奖品中再抽1次
调试输出 (二次抽奖)
' 二次抽奖的代码,还没写。。。
' result = 取随机数 (1, 10000)
' 调试输出 (result)



i支持库列表   支持库注释   
spec特殊功能支持库




JRC6VPU01_697QPFE.png (42.29 KB, 下载次数: 0)

JRC6VPU01_697QPFE.png

choujiang.e

9.23 KB, 下载次数: 11, 下载积分: 精币 -2 枚


作者: 神一样的人猫腻    时间: 2024-6-12 23:17
谢大佬的分享
作者: dwcq    时间: 2024-6-13 01:08
你这连抽五个不重复,直接随机去掉两个剩下五个直接给,不行吗,搞那么多行,
作者: bbgzzg    时间: 2024-6-14 00:46
dwcq 发表于 2024-6-13 01:08
你这连抽五个不重复,直接随机去掉两个剩下五个直接给,不行吗,搞那么多行, ...

还真是 多谢提醒




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4