Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Chronomètre

5/5 (11 avis)

Vue 8 575 fois - Téléchargée 463 fois

Description

Tout simplement un petit chronomètre, je suis encore un jeune jedi de la programmation alors soyez indulgent, merci !

Source / Exemple :


Dim MS, S, M, H As String

Private Sub Form_Load()
Pause.Enabled = False
MS = "0"
S = "0"
M = "0"
H = "0"
End Sub

Private Sub Retablir_Click()
Image1.Visible = True
Image2.Visible = False
Start.Enabled = True
Pause.Enabled = False
Timer1.Enabled = False
S = "0"
M = "0"
H = "0"
Seconde = "0"
Minute = "0"
Heure = "0"
MilliSeconde = "0"
End Sub

Private Sub Start_Click()
Image1.Visible = False
Image2.Visible = True
Start.Enabled = False
Pause.Enabled = True
Timer1.Enabled = True
Timer1.Interval = 100
End Sub

Private Sub Pause_Click()
Pause.Enabled = False
Image1.Visible = True
Image2.Visible = False
Start.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Seconde = S
Minute = M
Heure = H
MilliSeconde = MS
MS = MS + 100
If MS = 1000 Then
             MS = 0
             S = S + 1
             End If
If M = 60 Then
          M = 0
          H = H + 1
          End If
If H = 24 Then
          H = 0
          End If
End Sub

Codes Sources

A voir également

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.