VB.net en temps réel le temps écoulé fonctionnalité

J'ai déjà créé une horloge temps réel qui se synchronise avec l'ordinateur de temps et est actuellement à l'affiche dans un 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

Je veux le faire en temps réel le temps écoulé fonctionnalité qui maintient sur le comptage des secondes/minutes/heures écoulées depuis le moment où il a commencé jusqu'au moment où il s'arrête et il serait en se basant sur l'horloge en temps réel que j'ai créé. Je voudrais créer un bouton démarrer et arrêter pour cela. Est-ce possible? Merci à l'avance.

Je suis maintenant en mesure de terminer tout et j'ai ajouté une fonction qui enregistre le début et la fin du temps basé sur mon horloge en temps réel. Voici mon code de travail:

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

Crédits pour le démarrage de code donné par NeverHopeless. Merci beaucoup.

  • Peut-être que vous devez planifier une occurrence de Timer après chaque seconde et en Timer_Tick événement de mise à jour de l'étiquette. Pour toutes les 60 minutes sec sera augmenté et ainsi de suite. Une fois que le bouton d'arrêt enfoncé set Timer.Enabled = false.
  • oui c'est ce que je veux faire, mais mon problème est comment faire pour l'afficher dans la mesure de sorte que le format heures:minutes:secondes
InformationsquelleAutor Marc Intes | 2013-09-17
  1. 7

    Je vous suggère d'utiliser seulement 1 minuteur:

    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

    Fin De La Classe

    • Un code de meilleure qualité que le "comptage" secondes! Depuis les événements de la minuterie ne sont pas fiables, il ne faut jamais supposer qu'un 1000 ms minuterie se déclenche après 1000 ms EXACTEMENT.
    InformationsquelleAutor George
  2. 2

    Un exemple pour l'affichage du temps écoulé, l'application a exécuté.

    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

    Pour ajouter des fonctionnalités de démarrage/arrêt à l'aide de boutons:

    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
    • Merci cela a améliorer et de rendre le code plus simple et précis.
    • Vous êtes les bienvenus.
    • Je n'ai pas l'esprit de l'arrêt voté, mais sans commentaire, je ne peux pas corriger/améliorer ma réponse.
    InformationsquelleAutor dbasnett
  3. 1

    Quelque chose comme cela pourrait vous aider: (non testé, mais vous donnera un 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

    REMARQUE: Timer2 sera exécuté pour chaque second.

    • je vais essayer cela merci
    • c'est un travail, mais comment puis-je faire pour afficher seulement les heures:minutes:secondes. donc, il pourrait convenir à mon horloge en temps réel.
    • Code mis à jour. Viens de remarquer que mon code était un mélange de C# et VB.Net mon mauvais :S
    • merci beaucoup, j'ai maintenant créé un précis de la minuterie. je vais poster mon code dans mon premier post. Merci pour le code de départ
    • Non, vous n'avez pas créé un "précis" de la minuterie (au moins pas si vous avez pris le code ci-dessus). Si vous définissez un minuteries intervalle de 1000 ms, la minuterie se déclenche après ENVIRON 1000 ms (c'est 1000ms + quelques ms). Puisque vous ajoutez 1 sec sur chaque "tick", votre "horloge en temps réel" sera trop lent. Vous ne remarquerez probablement que si le temps mesuré est petit, mais quand il fonctionne plus, vous pouvez voir (ou mesurer) l'effet. Le code ci-dessous à partir de George évite ce problème.
    InformationsquelleAutor NeverHopeless