VB-Homepage Tipp 016

Selbstdefinierte Warte/Pausenzeiten in Projekten

Mit unter ist es ein umbedingtes Muß, künstliche Warte- bzw. Pausenzeiten in Ablaüfe einzubauen, zur besseren Veranschaulichung von Vorgängen oder um bestimmte Abläufe zu bestimmen Zeiten zu starten. Leider kennt VB keinen Pausenbefehl, aber es gibt eine Funktion über die dies dennoch sehr gut zu verwirklichen geht.
Dies ist der sogenannte TIMER,
er gibt die Sekunden seit Mitternacht zurück.
Wenn man also einen Ausgangswert definiert, kann man ständig ermitteln, wieviel Sekunden seit dem vergangen sind.
Um diesen Befehl für ein gesamtes Projekt ständig zur Verfügung zu haben ,gehen Sie folgendermaßen vor. Definieren Sei ein neues Projekt und gehen in den General (Abschnitt) der Form. Dort geben Sie folgende Sysntax ein.

Sub Wartezeit (Sekunden)
Dim Start As Single
Dim iT As Integer
Start = Timer

While Timer < Start + Sekunden
   iT = DoEvents()
Wend

End Sub

Dadurch wird die Prozedur General/Wartezeit angelegt.
Nun steht Ihnen der Befehl innerhalb des Projektes zur Verfügung und Sie brauchen bei Bedarf lediglich folgendes in Ihren Sourcecode aufzunehmen.
Wartezeit 2
'in diesem Fall, wird bis zur Ausführung des nachfolgenden Befehls 2 Sekunden gewartet.

###############################################################
Modifizierung (nach einer Information durch Kay Uwe Schreiner)

Sub Wartezeit (Sekunden)
Dim t, t1, d
d = Date
t = Timer + (Sekunden)
t1 = t - 86400

While ((Timer() < t) And (d = Date)) Or ((Timer() < t1) And (d + 1 = Date))
   DoEvents
Wend

End Sub

Diese Version des Tipps zeichnet sich durch die Anwendbarkeit auch über den Tageswechsel hinaus aus. Dort versagte der ursprüngliche Tipp, da der Timer 0:00 Uhr
von vorn beginnt.

###########################################################
Von ihm stammt auch der Hinweis auf eine vergleichbare API Funktion, die ich hier
mit vorstellen möchte.

Unter Allgemein/Deklarationen
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Der Funktionsaufruf
Sleep 5000 ' = 5 Sek.

Dank an Key Uwe


Tipp-Download

Quelle :

Zurück zur Übersichtsseite