年会抽奖源码，分享给需要的朋友！

蚂蚁软件_萧峰

2016年马上就结束了，相信很多公司都在筹备年会，有的可能已经准备好了。


那么年会里抽奖已经是一个传统了！各大小公司应该会不能俗免！


这个是给公司做的一个抽奖系统，目前算是半成品，奖项记录还没有做，目前程序可以做到按回车 滚动数字，10左右自动停止！


现在把源码发出来，有需要的可以下载之后根据自己的需求去完善！

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
获奖号码	整数型

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

_启动窗口.底图 ＝ 读入文件 (取运行目录 () ＋ “\images\背景.jpg”)
播放MP3 (100, 取运行目录 () ＋ “\Sound\NewYear.Mp3”)
_启动窗口.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())
透明标签_号码滚动.移动 (取屏幕宽度 () ÷ 2.75, 取屏幕高度 () ÷ 2.5, , )
透明标签_公司名称.移动 (, 取屏幕高度 () ÷ 1.6, 取屏幕宽度 (), )
透明标签_公司名称.字体.字体大小 ＝ 取屏幕宽度 () ÷ 33.7
置随机数种子 ()
' 读系统配置
透明标签_公司名称.标题 ＝ 读配置项 (取运行目录 () ＋ “\data\系统配置.ini”, “预设信息”, “公司名称”, )

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_最小化_被选择

_启动窗口.位置 ＝ 2

子程序名	返回值类型	公开	备 注
_退出_被选择

销毁 ()

子程序名	返回值类型	公开	备 注
开始摇号

获奖号码 ＝ 取随机数 (1, 200)
透明标签_号码滚动.可视 ＝ 真
透明标签_号码滚动.标题 ＝ 到文本 (获奖号码)

子程序名	返回值类型	公开	备 注
_开始摇号_被选择

播放MP3 (1, 取运行目录 () ＋ “\Sound\Xuan.Mp3”)
开始摇号 ()
摇号.时钟周期 ＝ 100
延迟 (2500)
摇号.时钟周期 ＝ 150
延迟 (1500)
摇号.时钟周期 ＝ 200
延迟 (1400)
摇号.时钟周期 ＝ 250
延迟 (1300)
摇号.时钟周期 ＝ 300
延迟 (1200)
摇号.时钟周期 ＝ 350
延迟 (1100)
摇号.时钟周期 ＝ 400
延迟 (1000)
摇号.时钟周期 ＝ 0
播放MP3 (1, 取运行目录 () ＋ “\Sound\XuanHao.Mp3”)

子程序名	返回值类型	公开	备 注
_摇号_周期事件

开始摇号 ()

子程序名	返回值类型	公开	备 注
__启动窗口_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果 (键代码 ＝ #回车键 )
_开始摇号_被选择 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 获奖号码, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> _启动窗口.底图 ＝ 读入文件 (取运行目录 () ＋ “\images\背景.jpg”)<br /> 播放MP3 (100, 取运行目录 () ＋ “\Sound\NewYear.Mp3”)<br /> _启动窗口.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())<br /> 透明标签_号码滚动.移动 (取屏幕宽度 () ÷ 2.75, 取屏幕高度 () ÷ 2.5, , )<br /> 透明标签_公司名称.移动 (, 取屏幕高度 () ÷ 1.6, 取屏幕宽度 (), )<br /> 透明标签_公司名称.字体.字体大小 ＝ 取屏幕宽度 () ÷ 33.7<br /> <br /> 置随机数种子 ()<br /> <br /> ' 读系统配置<br /> 透明标签_公司名称.标题 ＝ 读配置项 (取运行目录 () ＋ “\data\系统配置.ini”, “预设信息”, “公司名称”, )<br /> <br /> .子程序 __启动窗口_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> .子程序 _最小化_被选择<br /> <br /> _启动窗口.位置 ＝ 2<br /> <br /> .子程序 _退出_被选择<br /> <br /> 销毁 ()<br /> <br /> .子程序 开始摇号<br /> <br /> 获奖号码 ＝ 取随机数 (1, 200)<br /> 透明标签_号码滚动.可视 ＝ 真<br /> 透明标签_号码滚动.标题 ＝ 到文本 (获奖号码)<br /> <br /> .子程序 _开始摇号_被选择<br /> <br /> 播放MP3 (1, 取运行目录 () ＋ “\Sound\Xuan.Mp3”)<br /> 开始摇号 ()<br /> <br /> 摇号.时钟周期 ＝ 100<br /> 延迟 (2500)<br /> <br /> 摇号.时钟周期 ＝ 150<br /> 延迟 (1500)<br /> <br /> 摇号.时钟周期 ＝ 200<br /> 延迟 (1400)<br /> <br /> 摇号.时钟周期 ＝ 250<br /> 延迟 (1300)<br /> <br /> 摇号.时钟周期 ＝ 300<br /> 延迟 (1200)<br /> <br /> 摇号.时钟周期 ＝ 350<br /> 延迟 (1100)<br /> <br /> 摇号.时钟周期 ＝ 400<br /> 延迟 (1000)<br /> <br /> 摇号.时钟周期 ＝ 0<br /> 播放MP3 (1, 取运行目录 () ＋ “\Sound\XuanHao.Mp3”)<br /> <br /> .子程序 _摇号_周期事件<br /> <br /> 开始摇号 ()<br /> <br /> .子程序 __启动窗口_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果 (键代码 ＝ #回车键)<br />     _开始摇号_被选择 ()<br /> .否则<br /> <br /> .如果结束

需要这个配色的亲可以点击：黑暗系易语言界面配色、个性配色




蚂蚁抽奖系统.zip (1.56 MB, 下载次数: 1014)

2016-12-26 15:46 上传

点击文件名下载附件
下载积分: 精币 -2 枚

xiaoxiao2

感谢分享

liangmoumou

666666666666666666

liangmoumou

666666666666666666

chenfeihuo

下载学习学习

LYForever

取随机数。。。

1468848161

超级喜欢这个皮肤，其他皮肤没有一个我喜欢的。就喜欢这个

snak2020

感谢分享，学习

朕来打江山

赞啊赞啊

jianing

好东西赶紧尝试一下

pangege

学习下