duży lotek

[tomu]

hej wszystkim. Wie ktos jak napisać program lotek w delphi w postaći okienkowej taki zeby losował bez powtórzeń i sprawdzał czy liczby zgadzaja się z tymi co wcześniej się wytypowało.

[TuxMan]

Jeśli chcesz, aby liczby się nie powtarzały zastosuj

 

randomize;
zmienna_cos_tam:=random(tu_zakres);

Gdzie zmienna_cos_tam to nazwa zmiennej, w której są generowane liczby a tu_zakres jest zakresem liczb np:

 

zmienna:=random(30);

 

Ten kod losuje liczby z zakresu 0-30

 

To chyba jest wszystko, co powiem na ten temat :thumbsup:

[tomu]

A JAK TO CAŁOŚ NAPISAĆ W POSTACI OKIENKOWEJ?

[Marmot]

A skąd mamy wiedzieć jak to zrobiłeś? Jeżeli powiedzmy po kliknięciu przycisku ma się liczba pojawić w TLabel1, to piszesz:

randomize;
TLabel1.Text:=inttostr(random(30));

i analogicznie dalej...

[tomu]

Mam taki program tylko mam mały problem ponieważ ma mi wyświetlać liczby od 1 do 49 a wyświetla od 1 do 100. Prosze o pomoc.

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var i,j,k:integer;

Tablica:array[1..6] of integer;

il:string;

begin

randomize;

for i:=1 to 6 do

begin

for j:=1 to 5 do

for k:=1 to 6 do

begin

Tablica:=random(49)+1;

if (i<>k) and (Tablica=Tablica[k]) then

Tablica:=random(49)+1;

str(Tablica,il);

Form1.Canvas.TextOut(i*20,j*20,il);

end;

end;

end;

end.

[tomu]

temat skonczony