Chronometre / compte a rebours *10

Soyez le premier à donner votre avis sur cette source.

Vue 18 369 fois - Téléchargée 1 412 fois

Description

Ce compte a rebours / Chronomètre vous permet de mesurer le temps que prennent vos taches.
Vous écrivez la tache a mesurer, et Start!
Cela peux être utilisé pour plein d'autres choses, comme faire une course entre deux escargots, ou mesurer le temps que prend votre sourie pour bouger par la pensée :)

Conclusion :


Pour l'instant, il n'y a pas l'air d'y avoir de bugs, a part mettre un script pour vérifier le temps choisi pour le compte à rebours.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

LeDOC666
Messages postés
4
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
16 mars 2007
-
Q - For msg:=0 to Form1.ComponentCount-1 do
If (Form1.Components[msg+1] is TButton ) then //Tu avais oublié le "+1"

R - En fait je ne l'avait pas oublié, mais dans le code original que tu m'avai donné, il y etait pas :)

Q - TButton(Form1.Components[msg]).Click; // Paramètres en trop : voir message de l'IDE//

R - C'est justement la que ca coince :/

Q - Dernier beug que je te laisse solutionner ^^ :si tu fais cela tu vas appeler le bouton qui lance cette boucle : ainsi tu auras une boucle infinie. Il faut donc que tu rajoute une condition en plus.

R - la condition était si j = 1
japee
Messages postés
1708
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
5 octobre 2019
1 -
@ LeDOC666 :

Pour cliquer les Buttons de 1 à 10, je te conseille d'essayer plutôt ceci :

var i: Integer;
begin
for i := 1 to 10 do
TButton(FindComponent(Format('Button%d', [i]))).Click;
end;

Ca t'évitera toute complication, étant donné qu'il y a d'autres boutons sur la fiche, et d'avoir à jouer sur les Button.Tag et Button.Name.

Bonne prog' :p
Francky23012301
Messages postés
411
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
11 février 2016
1 -
Salut : tu as trois erreurs dans ton code.

For msg:=0 to Form1.ComponentCount-1 do
If (Form1.Components[msg+1] is TButton ) then //Tu avais oublié le "+1"
TButton(Form1.Components[msg]).Click; // Paramètres en trop : voir message de l'IDE//

Dernier beug que je te laisse solutionner ^^ :si tu fais cela tu vas appeler le bouton qui lance cette boucle : ainsi tu auras une boucle infinie. Il faut donc que tu rajoute une condition en plus.

@+
LeDOC666
Messages postés
4
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
16 mars 2007
-
J'aai fait quelques modifications sur le zip, et sur l'optimisation du code.
Par contre j'arrive pas a simplifier la partie:


Button1Click(Sender);
Button2Click(Sender);
Button3Click(Sender);
Button4Click(Sender);
Button5Click(Sender);
Button6Click(Sender);
Button7Click(Sender);
Button8Click(Sender);
Button9Click(Sender);
Button10Click(Sender);

par For msg:=0 to Form1.ComponentCount-1 do
If (Form1.Components[msg] is TButton ) then
TButton(Form1.Components[msg]).Click(Sender); // C'est la que ca coince :/
lgrfranck
Messages postés
3
Date d'inscription
samedi 4 janvier 2003
Statut
Membre
Dernière intervention
7 mars 2007
-
Bonjours , j'ai ecris un progamme pour aider a la création d'un fichier ZIP pour la parrution
d' une source "DPZ CRÉATION D'UN FICHIER ZIP DE VOTRE PROJET"

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.