Chrono + Label + Tk

Bonjour,
J'ai voulu coder comme un genre de chrono, c'est a dire on voit : 1, et apres est écrase par 2, et puis 3.
J'ai utilise un Label et une boucle :

Code:

---

1 2 3 4

while ($x != 999){ $label -> configure(-text => '$x'); $x++ }

---

Seulement, On ne voit pas cette affichage de 1, 2, 3 comme sur une montre :(

Je dois faire comment pour le voir ? (comme pour les secondes d'une montre je veux dire par exe : 56, puis c'est ecrase par 57 puis ecrasé par 58, mais on doit le voir )

Merci bcp pour votre aide !!

bah.... je ne maitrise pas bien Tk, donc moi je ferais un truc du style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

while ($x != 999) { &affiche_chrono($x); $x++ }   sub affiche_chrono { my $x = $_[0]; $aff = $mw->Toplevel(); $aff->Label(-text => "$x")->pack; }

---

Pour programmer des événement avec Tk, il faut utiliser Tk::after (regarde la doc). Il te suffit de faire un :

Code:

---

$widget->repeat(1000, sub {$label -> configure(-text => $x++)});

---

Avec $x et $label déclaré préalablement.

--
Jedaï

Salut merci pour ta réponse !
Mais ou ce trouve cette fameuse documentation :S ?

Tapes :

Code:

---

perldoc Tk::after

---

en ligne de commande.
Et n'oublie pas qu'on a aussi une FAQ Perl sur ce site.
'perldoc perldoc' peut t'intéresser aussi...

(Et sois un peu plus autonome : sous Linux tu aurais pu taper 'man perl' pour trouver des explications sur perldoc et sous Windows ActivePerl installe un raccourci vers la doc en HTML...)

--
Jedaï

J'ai mis exactement ton code :

$widget->repeat(1000, sub {$label -> configure(-text => $x++)});
Mais ca plante :-(

J'ai mon

$aff = $fenetre -> Label() -> grid(-row => '4', -columnspan => '2');

puis ma boucle

while($x != 500){

// Opérations

$x++;
[FONT=monospace]$fenetre->repeat(50, sub {$aff -> configure(-text => $x++)});
[/FONT]}

Quesqui va pas ?
Merci pour ton aide

Au lieu de nous mettre des petits bout de code hors contexte, tu devrais nous donner un programme minimal reproduisant le problème (habituellement tu t'aperçois de ton erreur en faisant ça de toute façon). Et n'oublie pas les balises code !!

Voici un mini-exemple qui marche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl -w use Tk; use strict;   my $mw = MainWindow->new;   my $i = 1; my $lab = $mw->Label(-text => $i ); $lab->pack;   $lab->repeat( 1000, sub {$lab->configure( -text => ++$i)});   MainLoop;

---

--
Jedaï

Salut,
Merci pour tes réponses, mais ce n'etait pas exactement ce que je voulais dire. Je vais essayer de m'exxpliquer le mieux possible.

- Mon Programme est une boucle qui fait tout le temps la meme requetes :

Code:

---

1 2 3 4

while($x != 999){ // la requete $x++; }

---

Ce que je veux qui soit afficher, c'est le nombre de requetes que le programme a réalisé, qu'on le voit, avec un simple print $x; ca fonctionne, mais dans la console ! Ce que je veux c'est que ca le fasse dans l'interface Tkinter, et que ca ecrase chaques fois le chiffre précedent au lieu de un a la suit comme dans la console.
Voila j'ai essayé d'être le plus clair possible.

Merci à toi.

Là, c'est un peu plus dur... (ça serait bien de poser directement la vraie question plutôt que d'essayer de deviner ce que ton programme devrait faire en interne, parce qu'on se trompe souvent !)

Il faut utiliser la fonction DoOneEvent() pour rendre le contrôle à la boucle d'évènement de Tk de temps en temps, voici un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl -w use Tk; use strict;   my $mw = MainWindow->new;   my $i = 1; my $lab = $mw->Label(-text => $i ); $lab->pack;   $lab->after( 1000, sub { while( $i < 2000 ){ foreach $_ ( 0.. $i * 10 ){ print $i; } $lab->configure( -text => ++$i); DoOneEvent(); } });   MainLoop;

---

--
Jedaï

Super ! On approche :)
Maintenant le truc c'est que le temps défini dans after (1000), j'aimerais qu'il soit défini par la vitesse du script. La Vitesse D'execution de la requetes.
Il y a moyen ?

En tout cas merci pour ton aide :D

Le after ne provoque qu'une seule exécution, dans mon exemple il n'est là que pour faire en sorte que la fonction ne soit exécutée qu'après qu'on ait lancé la boucle évènementielle de Tk par le MainLoop() (tu pourrais aussi bien faire after (1, ...) d'ailleurs, il s'agit juste de l'intervalle en ms entre le début de MainLoop() et le début de l'exécution de la fonction). J'imagine que dans ton application, ton calcul est entamé par l'appui sur un bouton ou un truc comme ça, non ? Dans ce cas pas de problème, à partir du moment où la fonction contenant ta boucle sera exécuté dans la boucle évènementielle de Tk.

--
Jedaï