.版本 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 ' 投稿邮箱：[email protected] ' ============ =====================-- ’专注易语言，按键精灵等编程源码分享的网站 ’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐， ’版权归原作者所有，仅供学习和研究使用。 ’转载本站提供的资源请勿删除本说明文件。 ' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。 ' ============ www.sanye.cx =============-- ' 本源码来自三叶资源网(www.sanye.cx) 开始摇号 () .子程序 __启动窗口_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果 (键代码 ＝ #回车键) _开始摇号_被选择 () .否则 .如果结束