Teller

[gille]

Hallo,

Ik probeer een simpele counter/teller te maken.
het moet elke milliseconde tellen.
De output (format): 00:00:00.000

Ik heb al een code, maar deze werkt niet volledig:

Public Class Form1
    Dim lSeconds As Long

    Private Sub tmrTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
        Dim timeleft As String
        lSeconds = lSeconds + 1
        timeleft = Format((lSeconds / 86400), "00") & ":" & Format((lSeconds / 7200) Mod 60, "00") & ":" & Format((lSeconds / 60) Mod 60, "00.000")
        lblTimer.Text = timeleft
        If lSeconds = 0 Then tmrTimer.Enabled = False
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lSeconds = 0
        lblTimer.Text = "00:00:00.000"
        tmrTimer.Interval = 1 '1/1000 of a sec
        tmrTimer.Enabled = True
    End Sub
End Class

Als het op 00:01:59.999 staat, wordt het daarna 00:01:00.000 opnieuw.
Daarna veranderen de minuten om de 2 minuten...

Iemand een oplossing om het te laten werken?

 

[CaptainBri]

Je kan het ook met een stopwatch doen:

        Dim Teller As New Stopwatch()
        Teller.Start()
        Threading.Thread.Sleep(2000)
        Teller.Stop()
        Dim Resultaat As String = Teller.Elapsed.ToString()

Resultaat:

En dan kan je om de seconde bijv. de stopwatch laten verschijnen met een timer op je form

 

[gille]

Bedankt!