Question

易语言抽奖源码

论坛抽奖的
抽1号到60号之间
抽1个一等奖
抽5个二等奖
8个三等奖

Answer 1

用取随机数就行了嘛！使用时钟一直刷，然后点击停止就OK了！得到什么数就是什么数了！如果你想要它自动停止，也可以使用时钟！

Answer 2

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 一等奖, 文本型
.局部变量 二等奖, 文本型
.局部变量 三等奖, 文本型

一等奖 ＝ 到文本 (一等奖) ＋ 到文本 (取随机数 (1, 60))
.计次循环首 (5, )
二等奖 ＝ 到文本 (二等奖) ＋ 到文本 (取随机数 (1, 60)) ＋ “,”
.计次循环尾 ()
.计次循环首 (8, )
三等奖 ＝ 到文本 (三等奖) ＋ 到文本 (取随机数 (1, 60)) ＋ “,”
.计次循环尾 ()
调试输出 (“一等奖:” ＋ 到文本 (一等奖), “二等奖:” ＋ 到文本 (二等奖), “三等奖:” ＋ 到文本 (三等奖))

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

置随机数种子 ()

Answer 3

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

时钟1.时钟周期 ＝ 0

.子程序 _时钟1_周期事件

标签1.标题 ＝ 到文本 (取随机数 (1, 60))

.子程序 _按钮2_被单击

时钟1.时钟周期 ＝ 5
'感觉好用请加分，谢谢！！

Answer 4

不用模块，用易语言自带系统核心支持库就用注册热键命令

在程序集添加　一个变量　整数型　

比如变量名称叫　　F3执行代码

然后在启动窗口创建完毕那里（启动窗口启动模式），
添加一个标签
F3执行代码＝注册热键（取窗口句柄，取添加的那个标签句柄，0（默认0，不需要ALT登添加键），设置键代码#F3键）

然后双击标签　进入　反馈事件　　代码
如果真　参数一等于　F3执行代码

下面就是可以执行参数了，

楼上有截图，附带已经做好附件，下面代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

.版本 2
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 f3键代码, 整数型

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

f3键代码 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键) ' 注册热键

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ f3键代码) ' 参数一反馈
信息框 (“按下F3”, 0, ) ' 按下了F3