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
  • nepovedený pokus o upgrade z win xp na win 7
    od anastacia24 » 23 srp 2023 19:24 » v Windows 11, 10, 8...
    6
    1376
    od faraon Zobrazit poslední příspěvek
    23 srp 2023 21:12
  • ESET antivirus a další produkty - levně od PC-HELP
    od Ltb » 27 lis 2023 18:47 » v Vše ostatní (sw)
    0
    7549
    od Ltb Zobrazit poslední příspěvek
    27 lis 2023 18:47
  • Prosím o radu se stavbou nového herního PC
    od Martinusy » 09 úno 2024 13:28 » v Rady s výběrem hw a sestavením PC
    10
    691
    od Vlada47 Zobrazit poslední příspěvek
    09 úno 2024 16:28
  • Prosím o PROFESIONÁLNÍ radu - nastavení Biosu !
    od Jarda_For » 26 úno 2024 19:10 » v Taktování a další úpravy PC
    3
    764
    od pcmaker Zobrazit poslední příspěvek
    27 úno 2024 18:35
  • Problémy s novým PC zakoupeným přes Alza - potřebuji radu Příloha(y)
    od Rhadley » 09 bře 2024 19:15 » v Windows 11, 10, 8...
    9
    803
    od BL!zZard Zobrazit poslední příspěvek
    10 bře 2024 18:56

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

Kdo je online

Uživatelé prohlížející si toto fórum: Majestic-12 [Bot] a 4 hosti