TKSoft-Online

Programmablauf warten lassen II PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Sonstiges
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

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

DatumKlicks
Total2514
Mi. 232
Di. 224
Mo. 216
So. 203
Fr. 184
Do. 173
Mi. 163
Aktualisiert ( Freitag, den 02. Juli 2010 um 09:16 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads