Compteur vb avec l'object timer

Commenter

Contenu du snippet

Déclarer les 4 variables dans les déclarations générales (publique). Copier le code dans une "Form". Ajouter un controle Timer() "Timer1" et un Editbox qui sera "Text1". L'interval du Timer1 doit etre a 10. Le tour est joué !

Source / Exemple : 


Declaration explicite

Dim Ms As Integer
Dim Sec As Integer
Dim Mn As Integer
Dim Hr As Integer

------------------------------------------------

Private Sub Timer1_Timer()

Ms = Ms + 1
  If Ms = 100 Then
  Sec = Sec + 1
  If Sec = 60 Then
    Sec = 0
    Mn = Mn + 1
    If Mn = 60 Then
      Hr = Hr + 1
      If Hr = 24 Then Hr = 0
    End If
  End If
End If
Text1.Text = Format(Hr, "00") & ":" & Format(Mn, "00") & ":" & Format(Sec, "00") & ":" & Format(Ms,"00")

End Sub

Conclusion :


Pour plus d'information, xiznogoodx@hotmail.com

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.