Eine Art Timer-Funktion in VB ???

• 04.07.2000

• Eine Art Timer-Funktion in VB ??? Beitrag #1

D

Deep Space

Bekanntes Mitglied

Dabei seit

01.08.1999

Beiträge

2.004

Reaktionspunkte

0

Gibt es eine Art Timer-Funktion in VB, die das Programm anweist eine bestimmte Zeit zu warten, bis die nächste Zeile des Codes ausgeführt wird?

D.S.

 

• 04.07.2000

• Eine Art Timer-Funktion in VB ??? Beitrag #2

J

JoySurfer

Bekanntes Mitglied

Dabei seit

20.04.2000

Beiträge

128

Reaktionspunkte

0

Programmiere am besten ein FOR-TO-NEXT-Schleife, z.B. so:

dim i as Long

For i = 1 To 10000

Next


mehr nicht!

 

• 05.07.2000

• Eine Art Timer-Funktion in VB ??? Beitrag #3

O

O Love

Bekanntes Mitglied

Dabei seit

08.04.1999

Beiträge

2.286

Reaktionspunkte

0

Das kann man zwar prinzipiell so machen, es gibt aber zwei Probleme:

• Diese Schleife läuft auf unterschiedlichen Rechnern verschieden schnell ab. Es gibt aber eine Win32 API Funktion, die da GetTickCount () heißt. Damit kann man eine feste Zeit von Millisekunden warten.
• Jedes Warten dieser Art verbrät Rechenleistung, kein anderer Prozeß kann in dieser Zeit arbeiten. Man muß in währenddessen die Message Loop für andere Threads freigeben. Wie das unter VB geht, weiß ich nicht.

Obiges Problem als Beispiel in Delphi:

Code:

StartTime := GetTickCount;
while ((GetTickCount - StartTime) < WaitTime) do
  Application.ProcessMessages;

O Love

------------------
"I will not abide disobedience!"

 

• 14.07.2000

• Eine Art Timer-Funktion in VB ??? Beitrag #4

verdi

Bekanntes Mitglied

Dabei seit

22.11.1999

Beiträge

95

Reaktionspunkte

0

Oder probiers hiermit:

Private Declare Sub sleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwmilliseconds As Long)

Public Sub Pause(Millisekunden As Long)
sleep Millisekunden
End Sub


Verdi