CHRONOS V2.0

cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 - 30 déc. 2003 à 12:44
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 16 janv. 2006 à 12:51

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/19090-chronos-v2-0

EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 2
16 janv. 2006 à 12:51

Dommage, ca aurait pu etre sympa mais le temps donné est totalement faux (sur ma config en tout cas), car 1 secondes correspond au moins a plus de deux secondes sur ma becane

Il faut utiliser GetTickCount comme le dit Max12...

Seamless Messages postés 61 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 21 novembre 2004
11 janv. 2004 à 09:17

Lactobact
J'ai juste mis une form a propos de. Le bouton système y était automatiquement.
Voila

:.Seamless.:

Lactobact Messages postés 7 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 10 janvier 2004
10 janv. 2004 à 13:27

Salut Seamless,

Je me demandais juste ce que venait faire le bouton "System Info..." parceque si ton ordi arrive a afficher les infos du système c'est que ton chronomètre marche forcément aussi, mais bon c'est a toi de savoir...

A+
Lactobact

cs_max12 Messages postés 1491 Date d'inscription dimanche 19 novembre 2000 Statut Modérateur Dernière intervention 7 juillet 2014
31 déc. 2003 à 23:25

C'est impossible que sa fonctionne correctement, si tu veux faire un timer un tantinet précis utilise GetTickCount. Avec des Timers sa sera pas parfait de plus on vois une différence a 9x et 2k/XP alors ...

Seamless Messages postés 61 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 21 novembre 2004
31 déc. 2003 à 10:43

Voila la mise a jour
Je remercie encore radada et Renfield pour leur grande aide.

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
30 déc. 2003 à 23:54

Attention ! dans la procédure AfficheTemps , les backslaches ont été enlevés lors de l'envoi....

Private Sub AfficheTemps()
Text4.Text = Format(Temps \ 360000, "00")
Text3.Text = Format(Temps \ 6000 Mod 60, "00")
Text2.Text = Format(Temps \ 100 Mod 60, "00")
Text1.Text = Format(Temps Mod 100, "00")
End Sub

Seamless Messages postés 61 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 21 novembre 2004
30 déc. 2003 à 22:34

Merci pour vos commentaires (pour moi chaque commentaire m'aide). J'avoue qu'il y a des erreurs mais je vais mettre tous dans une mise a jour.

Merci encore
:.Seamless.:

cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 1
30 déc. 2003 à 18:41

Restez souples les gars, c'est une de ses premières sources, ça sert à rien de se moquer!!! Aidez le plutôt, comme l'a fait Renfield... Enfin, c'est vous qui voyez, c pas à moi de décider. Mais c'est en faisant des erreurs que l'on progresse, chose que ceux qui ne se trompent jamais ne connaissent pas... (la progression) : ((

Utilisateur anonyme
30 déc. 2003 à 18:34

C'est d'une rare imprécision !!!!! BRAVO (<== Ironique)...
En effet le label des minutes est passé à 1 quand celui des secondes avait dépassé 60 de 20 secondes !!!!!

TOP (<== une fois encore!!)

Change rapido ton code (question d'honeur) celui de reinfield semble plus orthodoxe, si tu vois ce que je veux dire...

@++, je ne note pas...

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
30 déc. 2003 à 13:52

J'ai nu peu peur, avec tous ces Timers.... des fois qu'il soit pas synchro.... ce n'est pas un chrono de précision, mais bon... ;-)

j'ai modifié (juste un peu) le code.
j'ai enlevé 3 Timers et le bouton2

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

Option Explicit

Dim Temps As Long

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
Command1.Caption = IIf(Timer1.Enabled, "Arreter", "Commencer")
End Sub

Private Sub Command3_Click()
Temps = 0
AfficheTemps
End Sub

Private Sub mnuapropos_Click(Index As Integer)
frmAbout.Show
End Sub

Private Sub mnuarreter_Click(Index As Integer)
Timer1.Enabled = False
End Sub

Private Sub mnucommencer_Click(Index As Integer)
Timer1.Enabled = True
End Sub

Private Sub mnuremettre_Click(Index As Integer)
Temps = 0
AfficheTemps
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1
Temps = Temps + 1
AfficheTemps
End Sub

Private Sub AfficheTemps()
Text4.Text = Format(Temps 360000, "00")
Text3.Text = Format(Temps 6000 Mod 60, "00")
Text2.Text = Format(Temps 100 Mod 60, "00")
Text1.Text = Format(Temps Mod 100, "00")
End Sub

Seamless Messages postés 61 Date d'inscription samedi 7 juin 2003 Statut Membre Dernière intervention 21 novembre 2004
30 déc. 2003 à 12:56

Merci radada
Je prend note de tous ce que tu m'a dit. Dans la mise a jour je mettrai tous sa .

Merci encore pour tes commentaires
:.Seamless.:

cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 1
30 déc. 2003 à 12:44

C'est pas mal. Je ferai juste 2 ou 3 petits trucs :
1°) faire des groupes d'objets pour les timers et les textbox
2°) mettre certaines propriétés à tes textbox pour faire + chronos, à savoir :
Alignement -> center
Appearance -> flat
BackColor -> bordure de fenêtre active
BorderStyle -> none
locked -> true (pour éviter d'écrire dedans)

Vala : )

Discussions similaires

Mémoire insufisante ... avec Delphi6 Vers Pro. Win XP Pro /PC

xp et win 98

Anope 1.7.8 (Win Xp)

Utilisation de la librairie WIA avec VB6 sous windows 7/64

Votre réponse

Discussions similaires