Minuten, Sekunden Countdown

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Minuten, Sekunden Countdown

    Hallo,
    ich habe ein Code der Tage, Stunden, Minuten und Sekunden runterzählt.
    Nun möchte ich diesen ändern dass er nur Minuten und Sekunden runterzählt.

    Weiß jemand wie ich das anstelle?


    Form1.vb

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private valert As String = 2 ' minutes
    3. Dim HourTimer As DateTime
    4. Dim countdown As Date
    5. Public DateTo As Integer = 5
    6. Dim t1, t2, t3, t4, t5, t6
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. HourTimer = DateTime.Now
    10. loader.Start()
    12. Dim sDateTo As DateTime = Installeddate()
    13. sDateTo = sDateTo.AddDays(DateTo)
    14. t1 = sDateTo.ToString("hh")
    15. t2 = sDateTo.ToString("mm")
    16. t3 = sDateTo.ToString("ss")
    17. t4 = sDateTo.ToString("yyyy")
    18. t5 = sDateTo.ToString("MM")
    19. t6 = sDateTo.ToString("dd")
    20. countdown = FormatDateTime(t1 & ":" & t2 & ":" & t3 & " " & t4 & "-" & t5 & "-" & t6, DateFormat.GeneralDate)
    21. tmrCountdown.Start()
    23. End Sub
    25. Private Sub tmrCountdown_Tick(sender As Object, e As EventArgs) Handles tmrCountdown.Tick
    26. Dim oldDate As Date = Date.Now
    27. Dim nowdate As Date = countdown
    28. Dim diff As TimeSpan = nowdate.Subtract(oldDate)
    29. Me.Label6.Text = diff.Days & " Days"
    30. Label10.Text = diff.Hours & ":" & diff.Minutes & ":" & diff.Seconds
    31. Try
    32. If diff.Days = 0 And diff.Hours = 0 And diff.Minutes = 0 & diff.Seconds = 0 Then
    33. End If
    34. Catch ex As Exception
    35. tmrCountdown.Stop()
    36. Label10.Text = "00:00:00"
    37. MsgBox("Time is Up!", MsgBoxStyle.Critical)
    38. End Try
    39. End Sub
    41. Private Sub loader_Tick(sender As Object, e As EventArgs) Handles loader.Tick
    42. Dim OneHour As DateTime = DateTime.Now
    43. Dim Hour As Double = (OneHour.Subtract(HourTimer)).TotalSeconds
    44. If Hour >= valert * 100 Then
    45. Me.Show()
    46. Me.TopMost = True
    47. Me.TopMost = False
    48. HourTimer = DateTime.Now
    49. End If
    50. End Sub
    51. End Class


    Func.vb

    VB.NET-Quellcode

    1. ​Module Func
    2. Public LO As Object = New IO.FileInfo(Application.ExecutablePath)
    4. Public Function Installeddate() As String
    5. If My.Settings.Installeddate = "" Then : Try : My.Settings.Installeddate = CType(LO, IO.FileInfo).LastWriteTime.ToString("yyyy-MM-dd hh:mm:ss") : My.Settings.Save() : Catch ex As Exception : End Try : End If
    6. Return My.Settings.Installeddate
    7. End Function
    8. End Module


    Der Countdown wird auch gespeichert, also wenn man es schließt dann wird der letzte Stand des Countdowns gespeichert.

    Ich hoffe mir kann jemand weiterhelfen^^
    Danke.

    MrFish schrieb:

    Weiß jemand wie ich das anstelle?
    Du hast eine falsche Herangehensweise.
    Du zählt nicht Tage und minuten, sondern Ticks.
    Die Frage ist, wie diese Ticks formatiert werden.
    Statt t1 bis t6 machst Du HourTimer.ToString("hh:mm:ss yyyy-MM-dd").
    Und mit dem TimeSpan geht das so:

    VB.NET-Quellcode

    1. Dim sp As TimeSpan = DateTime.Now - HourTimer
    2. If CInt(sp.TotalDays) > 0 Then
    3. Label1.Text = sp.TotalDays.ToString
    4. Else
    5. Label1.Text = String.Format("{0}:{1:00}", CInt(sp.TotalMinutes), sp.Seconds)
    6. End If
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @MrFish Dann solltest Du dringend meinen Code verstehen und die erste Ausgabe entsprechend modifizieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende