1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Date & Heure
  5. Chronometre

Chronometre

Soyez le premier à donner votre avis sur cette source.

Vue 10 827 fois - Téléchargée 950 fois

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

Ajouter un commentaire Commentaires
Signaler
Messages postés
14
Date d'inscription
mercredi 2 mars 2005
Statut
Membre
Dernière intervention
20 juillet 2010
ok merci
Signaler
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
 67
Lorsque tu ajoutes une source sur le site, il te faut confirmer son ajout pour qu'elle soit visible par tous...

Ajout => Description + Fichiers + etc. => Prévisualisation => Mot clés => Terminé
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)