Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: timer
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004
timer

Jak zrobic na timerze żeby w text1.text
były wyświetlane co np 10 sekund
dane i w kółko
a(1)=10
a(2)=20
a(3)=30
Private Sub Timer1_Timer()


Text1.text=a(i)

End sub

11-12-2004 19:01
Pokaż profil zibi  Wyślij email do zibi   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

zadeklaruj zmienną i jako globalną np.

dim i as long
dim a(1 to 3) as long
Private Sub Timer1_Timer()


Text1.text=a(i)
i=i+1
if i = 4 then i =1
End sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

11-12-2004 21:32
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004

Dobra wyświetla wszystkie dane z tablicy co określony czas ale
Jak zrobic żeby wyświetlał 3 razy dane z tablicy
jak to zapętlić żeby nie mielił tego cały czas


dim i as long
dim a(1 to 3) as long 
Private Sub Timer1_Timer() 
Text1.text=a(i) 
i=i+1
if i = 4 then i =1
End sub

11-12-2004 22:32
Pokaż profil zibi  Wyślij email do zibi   
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Rozumiem, że ma np. wyświtlić 3 razy:

dim i as long , j as long
dim a(1 to 3) as long 
Private Sub Timer1_Timer() 
Text1.text=a(i) 
i=i+1 
if i = 4 then i =1  :j=j+1
if j = 3 then j=0:timer1.enabled=false
End sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

12-12-2004 12:37
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
zibi




Typ: neutral
Postów: 13
Zarejestrowany: Nov 2004

ok

12-12-2004 13:38
Pokaż profil zibi  Wyślij email do zibi   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1