公司年会晚会员工抽奖软件源码

易语言 2019-10-21 19:53:21

公司年会晚会员工抽奖软件源码

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

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

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