Perl

Probleme d'affichage perl/tk

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme d'affichage perl/tk

Mikadodouce

Bonjour,

J'ai un ti problème pour afficher un label. J'aimerais afficher un Label disant "Traitement en cours veuillez patienter" puis en meme temps faire un ping puis afficher le résultat. Le problème c'est qu'au lieu d'afficher mon label puis de faire le traitement, il me fait le traitement du ping et une fois fini il m'affiche mon label ainsi que mon résultat. J'ai déja essayé pas mal de choses mais rien n'y fait .

Code :

sub fonc_stat {
$txtattente = $mw->Label(-text=> "Traitement en cours veuillez patienter...", -font=>15)->place(-x=>250, -y=>175);
my @argent=@_;
$connecte=0;
$nonconnecte=0;
open(FILE,"C:/Perl/bin/$argent[0]" ) || die ("Erreur d'ouverture du fichier" );
while (<FILE> ) {
$host = $_;
$toto = system("ping -n 1 ".$host);
if ($toto==0) {
$connecte++;
}
else {
$nonconnecte++;
}
}
print "Il y a $connecte pc d allumes et $nonconnecte pc d eteints";
close(FILE);
}

Merci d'avance.

Publicité

Mikadodouce

Personne?

gilou

Modérateur
Modosaurus Rex

C'est normal:
Comme tu peux le voir sur cet exemple, tu crées les objets tk, mais il ne sont affichés que lors de l'execution de la main loop.

Code :

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello HFR! [GUI Mode]" ) -> pack();
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit }) -> pack();
printf("Hello HFR! [Text Mode]\n" );
sleep(4);
MainLoop;

Par contre, si tu met le code que tu veux executer comme dans callback appellé par ton objet tk, tu auras execution apres l'affichage:

Code :

#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello HFR! [GUI Mode]" ) -> pack();
my $button = $mw -> Button(-text => "Quit",
-command => sub { exit }) -> pack();
$mw->after(4000, \&testProgram);
MainLoop;
sub testProgram {
printf("Hello HFR! [Text Mode]\n" );
}

Ici, "Hello HFR! [Text Mode]" s'affiche 4s apres l'affichage de la fenetre.
Tu vois le principe.

A+,

Message édité par gilou le 17-06-2008 à 20:49:16

---------------
There's more than what can be linked! -- Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻

Mikadodouce

Merci gilou

FORUM HardWare.fr

Programmation

Perl

Probleme d'affichage perl/tk

Sujets relatifs
problème connexion base de données oracle	[Résolu] Affichage alterné 50% / 50%
[résolu] OVH probleme set_include_path()	[VBA] Probleme sur une macro
[C] Probleme types de variables - Debutant	Ajouter un espace ds un script perl sous Windows
Problème programmation C++	Problème avec 2 fonctions en meme temps.
Problème d'affichage en PERL sous UNIX	[Perl CGI] Problème d'affichage
Plus de sujets relatifs à : Probleme d'affichage perl/tk

Page générée en 0.055 secondes