tajmeri u vb

1

tajmeri u vb

offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Interesuje me da li neko moze da mi pomogne u radu sa dva tajmera u vb. Kada se zaustavi prvi tajmer treba da krene drugi, i obrnuto, da krene prvi sa mesta gde je stao.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • dubu 
  • Novi MyCity građanin
  • Pridružio: 30 Sep 2006
  • Poruke: 3

neka se prvi zove: timer1, a drugi: timer2

kada oces da zaustavis timer1 a da pokrenes timer2 kucas:

timer2.Enabled = true
timer1.Enabled = false

,a kada oces da zaustavis timer2 a da aktiviras timer1 kucas:

timer1.Enabled = true
timer2.Enabled = false


samo menjas Enabled svojstvo koje pokazuje da li se neki objekat koristi ili ne. Ako je nekom objektu Enabled svojstvo postavljeno na FALSE, taj objekat se ne moze koristiti sve dok mu se Enabled svojstvo ne vrati na TRUE



offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Na formi imam ProgressBar koji napreduje kako tajmeri odbrojavaju. Potrebno je da zaustavim tajmer (napredovanje ProgressBara), i kad ga ponovo pokrenem da napredovanje krene od mesta na kojem je stao, da ga ne vraca od pocetka.

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Ja bi to resio ovako:

Private Sub Form_Load() pb1.Value = 0 End Sub Private Sub Timer1_Timer() pb1.Value = pb1.Value + 1 End Sub

I kada recimo ovim:

Private Sub Command1_Click() Timer1.Enabled = False End Sub

zaustavis, a kasnije ovime:

Private Sub Command2_Click() Timer1.Enabled = True End Sub

pokrenes, progresbar ce nastaviti tamo gde je stao.

Ako oces napisi code koji imas za sada, pa cu da prepravim.

offline
  • Pridružio: 03 Okt 2006
  • Poruke: 30

Zahvaljujem obojici na pomoci
Uradio sam radi dobro

offline
  • Pridružio: 17 Jul 2006
  • Poruke: 8

Kad vec ima tema o tajmerima dali neko zna kod koji treba uneti u tajmer da bi program kada se klikne na njega dva puta bio aktiviran.To jest da tajmer pocne sa odbrojavanjem i da onda izvrsi komandu za na primer 45 minuta.HVALA
P.S.-Ona tema za VB pocetnike -primeri i trikovi-vam je odlicna.Trebalo bi da je nastavite.
POZDRAV

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

45min * 60sec * 1000msec = 2700000msec Ali toliko neces moci da postavis za interval, pa mozda da napises ovako nesto:

Dim a As Integer Private Sub Form_Load() a = 0 End Sub Private Sub cmd1_Click() tmr1.Interval = 60000 tmr1.Enabled = True End Sub Private Sub tmr1_Timer()     If a = 45 Then         MsgBox "Vreme je isteklo"     Else         a = a + 1     End If End Sub

Za ovaj primer formi treba da imas jedan timer (tmr1) i jedno dugme (cmd1).

offline
  • Pridružio: 17 Jul 2006
  • Poruke: 8

Znaci to bi trebalo da pokrene komandu upisanu u formu kada istekne zadato vreme?

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

To ce da izbaci poruku "Vreme je isteklo". Ti mozes da prepravis taj red i da ubacis tvoje komande.

Dopuna: 08 Okt 2006 22:30

E i ima jedna greska kod tajmera. Program prvo proveri vreme, a tek odna zabelezi da je prosla minuta. Znaci ovako:

Private Sub tmr1_Timer() a = a + 1     If a = 45 Then         MsgBox "Vreme je isteklo"     End If End Sub

offline
  • Pridružio: 17 Jul 2006
  • Poruke: 8

Neznam sta da ti kazem sem HVALA NA POMOCI,MNOGO SI MI POMOGAO.POZDRAV

Ko je trenutno na forumu
 

Ukupno su 961 korisnika na forumu :: 50 registrovanih, 4 sakrivenih i 907 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1798 - dana 19 Sep 2019 18:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., AF-1, aljosa7, Apok, Atomski čoban, babaroga, Bane san, bobeNS, BSD2, Buzdovan2, caesar2, calvi, Cvijo_ue, DARKMEN22, DJORDJE-NO-1, drdoca, Fog of War, GreenMan, Insan, ivan979, Kubovac, Kule, KUZMAR, ltcolonel, MarKhan, MB120mm, Mihajlo, milandlc84.wow, Milos1977, nedeljkovici, nemkea71, novator, Recce, Regrut Boskica, renoje2, Revolucion, SAA fan, Salence74, shsoft02, Snorks, Stija zmija, Toni, Trpe Grozni, vasa.93, virked, VJ, voja64, zgoljo, zlatkoa987, zodiac94