tajmeri u vb

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zahvaljujem obojici na pomoci
Uradio sam radi dobro

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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).

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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