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
  • Delphi - FindWindow
    od BigSandy » 05 říj 2017 18:05 » v Programování a tvorba webu
    1
    303
    od satik
    07 říj 2017 11:28
  • Nahrazení znaků v Label - Delphi
    od radekzatec » 20 led 2018 20:09 » v Programování a tvorba webu
    0
    123
    od radekzatec
    20 led 2018 20:09
  • PCI Serial Port a další
    od MIlck » 03 črc 2017 12:25 » v Windows 10, 8, 7, Vista, XP…
    7
    300
    od MIlck
    04 črc 2017 11:49
  • Google Drive záloha do další složky
    od timmyl » 16 lis 2017 14:57 » v Vše ostatní (sw)
    0
    160
    od timmyl
    16 lis 2017 14:57
  • Zajímavá soutěž o PS4, SONY TV a další ceny
    od blackboy » 01 pro 2017 09:30 » v Vše ostatní (Off topic)
    0
    234
    od blackboy
    01 pro 2017 09:30

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů