Medusa
Senior Member
Dabei seit: 10.09.2001
Beiträge: 356
Herkunft: ...von da, wo mein Haus wohnt...
|
|
Pause = 5
Start = Timer
Do until Timer > Start + Pause
DoEvents
Loop
= 5 Sekunden Pause
Wenn das Programm in der Pause still stehen soll, musst du das DoEvents weglassen.
In Qbasic gibt es dafür den Befehl SLEEP, ich hab in VB aber nichts vergleichbares gefunden.
Du kannst das ganze auch in einer Zeile schreiben
x=Timer : Do Until Timer > x + 5 : DoEvents: Loop
__________________ Grüßle, Medi
|
|