消耗物品抽奖源码

Ⅰ 易语言抽奖源码

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

Ⅱ 谁给个网页抽奖源码，带后台（最好是要转盘类的）

discuz有个转盘抽奖插件，如果不是discuz论坛程序，估计是用不上。

Ⅲ 求一款易语言抽奖源码，最好是图片抽奖，或者自行放入对方提供的头像。

.版本 2
.支持库 xplib
.支持库 iext
.程序集 窗口程序集1
.程序集变量 b, 文本型
.程序集变量 图片框, 图片框
.程序集变量 开始音乐, 字节集
.程序集变量 结束音乐, 字节集
.程序集变量 人数, 整数型
.程序集变量 人数数组, 文本型, , "0"
.程序集变量 n, 整数型
.程序集变量 图片文件数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕

XP风格 (#蓝色风格)
选择夹.左边 ＝ (取屏幕宽度 () － 选择夹.宽度) ÷ 2
选择夹.顶边 ＝ (取屏幕高度 () － 选择夹.高度) ÷ 2
图片框1.标记 ＝ “1”
图片框2.标记 ＝ “2”
图片框3.标记 ＝ “3”
图片框4.标记 ＝ “4”
图片框5.标记 ＝ “5”
图片框6.标记 ＝ “6”
选择夹.现行子夹 ＝ 1
透明标签1.左边 ＝ (取屏幕宽度 () － 透明标签1.宽度) ÷ 2
选择夹2.顶边 ＝ 选择夹.高度 ＋ 选择夹.顶边
选择夹2.左边 ＝ (取屏幕宽度 () － 选择夹2.宽度) ÷ 2
初始化 ()
人数 ＝ 取数组成员数 (图片文件数组)
_一个人_被选择 ()
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #F1键, &配置设置)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #回车键, &子程序1)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键1, &_一个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键2, &_二个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键3, &_三个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键4, &_四个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键5, &_五个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #键6, &_六个人_被选择)
注册热键程序 (_启动窗口.取窗口句柄 (), 0, #Esc键, &_退出_被选择)

.子程序 子程序1
n ＝ n ＋ 1
.如果 (n ％ 2 ＝ 0)
_按钮2_被单击 ()
.否则
_按钮1_被单击 ()
.如果结束
.子程序 配置设置
载入 (系统设置窗口, , 真)
系统设置窗口.可视 ＝ 真

.子程序 _时钟1_周期事件
置随机数种子 ()
图片框1.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 抽奖停
.局部变量 a, 整数型
.局部变量 i, 整数型
b ＝ “”
置随机数种子 ()
.计次循环首 (6, i)
a ＝ 取随机数 (1, 人数)
.判断循环首 (寻找文本 (b, 到文本 (a), 1, 假) ≠ -1)
a ＝ 取随机数 (1, 人数)
.判断循环尾 ()
图片框 ＝ 取标记组件 (i)
图片框.图片 ＝ 读入文件 (图片文件数组 [a])
b ＝ b ＋ “,” ＋ 到文本 (a)
.计次循环尾 ()

.子程序 _一个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 假
图片框3.可视 ＝ 假
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度) ÷ 2
.子程序 _二个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 假
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ (选择夹.宽度 － 图片框1.宽度 × 2 － 5) ÷ 2
图片框2.左边 ＝ 图片框1.左边 ＋ 图片框1.宽度 ＋ 5
.子程序 _三个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 假
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _四个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 假
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _五个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 真
图片框6.可视 ＝ 假
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 _六个人_被选择
图片初始化 ()
n ＝ 0
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()
图片框1.可视 ＝ 真
图片框2.可视 ＝ 真
图片框3.可视 ＝ 真
图片框4.可视 ＝ 真
图片框5.可视 ＝ 真
图片框6.可视 ＝ 真
图片框1.左边 ＝ 0
图片框2.左边 ＝ 325
图片框3.左边 ＝ 651

.子程序 图片初始化
.局部变量 k, 整数型
选择夹.现行子夹 ＝ 1
选择夹.现行子夹 ＝ 0
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 0
时钟5.时钟周期 ＝ 0
时钟6.时钟周期 ＝ 0
_启动窗口.背景音乐 ＝ 到字节集 (0)
.计次循环首 (6, k)
图片框 ＝ 取标记组件 (k)
图片框.图片 ＝ #图片
.计次循环尾 ()
.子程序 _标题_被选择
.局部变量 wb, 文本型
图片初始化 ()
输入框 (“请输入标题内容”, , , wb, )
透明标签1.标题 ＝ wb
写配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, wb)

.子程序 _设定转奖声音_被选择
图片初始化 ()
通用对话框1.过滤器 ＝ “WAV文件|*.wav”
通用对话框1.打开 ()
开始音乐 ＝ 读入文件 (通用对话框1.文件名)
写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 通用对话框1.文件名)

.子程序 _设定中奖声音_被选择
图片初始化 ()
通用对话框1.过滤器 ＝ “WAV文件|*.wav”
通用对话框1.打开 ()
结束音乐 ＝ 读入文件 (通用对话框1.文件名)
写配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 通用对话框1.文件名)

.子程序 _关闭音乐_被选择
图片初始化 ()
_启动窗口.背景音乐 ＝ 到字节集 (0)

.子程序 初始化
.局部变量 d, 整数型
_启动窗口.底图 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “背景图片”, 取运行目录 () ＋ “\Wallpaper\1024.jpg”))
开始音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “转奖声音”, 取运行目录 () ＋ “\sound\musi.wav”))
结束音乐 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “声音”, “中奖声音”, 取运行目录 () ＋ “\sound\finish.wav”))
透明标签1.标题 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “标题”, “标题1”, “XX公司幸运抽奖”)
.计次循环首 (6, d)
图片框 ＝ 取标记组件 (d)
图片框.图片 ＝ 读入文件 (读配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 取运行目录 () ＋ “\Wallpaper\cj.jpg”))
.计次循环尾 ()
查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.jpg”, )
查找文件 (图片文件数组, 取运行目录 () ＋ “\Photos\”, “*.bmp”, )
.如果真 (取数组成员数 (图片文件数组) ＜ 6)
信息框 (“请把图片文件放到[Photots]文件夹下后重启软件！” ＋ #换行符 ＋ “图片文件格式支持[jpg bmp]”, 64, “提示：”)
结束 ()
.如果真结束

.子程序 _抽奖图片_被选择
.局部变量 a, 整数型
图片初始化 ()
通用对话框1.过滤器 ＝ “图片文件|*.jpg;*.bmp”
通用对话框1.打开 ()
.计次循环首 (6, a)
图片框 ＝ 取标记组件 (a)
图片框.图片 ＝ 读入文件 (通用对话框1.文件名)
.计次循环尾 ()
写配置项 (取运行目录 () ＋ “\config.ini”, “图片”, “抽奖图片”, 通用对话框1.文件名)

.子程序 _时钟2_周期事件
置随机数种子 ()
图片框2.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟3_周期事件
置随机数种子 ()
图片框3.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟4_周期事件
置随机数种子 ()
图片框4.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟5_周期事件
置随机数种子 ()
图片框5.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _时钟6_周期事件
置随机数种子 ()
图片框6.图片 ＝ 读入文件 (图片文件数组 [取随机数 (1, 人数)])

.子程序 _退出_被选择
结束 ()

.子程序 _时钟7_周期事件
' 如果 (取鼠标垂直位置 () ＜ 10)
系统设定.可视 ＝ 真
设定抽奖人数.可视 ＝ 真
' 系统设定.可视 ＝ 假
' 设定抽奖人数.可视 ＝ 假
.子程序 _按钮1_被单击, 逻辑型
.如果真 (选择夹.现行子夹 ＝ 1)
选择夹.现行子夹 ＝ 0
.如果真结束
_启动窗口.背景音乐 ＝ 开始音乐
_启动窗口.播放次数 ＝ 0
时钟1.时钟周期 ＝ 100
时钟2.时钟周期 ＝ 100
时钟3.时钟周期 ＝ 100
时钟4.时钟周期 ＝ 100
时钟5.时钟周期 ＝ 100
时钟6.时钟周期 ＝ 100
按钮2.禁止 ＝ 假
按钮1.禁止 ＝ 真
按钮2.获取焦点 ()
返回 (真)

.子程序 _按钮2_被单击
抽奖停 ()
_启动窗口.背景音乐 ＝ 结束音乐
_启动窗口.播放次数 ＝ 1
时钟1.时钟周期 ＝ 0
时钟2.时钟周期 ＝ 0
时钟3.时钟周期 ＝ 0
时钟4.时钟周期 ＝ 0
时钟5.时钟周期 ＝ 0
时钟6.时钟周期 ＝ 0
按钮2.禁止 ＝ 真
按钮1.禁止 ＝ 假
按钮1.获取焦点 ()

Ⅳ 用c语言编写一个简易的抽奖程序，

用data.txt文件保存以下内容：

13725528132 李桂荣
13725528131 李二来
13725528133 张荣刚
13725528130 荣南
13725528137 王三
13725528138 吴立
13725528139 郭德纲
13725528140 周星驰
13725528141 张曼玉
13725528142 张艺谋
13725528152 秦香莲
13725528162 潘金莲
13725528172 李大嘴
13725528182 展堂

//源代码如下
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

#define MAX_NUM 9999

//定义保存人名和电话的数据结构
struct Person
{
char name[20];
char telno[15];
char award;
};

int num = 0; //统计人数
FILE *fp; //文件指针
Person persons[MAX_NUM]; //定义数组

int awarder_1[1] = {-1}; //一等奖
int awarder_2[2] = {-1, -1}; //二等奖
int awarder_3[5] = {-1, -1, -1, -1, -1};//三等奖

//读取文件
void readdata()
{
int i = 0; //数组下标
Person person;
//文件打开
fp = fopen("data.txt", "r");
if (fp == NULL)
{
printf("打开文件data.txt失败!\n");
return;
}
//当文件不为空
while (!feof(fp))
{
num ++;
fscanf(fp, "%s", person.telno);
fscanf(fp, "%s", person.name);
person.award = 'F';
persons[i++] = person;
}
}

//初始化标识
void init()
{
for(int i = 0; i < num; i++)
{
persons[i].award = 'F';
}
}

//显示单个中奖信息
void info( int i)
{
printf("手机号码: %s 姓名: %s\n", persons[i].telno, persons[i].name);
}

void main()
{
char again = 'Y';
//读取文件
readdata();

printf("简单抽奖程序\n");
srand((long)time(0));

while(again == 'Y' || again == 'y')
{
//初始化标识
init();

printf("\n开始抽第一等奖(1名)，按任意键开始...\n");
getchar();
awarder_1[0] = abs(rand() % num);
while (persons[awarder_1[0]].award == 'T')
{
awarder_1[0] = rand() % num;
}
persons[awarder_1[0]].award = 'T';

info(awarder_1[0]);

printf("\n开始抽第二等奖(2名)\n");
for (int i = 0; i < 2; i++)
{
printf("\n第%d个二等奖,按任意键开始...\n", i+1);
getchar();
awarder_2[i] = rand() % num;
while (persons[awarder_2[i]].award == 'T')
{
awarder_2[i] = rand() % num;
}
persons[awarder_2[i]].award = 'T';
info(awarder_2[i]);
}

printf("\n\n开始抽第三等奖(5名)\n");
for (i = 0; i < 5; i++)
{
printf("\n第%d个三等奖,按任意键开始...\n", i + 1);
getchar();

awarder_3[i] = rand() % num;
while (persons[awarder_3[i]].award == 'T')
{
awarder_3[i] = rand() % num;
}
persons[awarder_3[i]].award = 'T';
info(awarder_3[i]);
}

printf("\n是否重新开始抽奖?(Y or N)...\n");
again = getchar();
}

getchar();
return;
}

Ⅳ java抽奖小程序源码

import java.util.Scanner;

public class ChouJiang {

public static void main(String[] args) {
System.out.println("我行我素购物管理系统>幸运抽奖");
System.out.println("");
System.out.println("");
Scanner input=new Scanner(System.in);
System.out.print("请输入四位会员号：");
int hyh=input.nextInt();
int q,b,s,g,sum;
q=hyh/1000;
b=hyh/100%10;
s=hyh/10%10;
g=hyh%10;
sum=q+b+s+g;
if(sum>=23)
{
System.out.println(hyh+"是幸运客户，获精美MP3一台！");
}else
{
System.out.println(hyh+"谢谢您的支持！");
}
}

}

Ⅵ php怎么实现大转盘抽奖，求源码，前台后台

身为一个php程序员写出这么复杂的js,让前台人员情何以堪...
你要给他几个值,中奖率(这个客户自己调节),奖品图(价格)的显示,中奖人滚动(要把信息给他),这是最基本的,还有抽奖次数.
我这个是给他个json,他自己用ajax自己取,js前台自己写去.后台这个功能的管理咱们写差不多

这个比较难的就是防止刷转盘...比如一个二货来不断注册换号来增大自己中奖几率,简单办法通过ip,可是用vpn肿么办?那就要用$_ENV等相关数据了.(别误把有抽奖次数的顾客 排除出去);

如果为了学习可以了解前台,如果是做后台的就专心做后台,术业有专攻

我的功能具体如下:
可以设置每个等级 奖品 以及中奖率,最可以加10个等级(建议最多5个),还可以区分免费赠送次数的中奖率,和消费赠送的次数的中奖率.
可以设置 登陆送的抽奖次数,购买多少钱物品可以送1次抽奖机会,
可以设置 假中奖信息,中奖率为零也可以滚动中奖者名单...有点儿缺德(可以手动写信息,也可以随机生成信息)
可以更换 大转轮 和,砸蛋模式 以及对应模板(有点鸡肋)
作弊系统 可以自定义某些客户的中奖率,你懂得
防客户作弊 ,有恶搞模式,同1个ip使用赠送抽奖次数超过5次的时候,自动设置抽奖几率为0,之后在其第20次刷的时候提醒您在第5次作弊的时候已经被屏蔽.
可以设置邀请好友送抽奖次数,在抽奖次数为0时自动提醒,邀请成功后 可以同时发送短信,邮件,站内通知提醒
我这个是针对特殊需求商城写的 我把给出的json参数 给他做个详细说明,自己写去 就不关我事了

Ⅶ flash抽奖软件源码

有一款 瑞虎抽奖软件 可以参考一下，很有意思，网络即可找到

Ⅷ 求用DELPHI 开发的抽奖程序源码，最好是delphi5开发的！先感谢每一位解答的大侠！

需要开发还是现成的，网上搜索下，没有就找人开发呗，花不了几个钱

Ⅸ 求用vb编一个抽奖软件的源代码

dim i

窗口启动：
i=0
Open App.Path & "\电话号码.txt" For Input As #1
while eof(1)=false
Line Input #1,a
List1.AddItem a
wend
close #1

按开始：
timer1.Interval=50

按结束：
timer1.Interval=0

timer的事件：
i=i+1
if i=List1.ListCount then i=0
Label1.Caption = List1.List(i)

不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了
所需控件：
两个按钮，一个开始，一个结束；一个时钟控件
一个列表框；一个标签控件

Ⅹ 求vb 作弊抽奖程序源代码.

做好了

代码如下，两个按钮，一个开始，一个结束，

PrivateFlagAsBoolean

PrivateSubCommand1_Click()

DimA(10000)AsInteger

Flag=False

DoUntilFlag=True

A(i)=Int(Rnd()*8999+1000)

Label1.Caption=A(i)

DoEvents

Loop

EndSub

PrivateSubCommand2_Click()

Flag=True

DimA(10000)AsInteger

A(10000)=Int(Rnd()*10+1233)

Label1.Caption=A(10000)

EndSub

点开始，数字在1000至9999间跳动（如图1

点结束，数字停止，结果只在1234-1243间（如图2

已经编译成"抽奖.exe“，要的话发给你