title image


Smiley Re: Countdown
schau dir mal die funktion timer an. Unter Microsoft Windows gibt die Timer-Funktion Bruchteile einer Sekunde zurück...na ja dann rechnest du das noch um und gut is...

Beispiel:



Dim Pausenlänge, Start, Ende, Gesamtdauer

If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then

Pausenlänge = 5 ' Dauer festlegen.

Start = Timer ' Anfangszeit setzen.

Do While Timer < Start + Pausenlänge

DoEvents ' Steuerung an andere Prozesse

' abgeben.

Loop

Ende = Timer ' Ende festlegen.

Gesamtdauer = Ende - Start ' Gesamtdauer berechnen.

MsgBox "Die Pause dauerte " & Gesamtdauer & " Sekunden"

Else

End

End If







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: