Discussion :

[Slippers]

Bonjour a tous, pour ceux qui s y connaisse un peu en module tk j ai une petite qt =).

Mon probleme survient car j y divise mon programme en librairie, j ai mis d un cote la partie avec les modules tk (le mode graphique) et de l autre cote les differente fonction.

Je n arrive pas a faire passer les variables recuperees par les modules de l autre cote.

Je me doute que c pas tres claire, donc je fais un ptit exemple:

Mode graphique:

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
 
use Tk ;
require 'C:\Documents and Settings\Administrator\My Documents\Perl\prog\interface graphique\recup-device.pl';
 
 
# Programme principal
 
$fenetre = new MainWindow ( ) ;
$fenetre -> title ( "Application 11" ) ;
 
$message = $fenetre -> Label ( -text => "" ) ;
$zone_saisie = $fenetre -> Entry ( ) ;
$btn_modif = $fenetre -> Button ( -text => 'Répercuter' , -command => \&Repercuter ) ;
$btn_quitter = $fenetre -> Button ( -text => 'Quitter' , -command => \&QuitterApplication ) ;
 
$message -> pack ( ) ;
$zone_saisie -> pack ( ) ;
$btn_modif -> pack ( ) ;
$btn_quitter -> pack ( ) ;
 
MainLoop ( ) ;

Partie des fonctions:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub QuitterApplication
{
  exit ( 0 ) ;
}
sub Repercuter
{
  my ( $texte ) ;
my  $texte = $zone_saisie -> get ( ) ;
my  $message -> configure ( -text => $texte ) ;
}
1;

Donc il faudrait que la fonction Repercuter recupere le Get par exemple, j avais pense mettre les arguments derriere ms ca fonctionne pas (ex: command => \&Repercuter(get()) )

[djibril]

tu devrais appeler ton script recup-device.pl recup-device.pm
et ensuite dans ton programme principal faire :

Code :

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

1
2
3
 
use lib 'C:\Documents and Settings\Administrator\My Documents\Perl\prog\interface graphique';
use recup-device;

voilà

[Slippers]

Youhouuuuu ca fonctionne j te ferai presque un bisou tiens lol
Grand merci =)

[djibril]

content for you
petit taq resolu!

[Slippers]

La lib fonctionne bien sauf si j utilise un use strict c normal, ou je fais uen faute ?

[djibril]

t'as quoi comme message d'erreur avec use strict?