VB.net real-time verstrichene Zeit-feature

Habe ich bereits erstellt, eine Echtzeit-Uhr, synchronisiert mit dem computer und angezeigt wird, in einem label.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Time.Text = Date.Now.ToString("h:mm:ss tt")
End Sub

Möchte ich ein real-time verstrichene Zeit-feature, das hält das zählen der Sekunden/Minuten/Stunden der verstrichenen Zeit fing es an, bis die Zeit Stoppt es und es wäre auf der Grundlage der real-time-clock, die ich erstellt habe. Ich wäre die Schaffung einer start-und Stopp-Taste für diese. Ist das möglich? Vielen Dank im Voraus.

Ich bin jetzt in der Lage, um alles, und ich eine Funktion Hinzugefügt, dass die Aufzeichnungen den Start-und End-Zeit, basierend auf meinem real-time-clock. Hier ist mein Arbeits-code:

Dim hr, min, sec As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Time.Text = Date.Now.ToString("h:mm:ss tt")
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Start.Text = ""
    EndLbl.Text = ""
    Elapse.Text = ""
    Timer2.Enabled = True
    Start.Text = Time.Text
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    sec = sec + 1
    If (sec = 60) Then
        sec = 0
        min = min + 1
    ElseIf (min = 60) Then
        min = 0
        hr = hr + 1
    ElseIf (hr = 24) Then
        hr = 0
        min = 0
        sec = 0
    End If

    Elapse.Text = String.Format("{0}hr : {1}min : {2}sec", hr, min, sec)
    Timer2.Interval = 1000
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Timer2.Enabled = False
    EndLbl.Text = Label4.Text

    hr = 0
    min = 0
    sec = 0
    Timer2.Interval = 1
End Sub

Kredite an den Start code gegeben NeverHopeless. Vielen Dank.

Möglicherweise müssen Sie planen Sie eine Timer-Instanz, nach jedem zweiten und im Timer_Tick-Ereignis update-label. Für jede 60 Sek Minuten erhöht und so weiter. Einmal Taste stop gedrückt-set Timer.Enabled = false.
ja, dass ist was ich will zu tun, aber mein problem ist, wie zeige ich es in der Lage, so dass das format wäre Stunden:Minuten:Sekunden

InformationsquelleAutor Marc Intes | 2013-09-17

Ich schlage vor, Sie verwenden nur 1 timer:

Public Class Form2

Private _elapseTimerRunning As Boolean = False
Private _elapseStartTime As DateTime

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    txtTime.Text = Now.ToString("h:mm:ss tt")
    If _elapseTimerRunning = True Then
        Dim elapsedtime = DateTime.Now.Subtract(_elapseStartTime)
        txtElapsed.Text = String.Format("{0}hr : {1}min : {2}sec", elapsedtime.Hours, elapsedtime.Minutes, elapsedtime.Seconds)
    End If
End Sub

Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    _elapseStartTime = DateTime.Now
    _elapseTimerRunning = True
End Sub

Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    _elapseTimerRunning = False
End Sub

Ende Klasse

Besseren code, als "zählen" Sekunden! Da die timer-Ereignisse sind nicht zuverlässig, man sollte nie davon ausgehen, dass ein 1000 ms timer feuert nach 1000 ms GENAU.

InformationsquelleAutor George

Ein Beispiel für die Anzeige der verstrichenen Zeit, die die Anwendung ausgeführt hat.

Public Class Form1
    'shows elapsed time that the app has run
    '
    Dim elapTimer As New Threading.Timer(AddressOf tick, Nothing, 1000, 1000)
    Dim stpw As Stopwatch = Stopwatch.StartNew

    Private Sub tick(state As Object)
        If stpw.IsRunning Then
            'format - http://msdn.microsoft.com/en-us/library/ee372287.aspx
            Me.Invoke(Sub()
                          Label1.Text = stpw.Elapsed.ToString("d\ \ hh\:mm\:ss\.ff")
                      End Sub)
        End If
    End Sub

End Class

Hinzufügen, start/Stopp-Funktion mithilfe der Tasten:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'start the elapsed timer
    stpw.Start() 'continue 
    'or
    'stpw.Restart() 'restart
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    stpw.Stop()
End Sub

Danke das hat sich verbessert und der code einfacher und genauer.
Sie sind herzlich willkommen.
Ich habe nichts dagegen, dass es nach unten gestimmt, aber ohne Kommentar kann ich nicht fix/Verbesserung meiner Antwort.

InformationsquelleAutor dbasnett

1

Etwas wie das würde helfen: (ungetestet, aber wird Ihnen ein starter)
```
Dim hr, min, sec As Integer 'msec;

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Timer1.Enabled = True
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    'msec++;
    'if(msec == 60)  { msec = 0; sec++; }

    sec+=1;
    if(sec  = 60) Then 
      sec = 0 : min+=1
    end if
    if(min  = 60) Then
      min = 0 : hr+=1
    end if
    if(hr = 24)  Then
      hr  = 0 : min = 0 : sec = 0
    end if   

    'TimeElapsed.Text = String.Format("{0}:{1}:{2} {3}", hr, min, sec, msec)
     TimeElapsed.Text = String.Format("{0}:{1}:{2}", hr, min, sec) 
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Time.Text = Date.Now.ToString("h:mm:ss tt")
End Sub
```
HINWEIS: Timer2 wird für jeden second.

ich werde dies versuchen, vielen Dank
es funktioniert, aber wie mache ich es nur Anzeige Stunden:Minuten:Sekunden. so würde es passen zu meinem real-time-clock.
Aktualisierten code. Gerade bemerkt, dass mein code war eine Mischung aus C# und VB.Net mein schlechtes :S
vielen Dank ich habe jetzt eine genaue timer. ich werde Entsendung meine code in meinem ersten post. Vielen Dank für den ersten code
Nein, Sie haben nicht erstellt eine "genaue" timer (zumindest nicht, wenn man den obigen code). Wenn Sie ein Timer-Intervall von 1000 ms, wird der timer ausgelöst wird, nach ETWA 1000 ms (ja, das ist 1000ms + einige ms). Da fügen Sie 1 Sek auf jedem "tick", eine "real time clock" wird zu langsam sein. Sie pflegt wohl merkt, wenn die gemessene Zeit ist klein, aber wenn es länger ausgeführt wird, können Sie sehen (oder Messen), die Wirkung. Der code unten von George vermeidet dieses problem.

InformationsquelleAutor NeverHopeless

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.