年会抽奖易语言源码

年会抽奖易语言源码

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 获奖号码, 整数型

.子程序 __启动窗口_创建完毕

_启动窗口.底图 ＝ 读入文件 (取运行目录 () ＋ “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”)

.子程序 _摇号_周期事件

' ============   www.sanye.cx  =============--
’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx
’三叶资源网官方④群：72857039
' 投稿邮箱：tg@sanye.cx
' ============ =====================--
’专注易语言，按键精灵等编程源码分享的网站
’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐，
’版权归原作者所有，仅供学习和研究使用。
’转载本站提供的资源请勿删除本说明文件。
' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。
' ============   www.sanye.cx  =============--
' 本源码来自三叶资源网(www.sanye.cx)
开始摇号 ()

.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

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

.如果结束

@蚂蚁软件_萧峰