Aflopende tijd

[bonnowagt]

Hallo,

Ik wil 10 minuten laten aftellen. Ik heb dit als volgt:

In de load event:

Ingesteldetijd=600

In timer1 de code

ingesteldetijd=ingesteldetijd-1
    Dim Min, Sec As String
        Min = speeltijd / 60.ToString("00")
        sec = (speeltijd) Mod 60.ToString("00")
     Label6.Text = Min & ":" & sec

Echter op de label wordt weergeven

9.99993, 9.8445 enz. Wat heb ik fout


Groet

 

[The Mighty Atom]

Voldoet het volgende:

    Dim alarmTime As Date

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        alarmTime = Date.Now.AddMinutes(10)
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick

        If alarmTime < Date.Now Then
            Timer1.Stop()
            MessageBox.Show("Time's up.")
        Else
            Dim remainingTime As TimeSpan = alarmTime.Subtract(Date.Now)

            Label1.Text = String.Format("{0:d2}:{1:d2}:{2:d2}",
                                           remainingTime.Hours,
                                           remainingTime.Minutes,
                                           remainingTime.Seconds)
        End If

    End Sub

 

[bonnowagt]

Bedankt, dit is een beter manier. Het werkt prima, bedankt

 

[hanonymouss]

Voldoet het volgende:

    Dim alarmTime As Date

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        alarmTime = Date.Now.AddMinutes(10)
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick

        If alarmTime < Date.Now Then
            Timer1.Stop()
            MessageBox.Show("Time's up.")
        Else
            Dim remainingTime As TimeSpan = alarmTime.Subtract(Date.Now)

            Label1.Text = String.Format("{0:d2}:{1:d2}:{2:d2}",
                                           remainingTime.Hours,
                                           remainingTime.Minutes,
                                           remainingTime.Seconds)
        End If

    End Sub

Bij het afsluiten van de form zijn de instellingen verloren, en begint de timer bij start van de form terug op 10 minuten, Hoe kun je dit doen om dit te voorkomen ?

 

[JoZ1]

@hanonymouss: Bijvoorbeeld in je ApplicationSettings opslaan. Maak anders ff een nieuwe thread als je er niet uitkomt.