Compteur temps en dixième de secondes
cs_steph44
Messages postés
50
Date d'inscription
jeudi 28 novembre 2002
Statut
Membre
Dernière intervention
4 octobre 2010
-
20 juin 2003 à 10:32
Gael26 Messages postés 5 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 23 juin 2003 - 23 juin 2003 à 19:04
Gael26 Messages postés 5 Date d'inscription mercredi 28 mai 2003 Statut Membre Dernière intervention 23 juin 2003 - 23 juin 2003 à 19:04
A voir également:
- Compteur temps en dixième de secondes
- Compteur de jours - Forum PHP
- Créer emploi du temps en ligne - Forum Java
- Compteur de caractère - Forum Visual Basic
- Compteur de caractères en ligne ✓ - Forum C# / .NET
- Gestion d emploi du temps en java - Forum Java
1 réponse
Gael26
Messages postés
5
Date d'inscription
mercredi 28 mai 2003
Statut
Membre
Dernière intervention
23 juin 2003
23 juin 2003 à 19:04
23 juin 2003 à 19:04
-------------------------------
Réponse au message :
-------------------------------
> Je recherche la manière d'afficher dans un compteur de temps la durée avec les dixième de secondes
>>> Tu auras besoin d'un control timer reglé sur interval=100
>>> Et d'un label nommé lblTps
=========================
Dim temps As Integer
Private Sub Timer1_Timer()
temps = temps + 1 'le temps est en dixieme de secondes
minutes = Int(temps / 600)
secondes = Int((temps - (minutes * 600)) / 10)
diziem = temps - minutes * 600 - secondes * 10
If minutes >10 Then minutes Str$(minutes)
If minutes < 10 Then minutes = "0" + Str$(minutes)If minutes 0 Then minutes "00"
If secondes >10 Then secondes Str$(secondes)
If secondes < 10 Then secondes = "0" + Str$(secondes)If secondes 0 Then secondes "00"
If diziem 0 Then diziem "0"
lblTps.Caption = minutes + ":" + secondes + "." + Str$(diziem)
End Sub
=====================
Voila j'ai pas trop le tps j'espere que ca t ora éD. A++
Réponse au message :
-------------------------------
> Je recherche la manière d'afficher dans un compteur de temps la durée avec les dixième de secondes
>>> Tu auras besoin d'un control timer reglé sur interval=100
>>> Et d'un label nommé lblTps
=========================
Dim temps As Integer
Private Sub Timer1_Timer()
temps = temps + 1 'le temps est en dixieme de secondes
minutes = Int(temps / 600)
secondes = Int((temps - (minutes * 600)) / 10)
diziem = temps - minutes * 600 - secondes * 10
If minutes >10 Then minutes Str$(minutes)
If minutes < 10 Then minutes = "0" + Str$(minutes)If minutes 0 Then minutes "00"
If secondes >10 Then secondes Str$(secondes)
If secondes < 10 Then secondes = "0" + Str$(secondes)If secondes 0 Then secondes "00"
If diziem 0 Then diziem "0"
lblTps.Caption = minutes + ":" + secondes + "." + Str$(diziem)
End Sub
=====================
Voila j'ai pas trop le tps j'espere que ca t ora éD. A++