年会抽奖源码，分享给需要的朋友！ - 精易论坛

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

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

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