Jak w Visual Basic 6.0 wprowadzić opóźnienie podobne do wait(czas)?

Question

Jest w Visual Basicu jakieś polecenie opóznienia (cos w stylu wait (czas)) ?

ZeeWolf · Answer

Witam. W WinAPI raczej nie korzysta sie z akcji typu Delay() . Uzyj kontrolki Timer - ustaw odpowiedni czas i zareaguj na komunikat od tej kontrolki (chyba OnTimer). Dziala to tak, ze Timer, po ustawieniu np: 400ms co 400ms generuje komunikat OnTimer. Dalej powinienes sobie poradzic. Jak nie, to pisz. Pozdrawiam.

jakubbulas · Answer

No tak, wszystko byłoby super gdyby nie to, że kontrolka Timer nie wstrzymuje akcji całego programu. A chyba o to chodziło, a jak nie to ja czegoś takiego poszukuję.
Narazie moim rozwiązaniem jest wykorzystanie parametru Timer, który zwraca sekundy i ich setne części i tworzę pętle aż nie uzyska czasu początkowego + x sekund (a to daje sporą dokładność).

ZeeWolf · Answer

Wstrzymywanie programu (tak jak to mialo miejsce przy uzyciu delay w pascalu) jest mocno niewskazane. Dlaczego? Np: ustawiasz opoznienie na 20s, a w tym czasie program jest zatrzymany - nie mozna go zamknac, nie odrysowuje okna itp. Do zablokowania programu mozna uzyc prostej sztuczki - wywolac modalnie dowolny dialog box (np: messagebox). A najlepiej okreslic, czego program ma nie robic i przechwytywac odpowiednie komunikaty. Pozdrawiam.

amator · Answer

Witam.
Jak napisał poprzednik takie opóźnienie nie jest wskazane. A jeżeli koniecznie potrzebujesz poniżej masz opdowiednik Pascal'owskiego DELAY.
Deklarujemy funkcję Sleep:

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

Natomiast w kodzie programu piszemy (musisz mieć labla na formie):

Label1.Caption = "Demo funkcji Sleep - 2 sekundy"
Label1.Refresh
Sleep 2000 ' 2000 milisekund = 2 sekundy
Label1.Caption = "Juz koniec ..."
Label1.Refresh 'odśwież labla

Pozdrawiam.

nakla · Answer

Mam pytanie.
Jak w Vb 6 zrobić aby poszczególne komórki z tabeli czytać co pewien interwał.
Naprzykład :
for i=0 to 10
text1.text = tablica(i)
"funkcja z czasem której nie znam"
next i

Wyżej napisany moduł będzie częscia programu. Interwał ma być od 1µS do 1 sekundy. Ustale o doświadczalnie.
Z góry dzięki.

amator · Answer

Witam,
najlepiej ustawić Timer, wpisać w Interval wartość co jaką mamy odczytywać czas (od 1 ms wzwyż), np 1000 (1 sekunda) i wtedy w kodzie obsługi zdarzenia timer: (zdefiniować zmienną i=0 wcześniej, np przy wczytywaniu formatki)

Private Sub Timer1_Timer()
i=i+1
text1.text = tablica(i)
if i>10 then i=0
End Sub

Prosty podprogram wywołuje się zgodnie z parametrem Interval Timer1.
Pozdrawiam.

romantv · Answer

Witam serdecznie Panowie potrzebuję zatrzymać wykonywanie funkcji np. na 100ms Function efekt_rozwijania_p_do_l() Efekt = 0 efekt2: w tym miejscu If Efekt

Jak w Visual Basic 6.0 wprowadzić opóźnienie podobne do wait(czas)?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu