Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Zabawy z czasem
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
Zabawy z czasem

Jak najprosciej zrealizowac cos takiego, chce aby było zdarzenie , pozniej np: 5 sekund przerwy i kolejne zdarzenie. np:

text1.text="lato"
10 sekund
text1.text="zima"

czy da sie prosciej czy musze przez timer? czy ejst jakis odpwoiednika npelay? albo weit(time) za odpwoiedz dziekuje ;]

06-03-2005 18:59
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
bisiek




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

W deklaracjach wpisz

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

i używaj

Sleep 5000 '5 sekund


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

06-03-2005 19:39
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Imago




Typ: neutral
Postów: 21
Zarejestrowany: Oct 2004
oki doki ;] ale maly problem

ok o to mi chodzilo cacy dziala ale mam maly problem:

gdy mam kod:
Private Sub klawisz1_Click(Index As Integer)
stat1.Text = "Konwercja"
stat1.BackColor = &HFFFF80

Sleep 10000
stat1.Text = "wysyłanie"
stat1.BackColor = &HFFFF88

to gdy zrobie click to zdarzenie mi stoi a pozniej odrazu wyskakuje:
stat1.Text = "wysyłanie"
ponad to formatka schodzi mi do paska i musze znow ja kliknac aby sie pojawila na ekranie hmm za pomoc dzieki ;]

06-03-2005 20:56
Pokaż profil Imago  Wyślij email do Imago   Odwiedź stronę Imago  
bisiek




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

Możesz też spróbować ze zmienną timer przykład:

t = timer
do
doevents
loop while timer - t < 5


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

06-03-2005 21:26
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1