LOSOWANIE

0

Jak po naciśnięciu buttona program zacząłby losować cyfry i gdyby wylosował 50 to wyświetliłby się komunikat?

0

Nie wiem co rozumiesz przez zaczalby losowac. O to?

procedure TForm1.Button1Click(Sender: TObject);

begin
if random(51)=50 then //liczba z zakresu 0-50
itd..

end;
--Pawel

Delphi6

0

no nie wiem pq mnie to nie dziala ale...
Ja bym to zrobil tak :

var
X : integer;
begin
X := Random(50);
if X = 50 then
showmessage('50 !!');
end;

A jak chcesz zeby byl widoczny efekt losowania na np. labelu to wstaw :

Timer1 z wartoscia enebled na false i intervalem 1000
Timer2 z wartoscia enebled na false i intervalem 30
Label1 z wartoscia Caption na np. 0 (zero)

A teraz procki :

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
Timer2.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Enabled := false;
Timer2.Enabled := false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
X : Integer;
begin
X := Random(50);
Label1.Caption := IntToStr(X);
end;

To troche wybiega poza pytanie ale moze byc przydatne !
--Ozyrys Pozdrawiam {hello}
Delphi 6

0

dzię {hello} ki!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0