求年会抽奖软件

[varick_zhong]

20号要吃年夜饭了,要求做一个抽奖软件或者是下载一个好用的抽奖软件,下了个24tt免费版不够用名额,700号人抽奖要求.时间太紧,谁有比较好用的抽奖软件请发一个给我吧,有源码更好..邮箱是[e-mail]或者加我QQ发下给我!先谢过了..

[szuzsq]

那个后门貌似很有诱惑力

[myfirenze]

今天刚写了一个抽象的软件，呵呵

[bdmh]

什么要求，如果就是随机抽几个，你自己搞个随机数就行了

[wensoft80]

我在一个是抽身份证号的一个，还有一个是抽手机号的，有源码，3721
99229

[wensoft80]

别老是想用免费的，都要吃饭的

[bdmh]

给你个简单的，自己完善吧

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FList:TStringList;
    procedure InitData;
    procedure GetValue(num:Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TStringList.Create;
  InitData;
end;

//抽奖，抽出num个号码
procedure TForm1.GetValue(num: Integer);
var
  i,j:Integer;
begin
  Randomize;
  for i := 1 to num do
  begin
    //取随机数
    j := Random(FList.Count);
    ShowMessage(FList.Strings[j]);
    //取到过的删除
    FList.Delete(j);
  end;
end;

//初始化号码，共700人
procedure TForm1.InitData;
var
  i:Integer;
begin
  for i := 1 to 700 do
  begin
    FList.Add(IntToStr(i));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetValue(5);
end;

end.

[keeley20]

一人发一个号码牌，然后程序随机700不就可以实现了。

[lyhoo163]

简单自己编吧。

[varick_zhong]

是美工漂亮些的,自己编哪来得及啊,所以只能找现成的了

[亮剑_]

[Quote=引用 5 楼 keeley20 的回复:]
一人发一个号码牌，然后程序随机700不就可以实现了。
[/Quote]
是哎，在4楼代码上改一下就OK了

[Allanlove]

呵呵，中间还可以留给后门，把大奖留给自己，哇哈哈

[Allanlove]

再说了，不过是一个按钮，一个显示中奖名单的控件，Memo什么的，再搞还能怎么漂亮

[pengxuan]

自己写一个得了
又不是太难，就是随机数的问题

[fa_ge]

自己写一个算了。并且把最大的奖留给自己

[「已注销」]

自己弄个PS什么的，或者叫别人做几个图片嘛，呵呵，就好了

[jyb_9]

貌似很有动力

[CDSoftwareWj]

给邮件留下，我给你一个 嘿嘿，有源码

[Crossgate_J]

[e-mail]

[varick_zhong]

邮箱是[e-mail]

[CDSoftwareWj]

不好意思，周一才看到