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
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.