Wichtige Information für TKSoft-Online.de


Beiträge haben neue URL's da ich eine neue SEF-Software habe.

1. Das Schreiben von Kommentaren ist allen Usern erlaubt, müssen aber von mir freigeschalten werden. (wegen Spam)
2. Die Downloads sind ohne Registrierung möglich.
3. Die alten User wurden nicht übernommen. Neuregistrierung erforderlich!
4. Jeder Account wird erst von mir freigeschaltet. Ist wegen Spam leider erforderlich.
5. Ein Forum gibt es nicht mehr

Gruß Tommy

Home

Problemstellung:

Wie kann ich den Programmablauf für eine bestimmte Zeit anhalten? 

Public Function WartenSekunden(Sec As Long)
     
     ' ---------------------------------------------------------
     '  Diese Funktion hält die Verarbeitung für X Sekunden an.
     '  X wird über das rufende Programm definiert.
     ' ---------------------------------------------------------
     
     Dim merk As Long
         merk = Int(Timer) + Sec
         Do Until Timer >= merk
             DoEvents
         Loop
 End Function

Aufruf:

Call WartenSekunden(10)

würde das Programm für 10 Sek anhalten

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form