CHRONOMÈTRE
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
24 févr. 2003 à 17:59
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 - 25 mai 2005 à 14:01
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 - 25 mai 2005 à 14:01
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6247-chronometre
https://codes-sources.commentcamarche.net/source/6247-chronometre
25 mai 2005 à 14:01
25 mai 2005 à 13:59
Je viens de remqarquer que tu déclare MS , H , M et S en string :|
Merde alors faudrais les déclaré en integer , pas en string , en string c'est du text ...
25 mai 2005 à 11:13
et il faudrait mettre minuterie 6000
24 avril 2004 à 09:31
@+
tomitom07
16 sept. 2003 à 10:09
16 sept. 2003 à 09:11
16 sept. 2003 à 09:07
/////////////////////////////////////////////////
Cet exemple vous montre comment afficher une horloge numérique sur votre formulaire. Un contrôle de type étiquette affiche l'heure définie par l'horloge de votre ordinateur.
Pour essayer cet exemple, ajoutez la procédure événementielle suivante à un formulaire contenant un étiquette intitulée Horloge. Attribuez la valeur 1 000 millisecondes à la propriété IntervalleMinuterie (TimerInterval) pour que votre horloge se mette à l'heure à chaque seconde.
Private Sub Form_Timer()
Horloge.Caption = Time ' Met à jour l'heure.
End Sub
//////////////////////////////////////////////////////////
Donc moi, je créé juste un champs texte appelé "horloge" et dans "intervalle minuterie" de mon formulaire, je mets "1000", j'ai mis également "sur minuterie" sur "procédure événementiel". Et je tape ce bout de code mais ça march pas.
16 sept. 2003 à 08:25
Ensuite tu rajoutes un contrôle text que tu appeles text1 et en dessous de chrono = now-debut tu rajoutes
text1.text = format(chrono,"hh:mm:ss")
15 sept. 2003 à 23:57
25 févr. 2003 à 09:34
N'utilise pas le timer pour faire un chronomètre (enfin, pour ajouter les temps)
La raison est simple :c'est pas préci pour deux ronds. Le timer est un système qui lance un évènement windows régulièrement mais cet évenement n'est éxecuté que lorsque le programme a le temps de le faire.
Lance un mp3 à côté de ton programme est ton chrono devient faux.
Au lieu de cela, utilise toujours le timer mais fait cà
Dim debut as date
Sub Start_Click()
debut = now
timer1.interval = 100
End sub
Sub Timer1_Timer()
Dim chrono As Date
Chrono = Now - Debut
End Sub
et après tu débrouille pour l'affichage.
Le chrono sera précis (aux imprecisions près de l'horloge interne de ta machine bien sûr)
Tu peux aussi utiliser l'api windows TickCount qui compte le nombre de milisecondes depuis le démarrage de ta machine (et qui est donc plus fine que now)
24 févr. 2003 à 17:59
Ps.Ne met pas alarme ds le titre si elle ne fonctionne pas