Chronometre

Télécharger le projet
Commenter

Description

J'ai cherché un chronomètre simple et j'en ai pas trouvé donc j'ai créé le mien
j'ai bien trouvé plein de sources mais en les compilant j'avais soit des erreurs soit cela ne marchait pas
voici un chronomètre simple créé en VB 2008

Source / Exemple : 


Public Class FormMain
 Dim ChronoStarted As Boolean = False
 Dim temps2 As Date
 Dim TempsDepart As New Date
 Dim TempsFin As New Date
 Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  ChronoStarted = False
  TimerChrono.Enabled = True
  TimerChrono.Interval = 1
  LabelCompteur.Text = "00:00:00:0000000"
  TempsDepart = Now
  TempsFin = Now
 End Sub
 Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
  If ChronoStarted Then
   ChronoStarted = False
   ButtonStart.Text = "Start"
   ButtonReset.Enabled = True
  Else
   ChronoStarted = True
   ButtonStart.Text = "Stop"
   TempsDepart = Now
   ButtonReset.Enabled = False
  End If
 End Sub
 Private Sub TimerChrono_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerChrono.Tick
  If ChronoStarted Then
   TempsFin = Now
   LabelCompteur.Text = (TempsFin - TempsDepart).ToString
   LabelCompteur.Refresh()
  End If
 End Sub
 Private Sub ButtonReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonReset.Click
  LabelCompteur.Text = "00:00:00:0000000"
 End Sub
 Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
  Application.Exit()
 End Sub
 Private Sub NouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem.Click
  LabelCompteur.Text = "00:00:00:0000000"
 End Sub
 Private Sub ÀproposdeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÀproposdeToolStripMenuItem.Click
  AboutBox1.Show()
 End Sub
 Private Sub SourceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SourceToolStripMenuItem.Click
  DialogViewSource.Show()
 End Sub
End Class
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fredatcs)