Discussion :

[jkevin2]

Salut , suis novice dans la programmation avec Tk, j'ai besoin de faire une interface utilisateur avec trois boutons start stop cancel, lorsque j'appuie sur start une référence à une boucle for est lancée; mon problème est de pouvoir arrêter le déroulement de la boucle à tout moment. A l'état actuel dès que je clique sur le start j'ai pas le focus avant la fin de la boucle.Voici un exemple de ce que je veut:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
#!/usr/bin/perl -w
use Tk;
#Paramètres d'entrée
    $depart="";# depart_boucle
    $fin="";#fin_boucle
       #++++++++++++++++++++
       #Programme Principal
       #++++++++++++++++++++
$fen=MainWindow->new(-title=>HP_SCAN);
$texte=$fen->Label(-textvariable=>\$val)->pack;
$texte->Label(-text=>"Problème-Aide")->pack;
$val=1;
 
#Creation d'une liste
$lb=$fen->Listbox()->pack;
$lb->insert(0,"       WWW");
$lb->insert(1,"       DEVELOPPEZ");
$lb->insert(2,"       COM");
 
#Creation de 2 cadres
 
 #Cadre1
 $frame1=$fen->Frame()->pack(-fill=>'both');
  $case1=$frame1->Label(-text=>"Depart")->pack(-side=>"top",-fill=>'x');
  $case1->Entry(-textvariable=>\$depart,-width=>5)->pack(-side=>"right");
  $case2=$frame1->Label(-text=>"Fin")->pack(-side=>"bottom",-fill=>'x');
  $case2->Entry(-textvariable=>\$fin,-width=>5)->pack(-side=>"right");
 
 #Cadre2
 $frame2=$fen->Frame()->pack;
  $frame2->Button(-text=>"Start",-command=>\&HP)->pack(-fill=>'x',-side=>"left");
  $frame2->Button(-text=>"Stop",-command=>\&SP)->pack(-fill=>'x',-side=>"left");
  $frame2->Button(-text=>"Cancel",-command=>sub{exit})->pack(-fill=>'x',-side=>"left");
 
MainLoop;
sub SP{print "OK Merci\n";}
 
sub HP{for($index=$depart;$index<=$fin;$index++)
         {print "C'est un test!\n";
          @tab=(2..4);
          sleep $tab[rand@tab];
          }
       }

Edité par GLDavid. Merci de penser à mettre les balises code

[Jedai]

Il ne faut pas utiliser de sleep() dans une boucle for, mais plutôt le timer inclus dans Tk : Tk::after (en testant un booléen mis à 0 par "Stop").

--
Jedaï

[jkevin2]

j'essaie et je te tiens informer,

[Jedai]

N'essaie pas, fais le !
Blague à part, j'ai déjà utilisé la méthode que je t'ai indiqué et ça marche sans problème, en fait c'est beaucoup plus clair et facile à utiliser que la boucle avec un sleep dedans.

--
Jedaï

[jkevin2]

Il ne faut pas utiliser de sleep() dans une boucle for, mais plutôt le timer inclus dans Tk : Tk::after (en testant un booléen mis à 0 par "Stop").

--
Jedaï

j'ai essayé mais jai pas obtenu ce que je veux, en fait l''exemple de la source que jai donné est simple par rapport à ce que je veux :
- le sleep doit demeurer pour retarder l'affichage de façon aléatoire dans un intervalle de temps défini
- le bouton Stop doit être capable de mettre fin au processus demarré par start (A TOUT MOMENT)!!!!!!!!!!!!!!!!!
Merci