Chronometre
Soyez le premier à donner votre avis sur cette source.
Vue 13 435 fois - Téléchargée 1 036 fois
Description
Il sagit d'un chronometre, le programme en lui même ne sert pas à grand chose mais il permet de montrer comment travailler avec les dates, faire des opérations ect...
Source / Exemple :
'**************************************************************
'* Chronometre
'*
'*
'* Elements utilisés:
'* - 4 GroupeBox : gpeChronometrage, gpeHeureSysteme,
'* gpeDepart, gpeArrive
'* - 4 Label : lblHeureSysteme, lblTempsDepart,
'* lblTempsArrive, lblTempsEcoule
'* - 2 Button : btnDemarrer, btnStop
'* - 2 Timer : tmrChronometrage, tmrHeureSysteme
'*
'**************************************************************
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Code généré par le Concepteur Windows Form "
Private Sub btnDemarrer_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnDemarrer.Click
'Affiche l'heure au moment du clik sur btnStop sur lblTempsDepart
lblTempsDepart.Text = TimeOfDay
'Affecte une chaine de caractères vide à lblTempsArrive
'Note : Nothing est équivalent à ""
lblTempsArrive.Text = Nothing
'Affiche btnStop et masque btn Demarrer
btnStop.Visible = True
btnDemarrer.Visible = False
'Valide tmrChronometrage
tmrChronometrage.Enabled = True
End Sub
Private Sub btnStop_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnStop.Click
'Désactive tmrChronometrage
tmrChronometrage.Enabled = False
'Affiche l'heure au moment du clik sur btnStop sur lblTempsArrive
lblTempsArrive.Text = TimeOfDay
'Déclaration des variable
'TimeSpan est un ecart de temps
Dim TempsDeDepart As New System.DateTime()
Dim TempsDArrive As New System.DateTime()
Dim TempsEcoule As New TimeSpan()
TempsDeDepart = lblTempsDepart.Text
TempsDArrive = lblTempsArrive.Text
'Subtract pertmet de soustraire 2 dates ou temps
TempsEcoule = TempsDArrive.Subtract(TempsDeDepart)
'Convertit la variable en chaine de caractères
'pour pouvoir l'afficher sur le label
lblTempsEcoule.Text = TempsEcoule.ToString
'Masque btnStop et affiche btnDemarrer
btnStop.Visible = False
btnDemarrer.Visible = True
End Sub
Private Sub tmrHeureSysteme_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles tmrHeureSysteme.Tick
'Affiche l'heure du systeme réactualisée a chaque coup du timer
'Sur lblHeureSysteme
lblHeureSysteme.Text = TimeOfDay
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
'Masque le bouton btnStop au chargement de l'application
btnStop.Visible = False
End Sub
'Cette fonction sert à indiquer "en temps réel" la valeur du chronometrage
Private Sub tmrChronometrage_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles tmrChronometrage.Tick
Dim TempsDeDepart As New System.DateTime()
Dim TempsSysteme As New System.DateTime()
Dim TempsEcoule As New TimeSpan()
TempsDeDepart = lblTempsDepart.Text
TempsSysteme = lblHeureSysteme.Text
TempsEcoule = TempsSysteme.Subtract(TempsDeDepart)
lblTempsEcoule.Text = TempsEcoule.ToString
End Sub
End Class
17 juil. 2009 à 12:50
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.