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ž

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
  • Nahrazení znaků v Label - Delphi
    od radekzatec » 20 led 2018 20:09 » v Programování a tvorba webu
    0
    382
    od radekzatec
    20 led 2018 20:09
  • Notebook se zapne až několikátý pokus
    od Fleexio » 06 bře 2018 17:48 » v Problémy s hardwarem
    3
    304
    od Melis
    08 bře 2018 16:23
  • Pokus o spuštění neznámé aplikace při spuštění windows
    od jiri18 » 05 zář 2018 18:22 » v Vše ostatní (sw)
    1
    393
    od zeus
    05 zář 2018 21:11
  • Další grafika
    od pavot » 22 zář 2018 21:40 » v Rady s výběrem hardwaru a sestavením PC
    3
    181
    od Michael850
    22 zář 2018 21:44
  • Další novej hdd
    od ZiklCZ » 25 kvě 2018 12:20 » v Rady s výběrem hardwaru a sestavením PC
    6
    430
    od ZiklCZ
    30 kvě 2018 10:12

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti