[Delphi] Comment créer un chronomètre

Comment créer un chronomètre [Delphi] - Delphi/Pascal - Programmation

Marsh Posté le 29-05-2002 à 20:41:06    

Un chrini en min + secondes qui sera remise a zero a chaque pressions sur un bouton.
 
J'ai beau avoir cherché mais c que des trucs pour l'horloge, temps cd etc que g trouvé  :(

Reply

Marsh Posté le 29-05-2002 à 20:41:06   

Reply

Marsh Posté le 29-05-2002 à 22:32:12    

regarde du coté de GetTickCount
 
genre :
 
Start := GetTickCount;
 
....
Finish := GetTickCount;
 
Elapsed := Finish - Start; // tout est en ms
 
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-05-2002 à 01:12:28    

ok thx je v voir ca
 
 :hello:

Reply

Marsh Posté le 30-05-2002 à 01:23:46    

Hmm moi je verrais plutôt un timer toute les secondes qui incrémentevune variable secondes.
 
Tu affiche ça sur un label et chaque fois que les secondes sont plus grandes que 59, tu remets à 0 et tu incrémente une variables minutes.
 
Tu affiche le tout et c'est ok !
 
a+
 
Darx

Reply

Marsh Posté le 30-05-2002 à 01:24:18    

Si tu veux le code, dis moi je te le met sur un site

Reply

Marsh Posté le 30-05-2002 à 02:29:13    

Darxmurf a écrit a écrit :

Hmm moi je verrais plutôt un timer toute les secondes qui incrémentevune variable secondes.




 
 :pt1cable:  
 
Programmation gros bourrin détectée  :D


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 11:21:10    

vi je veux bien voir le code  :D

Reply

Marsh Posté le 30-05-2002 à 16:42:25    

Zion a écrit a écrit :

 
 
 :pt1cable:  
 
Programmation gros bourrin détectée  :D  




 
Hmmm et tu pensait faire comment alors ?


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 16:55:40    

je ne vois pas pourquoi ça serait de la programmation gros bourrin.....
 
borland a plus fait ses preuves que toi, j'en suis certain  

Zion a écrit a écrit :

 
 
 :pt1cable:  
 
Programmation gros bourrin détectée  :D  




---------------
Borland rulez: http://pages.infinit.net/borland
Reply

Marsh Posté le 30-05-2002 à 17:03:10    

os2 a écrit a écrit :

je ne vois pas pourquoi ça serait de la programmation gros bourrin.....
 
borland a plus fait ses preuves que toi, j'en suis certain  
 




 
Et la solution a été donnée par poire, si ca t'amuses vraiment de foutre un timer à la con pour ca, c'est tant mieux, mais j'apelle ca de la programmation gros bourrin...  
 
Et j'ai pas besoin de te donner de preuve de ce que je vaux, je n'ai fait que 260 composants pour la communauté opensource et quelques dizaines d'experts pour delphi...  
 
Et pour ta peine, le timer c'est pas borland qui l'a écrit gros malin, la plupart des composants borland ce ne sont que des interfaces pour les apis de microsoft...
 
Va dormir il est t emps  :fuck:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 17:03:10   

Reply

Marsh Posté le 30-05-2002 à 17:09:05    

Zion a écrit a écrit :

 
 
Et la solution a été donnée par poire, si ca t'amuses vraiment de foutre un timer à la con pour ca, c'est tant mieux, mais j'apelle ca de la programmation gros bourrin...  
 
Et j'ai pas besoin de te donner de preuve de ce que je vaux, je n'ai fait que 260 composants pour la communauté opensource et quelques dizaines d'experts pour delphi...  
 
Et pour ta peine, le timer c'est pas borland qui l'a écrit gros malin, la plupart des composants borland ce ne sont que des interfaces pour les apis de microsoft...
 
Va dormir il est t emps  :fuck:  




 
Euuuuh oui mais pour aller lire le GetTickCount, lorsque tu clique sur le bouton je peux comprendre mais après, comment tu fais pour que ça se repette toute les secondes ? GetTickCount renvoie simplement le temps depuis combien windows est lancé, la fonction ne s'execute pas automatiquement.
 
alysum : pour le code avec le timer :  
http://www.quad-resistance.com/compteur.zip
 
a++
 
Darx


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 17:12:11    

Si cette fonction la te plait pas tu stockes juste le temps du genre
 
Machin := Now;
 
tu inclus DateUtils et tu auras ton résultat avec
SecondsBetween(Now,Machin);
 
Et voila...


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 17:13:23    

Soit dit en passant, tu as pas précisé que tu voulais afficher le temps qui s'écoule... On dirait que oui.
 
Alors utilise un timer  :lol:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 17:14:04    

oui mais pour ça il te faut un timer quand même non ? pour appeler machin := now


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 17:14:07    

ou un while avec un gettickcount dedans [:superpusso]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 30-05-2002 à 17:16:38    

antp a écrit a écrit :

ou un while avec un gettickcount dedans [:superpusso]  




 
Un thread alors  :lol:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 17:18:32    

je sens qu'on va finir comme le mec qui voulais un .exe qui lancait un autre .exe mais pas un racourci ni un .bat enfin bon... voir vieux topic... :D
 
Ceci di il me semble plus simple le timer mais bon...
 
a++
 
Darx


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 17:21:22    

Ceci dit, si tu veux un chronomètre qui affiche aussi les centièmes ou dixièmes de secondes, oublie vite le timer et passe au thread  ;)


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 17:23:06    

oui bon ça on est d'accord mais pour un truc avec secondes...


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 17:34:07    

Euh, t'as toujours pas recomposé la solution  :ouch:  
 
Tu ajoutes DateUtils dans les uses, un timer toutes les secondes
 
tu initialises une jolies variables
Debut := Now;  
 
et dans ton timer tu affiches
 
SecondsBetween(Debut,Now);
 
Si tu veux le refoutre à 0, suffit de refaire Debut := Now;
 
Si ca va toujours pas faut s'inquiéter  :D


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 18:31:11    

allez explique pourquoi t'appele ça de la "programmation gros bourrin" car ta pas donné trop trop d'argument...... surtout pour un gars qui a 260 composants......
 
"Et j'ai pas besoin de te donner de preuve de ce que je vaux, je n'ai fait que 260 composants pour la communauté opensource et quelques dizaines d'experts pour delphi... "
 
pourquoi avoir écrit ça?
tu essayes de te penser bon?
vraiment sur la défense le mec pour écrire ça
même si t'en aurais écrit 8454 composants ça prouve quoi?
ça montre juste que tu t'intéresses à la création de composant...
 
tu peux écrire des compo sans être un gourou de delphi
 
même si borland n'a fait qu'utiliser les api windows, ça reste qu'il ont créer les interfaces pour.... et que c'est utilisé par des millions de gens.... donc ça être pas trop mal
 

Zion a écrit a écrit :

 
 
Et la solution a été donnée par poire, si ca t'amuses vraiment de foutre un timer à la con pour ca, c'est tant mieux, mais j'apelle ca de la programmation gros bourrin...  
 
Et j'ai pas besoin de te donner de preuve de ce que je vaux, je n'ai fait que 260 composants pour la communauté opensource et quelques dizaines d'experts pour delphi...  
 
Et pour ta peine, le timer c'est pas borland qui l'a écrit gros malin, la plupart des composants borland ce ne sont que des interfaces pour les apis de microsoft...
 
Va dormir il est t emps  :fuck:  



 

[jfdsdjhfuetppo]--Message édité par os2 le 30-05-2002 à 18:33:06--[/jfdsdjhfuetppo]


---------------
Borland rulez: http://pages.infinit.net/borland
Reply

Marsh Posté le 30-05-2002 à 18:35:56    

darxmurf  
Merci bcp  :jap:

Reply

Marsh Posté le 30-05-2002 à 18:37:19    

Yeah, je commence à t'aimer toi  :D  
 
C'est lourd parce que ca bouffe un handle, des ressources et que si tu fous un timer pour tout ce que tu as vraiment envie sans réfléchir, c'est pas étonnant que de pauvres mecs sur leur windows 95 ils pleurent qu'ils savent pas lancer ICQ  :p  
 
Tu me fais penser à un ex programmeur VB  :fuck:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 18:41:02    

En quel version de delphi a ete developpe le code?
c est normal que les commentaires et le style ne soit pas en anglais?
 
@->--

Reply

Marsh Posté le 30-05-2002 à 18:50:00    

réponse de mec qui crache sur tout et croit tout connaitre...
ça on en voit souvent dans les formation d'informatique
 
ta toujours des commentaires très intéressant.....
vraiment très professionnel pour un gars qui à des centaines de composants à son actif
 

Zion a écrit a écrit :

Yeah, je commence à t'aimer toi  :D  
 
C'est lourd parce que ca bouffe un handle, des ressources et que si tu fous un timer pour tout ce que tu as vraiment envie sans réfléchir, c'est pas étonnant que de pauvres mecs sur leur windows 95 ils pleurent qu'ils savent pas lancer ICQ  :p  
 
Tu me fais penser à un ex programmeur VB  :fuck:  




---------------
Borland rulez: http://pages.infinit.net/borland
Reply

Marsh Posté le 30-05-2002 à 18:50:36    

Bonne ambiance ici je vois  :(  
 
en prog y a jamais qu'1 solution et le départ été pas super précis.... moi je pensais pas qu'il voulait avoir le temps réel qui s'écoule (sinon un now ds un timer comme à dit Zion C bon)
Tu peux aussi foutre le GetTickCount ds un timer...
Ou le mettre ds un thread qui tourne en boucle....
 
(en passant  :jap: Zion :jap: )
 :hello:


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-05-2002 à 18:53:15    

os2 a écrit a écrit :

réponse de mec qui crache sur tout et croit tout connaitre...
ça on en voit souvent dans les formation d'informatique
 
ta toujours des commentaires très intéressant.....
vraiment très professionnel pour un gars qui à des centaines de composants à son actif




 
Réponds sur le fond alors plutot que de critiquer ma facon de répondre...
 
Quand on attaque le mec directement c'est qu'on est vraiment a court d'arguments, ca aura pas été trop long...
 
Poire>Euh, y a que os2 qui s'énerve, je m'amuse bien moi  [:youpi]


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 18:57:16    

darxmurf  
 
Ya un pb lors de l'ouverture "Error creating form: Invalid Stream Format" (Version ? J'ai la 4)

Reply

Marsh Posté le 30-05-2002 à 19:06:23    

Pareil pour moi !
Je pense pas que ce siot un probleme de le refaire en 5 5
avec delphi 4
le program et court et la forme est tres simple!
 
@->--  :pt1cable:  
 
PS: c est vrai que l ambiance commence a etre ******** !

Reply

Marsh Posté le 30-05-2002 à 19:39:28    

Hoy, j'ai fais ça sous Delphi 5, si vous voulez je peux le faire en pascal :D mouarf :) mais sans timer :)
 
A part ça, Zion, j'ai pas cherché à le refaire en fait, je pense que ça ne va pas changer grand chose au programme. Mais bon si il veut absolument une autre version, je peux le faire...


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 19:42:53    

A part ça, c'est marrant comme vous arrivez a vous foutre sur la gueule pour 1 timer et 3 variables...  j'imagine même pas pour un programme complexe ce que ça peut donner... :( ceci dit, c'est Zion qui a lancé l'assault un peu... :)


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 30-05-2002 à 20:05:44    

darxmurf a écrit a écrit :

A part ça, c'est marrant comme vous arrivez a vous foutre sur la gueule pour 1 timer et 3 variables...  j'imagine même pas pour un programme complexe ce que ça peut donner... :( ceci dit, c'est Zion qui a lancé l'assault un peu... :)  




 
Benh oui, comme sur le topic java, mais je m'attendais pas à ce que quelqu'un répondre... On dirait que si  :D  
 
Faudrait une catégorie troll  :ange:


---------------
Informaticien.be - Lancez des défis à vos amis
Reply

Marsh Posté le 30-05-2002 à 20:06:09    

darxmurf a écrit a écrit :

A part ça, c'est marrant comme vous arrivez a vous foutre sur la gueule pour 1 timer et 3 variables...  j'imagine même pas pour un programme complexe ce que ça peut donner... :( ceci dit, c'est Zion qui a lancé l'assault un peu... :)  




 
suis pas dac... il a émis un avis C Os2 qui est partit au quart de tour.....


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-05-2002 à 20:12:04    

Mouais bon ... la réponse était un peu sèche mais bon... y avait un smile à la fin :) :D :lol: ;) :p


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed