Comme tout bon chronomètre, il calcul le temps écoulé, mais aussi, il permet de calculer le temps de chaque tours. De plus, il insère ces temps dans un listbox que l'on peut visualiser.
Source / Exemple :
' À mettre dans une form1
Private Sub Form_Load()
LblSeconde.Caption = "00"
LblMinute.Caption = "00"
LblHeure.Caption = "00"
LblDixieme.Caption = "00"
LblSecondeL.Caption = "00"
LblMinuteL.Caption = "00"
LblHeureL.Caption = "00"
LblDixiemeL.Caption = "00"
Lap.LstLaps.Clear
End Sub
Private Sub LblDixieme_Change()
If LblDixieme = 100 Then
LblDixieme.Caption = "00"
If (LblSeconde = "00") Or (LblSeconde = "01") Or (LblSeconde = "02") Or (LblSeconde = "03") _
Or (LblSeconde = "04") Or (LblSeconde = "05") Or (LblSeconde = "06") Or (LblSeconde = "07") _
Or (LblSeconde = "08") Then
LblSeconde = "0" & LblSeconde + 1
Else
LblSeconde = LblSeconde + 1
End If
End If
End Sub
Private Sub LblDixiemeL_Change()
If LblDixiemeL = 100 Then
LblDixiemeL.Caption = "00"
If (LblSecondeL = "00") Or (LblSecondeL = "01") Or (LblSecondeL = "02") Or (LblSecondeL = "03") _
Or (LblSecondeL = "04") Or (LblSecondeL = "05") Or (LblSecondeL = "06") Or (LblSecondeL = "07") _
Or (LblSecondeL = "08") Then
LblSecondeL = "0" & LblSecondeL + 1
Else
LblSecondeL = LblSecondeL + 1
End If
End If
End Sub
Private Sub LblMinuteL_Change()
If LblMinuteL = 60 Then
LblMinuteL.Caption = "00"
If (LblHeureL = "00") Or (LblHeureL = "01") Or (LblHeureL = "02") Or (LblHeureL = "03") _
Or (LblHeureL = "04") Or (LblHeureL = "05") Or (LblHeureL = "06") Or (LblHeureL = "07") _
Or (LblHeureL = "08") Then
LblHeureL = "0" & LblHeureL + 1
Else
LblHeureL = LblHeureL + 1
End If
End If
End Sub
Private Sub LblSeconde_Change()
If LblSeconde = 60 Then
LblSeconde.Caption = "00"
If (LblMinute = "00") Or (LblMinute = "01") Or (LblMinute = "02") Or (LblMinute = "03") _
Or (LblMinute = "04") Or (LblMinute = "05") Or (LblMinute = "06") Or (LblMinute = "07") _
Or (LblMinute = "08") Then
LblMinute = "0" & LblMinute + 1
Else
LblMinute = LblMinute + 1
End If
End If
End Sub
Private Sub LblMinute_Change()
If LblMinute = 60 Then
LblMinute.Caption = "00"
If (LblHeure = "00") Or (LblHeure = "01") Or (LblHeure = "02") Or (LblHeure = "03") _
Or (LblHeure = "04") Or (LblHeure = "05") Or (LblHeure = "06") Or (LblHeure = "07") _
Or (LblHeure = "08") Then
LblHeure = "0" & LblHeure + 1
Else
LblHeure = LblHeure + 1
End If
End If
End Sub
Private Sub LblSecondeL_Change()
If LblSecondeL = 60 Then
LblSecondeL.Caption = "00"
If (LblMinuteL = "00") Or (LblMinuteL = "01") Or (LblMinuteL = "02") Or (LblMinuteL = "03") _
Or (LblMinuteL = "04") Or (LblMinuteL = "05") Or (LblMinuteL = "06") Or (LblMinuteL = "07") _
Or (LblMinuteL = "08") Then
LblMinuteL = "0" & LblMinuteL + 1
Else
LblMinuteL = LblMinuteL + 1
End If
End If
End Sub
Private Sub Quit_Click()
End
End Sub
Private Sub Reset_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Reset.Enabled = False
Call Form_Load
End Sub
Private Sub SeeLaps_Click()
Form1.Enabled = False
Lap.Show
End Sub
Private Sub Start_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Start.Enabled = False
Arret.Enabled = True
Reset.Enabled = False
LblHeure = "00"
LblMinute = "00"
LblSeconde = "00"
LblDixieme = "00"
Tours.Enabled = True
End Sub
Private Sub Timer1_Timer()
If (LblDixieme = "00") Or (LblDixieme = "01") Or (LblDixieme = "02") Or (LblDixieme = "03") _
Or (LblDixieme = "04") Or (LblDixieme = "05") Or (LblDixieme = "06") Or (LblDixieme = "07") _
Or (LblDixieme = "08") Then
LblDixieme = "0" & LblDixieme + 1
Else
LblDixieme = LblDixieme + 1
End If
End Sub
Private Sub Arret_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Arret.Enabled = False
Start.Enabled = True
Reset.Enabled = True
SeeLaps.Enabled = True
Lap.LstLaps.AddItem Lap.TxtTours.Text & "- " & LblHeure & ":" & LblMinute & ":" & LblSeconde & "." & LblDixieme
Lap.LstLaps.AddItem "Temps total = " & LblHeureL & ":" & LblMinuteL & ":" & LblSecondeL & "." & LblDixiemeL
End Sub
Private Sub Timer2_Timer()
If (LblDixiemeL = "00") Or (LblDixiemeL = "01") Or (LblDixiemeL = "02") Or (LblDixiemeL = "03") _
Or (LblDixiemeL = "04") Or (LblDixiemeL = "05") Or (LblDixiemeL = "06") Or (LblDixiemeL = "07") _
Or (LblDixiemeL = "08") Then
LblDixiemeL = "0" & LblDixiemeL + 1
Else
LblDixiemeL = LblDixiemeL + 1
End If
End Sub
Private Sub Tours_Click()
Timer1.Enabled = False
Start.Enabled = True
Tours.Enabled = False
Lap.LstLaps.AddItem Lap.TxtTours.Text & "- " & LblHeure & ":" & LblMinute & ":" & LblSeconde & "." & LblDixieme
Lap.TxtTours.Text = Lap.TxtTours.Text + 1
SeeLaps.Enabled = True
Call Start_Click:
End Sub
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.