Delphi další pokus o radu - komponenta Timer
Napsal: 21 led 2018 14:36
RAD STUDIO 10.2
Tak nevím co dělám zle. Řeším tu rotaci čísel v LVCastka.Caption := ((IntToStr(Castka)) + ',- Kč') přes Timer1
Nastavení events:
OnTimer := BtnHratClick
Fakt nevím jak to použít, aby to rotovalo po zmačknutí tlačítka Hrát a skončilo po pěti protočení částky v label.
Když to roztočím, tak se točí stále do kola.
Prosím pomoc s úpravou kódu.
V programování jsem začátečník a moc toho neumím.
Tak nevím co dělám zle. Řeším tu rotaci čísel v LVCastka.Caption := ((IntToStr(Castka)) + ',- Kč') přes Timer1
Kód: Vybrat vše
procedure Obnos;
var
c: integer; // c jako castka
begin
Randomize;
c := Random(11); // Nahodne cislo od 0 do 10
if (c = 0) then Castka := 100;
if (c = 1) then Castka := 100;
if (c = 2) then Castka := 100;
if (c = 3) then Castka := 100;
if (c = 4) then Castka := 200;
if (c = 5) then Castka := 200;
if (c = 6) then Castka := 200;
if (c = 7) then Castka := 500;
if (c = 8) then Castka := 500;
if (c = 9) then Castka := 1000;
if (c = 10) then Castka := 0;
end;
procedure TForm1.Timer1Timer(Sender: TObject); // casovac pro rotaci castky
var i: integer;
begin
for i := 0 to 4 do
begin
Obnos;
end;
end;
procedure TForm1.BtnHratClick(Sender: TObject);
var
i: Integer;
begin
Obnos;
if Castka > 0 then
LVCastka.Caption := ((IntToStr(Castka)) + ',- Kč')
else
LVCastka.Caption := ('BANKROT!!!');
Pocet := 0;
Timer1.Enabled := False; //zastaveni casovace
if Castka > 0 then
Hadat
else
Hrat;
Vyhra := (Castka * Pocet) + Vyhra;
if LVCastka.Caption = 'BANKROT!!!' then
Ztrata
else
Vyhra := (Castka * Pocet) + Vyhra;
end;Nastavení events:
OnTimer := BtnHratClick
Fakt nevím jak to použít, aby to rotovalo po zmačknutí tlačítka Hrát a skončilo po pěti protočení částky v label.
Když to roztočím, tak se točí stále do kola.
Prosím pomoc s úpravou kódu.
V programování jsem začátečník a moc toho neumím.