Hallo,
ich habe mir einfach mal mit VB6 einen kleinen Countdown mit einfachem Startknopf auf einem Label gemacht.
Dieser funktioniert in der Theorie auch einwandfrei. Das Programm ist ohne Syntaxfehler, hängt sich aber immer wieder bei willkürlichen Zahlen auf.
Ab und zu läuft er Einwand frei durch und dann kommt er mal nur drei Sekunden weit. Ich hoffe ihr könnt mir helfen ... Danke schon einmal im voraus
Thread verschoben.
ich habe mir einfach mal mit VB6 einen kleinen Countdown mit einfachem Startknopf auf einem Label gemacht.
Dieser funktioniert in der Theorie auch einwandfrei. Das Programm ist ohne Syntaxfehler, hängt sich aber immer wieder bei willkürlichen Zahlen auf.
Ab und zu läuft er Einwand frei durch und dann kommt er mal nur drei Sekunden weit. Ich hoffe ihr könnt mir helfen ... Danke schon einmal im voraus
Visual Basic-Quellcode
- Private Sub TXTstart_Click()
- Const COLOR_WHITE = &HFFFFFF '\
- Me.TXTstart.ForeColor = COLOR_WHITE '--- lässt den Start-Knopf verschwinden
- Me.TXTstart_2.BackColor = COLOR_WHITE '/
- Do Until Val(TXThours) = 0 And Val(TXTminutes) = 0 And Val(TXTseconds) = 0
- Application.Wait (Now + TimeValue("0:00:01"))
- If TXTseconds = 0 Then
- If TXTminutes = 0 Then
- If TXThours = 0 Then
- MsgBox ""
- Else
- TXThours = Val(TXThours) - 1
- TXTminutes = 59
- TXTseconds = 59
- End If
- Else
- TXTminutes = Val(TXTminutes) - 1
- TXTseconds = 59
- End If
- Else
- TXTseconds = Val(TXTseconds) - 1
- End If
- If Val(TXTseconds) < 10 Then TXTseconds = "0" & Val(TXTseconds) '\
- If Val(TXTminutes) < 10 Then TXTminutes = "0" & Val(TXTminutes) '--- macht aus 0: 00 , 1: 01 , ...
- If Val(TXThours) < 10 Then TXThours = "0" & Val(TXThours) '/
- Loop
- End Sub
Thread verschoben.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FlashTek“ ()