Discussion :

[Girzi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[Mr6]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;
}

[Jedai]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

--
Jedaï

[Girzi]

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

[Jedai]

Tapes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Girzi]

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