Jak po naciśnięciu buttona program zacząłby losować cyfry i gdyby wylosował 50 to wyświetliłby się komunikat?
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
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
dzię {hello} ki!