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 |
