Counter

[Noretete]

Hi,
ich hab einen Counter programmiert, nur leider hängt sich das Programm immer auf, sobald die Funktion aufgerufen wird, kann mir da jemand helfen?

Sub countdown()
Dim istZeit As Date
Dim istZeit1 As Date
Dim sollZeit As Date
Dim aktZeit As Date

aktZeit = Now
sollZeit = aktZeit + CDate("00:02:50")
Do
    istZeit1 = Now
    istZeit = sollZeit - istZeit1
   Counter.Caption = "Deine Zeit läuft: " & Format(istZeit, "nn:ss")
Loop Until istZeit1 = sollZeit
End Sub

Danke Gruß Ramona

 

[Nico192]

hhmmm....
Ist das der komplette Code
-Hast du eine textbox oda so, in der die Uhrzeit angezeigt wird?, oder wofür willst du das verwender
-Wo ist denn da eine "Funktion"
Oder was verstehst du darunter

Grüße N!C0 192

 

[Noretete]

Der Counter wird in einem Label ausgegeben,
Der Counter ist nur eine Funktion von einem Programm, das meinte ich damit.

 

[Shakie]

Das Programm hängt sich nicht auf, sondern es verursacht eine 100-prozentige Prozessorauslastung! Bau in deine Schleife ein "DoEvents" ein, dann bekommt Windows auch noch Zeit um Sachen zu berechnen, die nicht zu deinem Programm gehören.

Für einen Counter solltest du aber besser das Timer-Steuerelement anstatt einer Schleife verwenden.

Heute ist übrigens Weltmännertag!

 

[Noretete]

VIelen dank, ich probier es mal aus.

 

[Nico192]

....
Heute ist übrigens Weltmännertag!

LOL

Feiert (Drinkt) schön