Delphi další pokus o radu - komponenta Timer

Místo pro dotazy a rady ohledně programovacích jazyků (C++, C#, PHP, ASP, Javascript, VBS..) a tvorby webových stránek

Moderátor: Mods_senior

radekzatec
nováček
Příspěvky: 5
Registrován: srpen 16
Pohlaví: Muž
Stav:
Offline

Delphi další pokus o radu - komponenta Timer

Příspěvekod radekzatec » 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

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.

Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • NB DELL Latitude 7440,ale i někteé další problém s lepením.
    od Ketty02 » 10 črc 2024 18:55 » v Vše ostatní (hw)
    1
    2701
    od liborek Zobrazit poslední příspěvek
    10 črc 2024 19:52
  • Prosím o radu jak předělat PC
    od ruzi.jiri » 22 srp 2024 07:54 » v Rady s výběrem hw a sestavením PC
    8
    2520
    od Zivan Zobrazit poslední příspěvek
    23 srp 2024 12:10
  • Žádost o radu s koupí notebooku
    od Impo168 » 31 led 2025 14:39 » v Rady s výběrem hw a sestavením PC
    0
    2003
    od Impo168 Zobrazit poslední příspěvek
    31 led 2025 14:39

Zpět na “Programování a tvorba webu”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host