Kako napraviti brojac?

Kako napraviti brojac?

offline
  • Pridružio: 19 Dec 2005
  • Poruke: 110
  • Gde živiš: S one strane Drine gde padaju mine!!!

Kako da napravim program koji ce u label da vrti brojeve (sekunde na primer) i kada dodje na odredjen broj da se zaustavi?
Ako moze neki primer vezan za ovo.

Hvala unapred!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Za to koristis TTimer komponentu.
Ona ima Interval property koji odredjuje koliko cesto ce se pozivati OnTimer event. Ako postavis Interval na 1000 (vrednost se daje u milisekundama) OnTimer ce se pozivati svake sekunde i tu mozes napisati nesto ovako:
Label1.Caption := IntToStr(StrToIntDef(Label1.Caption, 0) + 1);
Ovo ce povecavati vrednost u Label1.Caption za 1 svake sekunde. Posle samo napravis jedan uslov (npr. if Label1.Caption = '10' then...) kada zelis da prestanes sa brojanjem.

TTimer komponenta ima property Enabled koji oznacava da li ce se OnTimer event uopste pozivati. Kada zelis da se poziva onda Enabled postavis na True, a kada ne zelis (kad zelis da prestanes sa brojanjem) onda ga postavis na False.



offline
  • Emil Beli
  • Pridružio: 03 Jan 2005
  • Poruke: 2990
  • Gde živiš: Beograd

@Licanin

Nisi poslushao savet i kupio knjigu za delfi. Ovo sto ti pitas su problemi koji se resavaju posle 2 lekcije.
Pazi, nije da ne zelimo da ti pomognemo - naprotiv, ali upadas u onu staru pricu:

"Daj ribu siromahu, nahranices ga danas - nauci ga da peca, nahranio si ga za ceo zivot".

Ako ti i dalje budemo reshavali banalne problemcice, nikad neces nauciti. Kupi kjigu, ili je nadji na net-u, i takodje, prelistaj Google, ima gomila primera.

Pomocicemo ti, ali ako se zaglavis oko nekog problema, kog si pokusao da resis, i posle 2 h razbijanja glave i probavanja, nisi uspeo.
Ovo je previse banalno.

Evo ti par linkova:
http://www.planet-source-code.com/vb/default.asp?lngWId=7
http://www.sourceforge.net
http://www.example-code.com/delphi/default.asp

Ko je trenutno na forumu
 

Ukupno su 887 korisnika na forumu :: 13 registrovanih, 2 sakrivenih i 872 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: brundo65, draggan, ILGromovnik, JOntra, Koridor, kovac9mm, Krvava Devetka, opt1, pein, radionica1, saputnik plavetnila, TBF1D, šumar bk2