Update d'un champs via un bouton

**yzf-r** · 10/03/2010, 14h47

Salut,

Tout d'abord, bravo pour ce forum sur tk, je suis débutant et pas simple d'avoir des infos, des tutos et autres!

Donc, je suis débutant et je tente de créer un petit outils pour le taf, et je plante actuellement sur un point (certainement bateau mais bon).

Voici mon code actuel:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
 
use Tk;
 
$mw = MainWindow -> new();
$mw -> title("BB!");
$mw->geometry("300x100");
 
$b_menu = $mw -> Frame(-relief => 'groove', -borderwidth => 2);
 
$menu_app = $b_menu -> Menubutton (-text => "File",
                                -tearoff => 0,
                                -relief => 'ridge',
                                -menuitems => [
                                                ['command' => "Create new TLSE",-command => \&create_tlse],
                                                ['command' => "Delete TLSE",-command => \&delete_tlse],
                                                ['command' => "Exit",-command => sub {exit;}]
                                              ]
                                );
 
$menu_app -> pack(-side => 'left');
$b_menu -> pack(-side => 'top', -anchor => 'n', -fill => 'x');
 
#Frame containing all TLSE
$all_tlse = $mw -> Frame(-relief => 'raised', -borderwidth => 2) -> pack();
 
$end = $mw -> Label(-relief => 'groove', -text => "2010", -font => '{Garamond} 10') -> pack (-side => 'bottom', -fill => 'both');
 
MainLoop;
 
#---------------------Subfonction------------------------------
 
sub create_tlse {
 
        $tlse_creation = $mw -> Toplevel();
        $tlse_creation_title = $tlse_creation -> Label(-text => "Create a new TLSE") -> pack();
 
        $ent_name = $tlse_creation -> Entry() -> pack();
 
        $valid_button = $tlse_creation -> Button(-text => "Create", command => \&tlse) -> pack(-side => 'left');
        $but_close = $tlse_creation -> Button(-text=> "Close", -command => sub{ destroy $tlse_creation; }) -> pack();
}
 
sub tlse {
 
        #Frame TLSE
        $tlse_name = $all_tlse -> Frame(-relief => 'groove', -borderwidth => 2) -> pack(-side => 'left');
        $name = $ent_name -> get();
 
        #create the entry in the bb file
        $bb_base = "TLSE-data.bb";
        open(FILE,">>$bb_base") or die ("problem to open the bb file.");
        print FILE "\n";
	print FILE $name;
	#By default, at the TLSE creation, the workload is set to 0
	print FILE ";0;";
        close FILE;
 
        $lb_name = $tlse_name -> Label(-text => "$name") -> pack(-side => 'top');
        #By default, at the TLSE creation, the workload is set to 0
        $lb_workload = $tlse_name -> Label(-text => "0") -> pack();
        $minus_button = $tlse_name -> Button(-text => "-", command => \&push_minus) -> pack(-side => 'left');
        $plus_button = $tlse_name -> Button(-text => "+", command => \&push_plus) -> pack(-side => 'right');
}
 
sub push_plus {
}
 
1;

En fait, je souhaiterai via mes boutons + et - faire évoluer la valeur $lb_workload, bien sur en fonction du "TLSE" sur lequel je me trouve (et mettre à jour le fichier en // mais cela je devrais y arriver). J'ai tenté plusieurs choses mais sans succés.

merci par avance

**djibril** · 10/03/2010, 20h01

Voici ton code un peu refait. Pose des questions si besoin

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
#!/usr/bin/perl
use warnings;
use strict;
use Tk;
 
my $mw = MainWindow->new();
$mw->title("BB!");
$mw->geometry("300x100");
 
my $b_menu = $mw->Frame( -relief => 'groove', -borderwidth => 2 );
 
my $menu_app = $b_menu->Menubutton(
  -text      => "File",
  -tearoff   => 0,
  -relief    => 'ridge',
  -menuitems => [
    [ 'command' => "Create new TLSE", -command => \&create_tlse ],
    [ 'command' => "Delete TLSE",     -command => \&delete_tlse ],
    [ 'command' => "Exit",            -command => sub { exit; } ]
  ]
);
 
$menu_app->pack( -side => 'left' );
$b_menu->pack( -side => 'top', -anchor => 'n', -fill => 'x' );
 
#Frame containing all TLSE
my $all_tlse = $mw->Frame( -relief => 'raised', -borderwidth => 2 )->pack();
 
my $end = $mw->Label(
  -relief => 'groove',
  -text   => "2010",
  -font   => '{Garamond} 10'
)->pack( -side => 'bottom', -fill => 'both' );
 
MainLoop;
 
#---------------------Subfonction------------------------------
 
sub create_tlse {
 
  my $tlse_creation = $mw->Toplevel();
  my $tlse_creation_title = $tlse_creation->Label( -text => "Create a new TLSE" )->pack();
 
  my $ent_name = $tlse_creation->Entry()->pack();
 
  my $valid_button = $tlse_creation->Button(
    -text    => "Create",
    -command => [ \&tlse, $ent_name ]
  )->pack( -side => 'left' );
  my $but_close = $tlse_creation->Button(
    -text    => "Close",
    -command => sub { destroy $tlse_creation; }
  )->pack();
 
  return;
}
 
sub tlse {
  my ($ent_name) = @_;
 
  #Frame TLSE
  my $tlse_name = $all_tlse->Frame(
    -relief      => 'groove',
    -borderwidth => 2
  )->pack( -side => 'left' );
  my $name = $ent_name->get();
 
  #create the entry in the bb file
  my $bb_base = "TLSE-data.bb";
  open( FILE, '>>', $bb_base ) or die("problem to open the bb file.");
  print FILE "\n";
  print FILE $name;
 
  #By default, at the TLSE creation, the workload is set to 0
  print FILE ";0;";
  close FILE;
 
  my $lb_name = $tlse_name->Label( -text => "$name" )->pack( -side => 'top' );
 
  #By default, at the TLSE creation, the workload is set to 0
  my $valeur_workload = 0;
  my $lb_workload     = $tlse_name->Label( -textvariable => \$valeur_workload )->pack();
  my $minus_button    = $tlse_name->Button(
    -text    => "-",
    -command => [ \&push_minus, \$valeur_workload ]
  )->pack( -side => 'left' );
  my $plus_button = $tlse_name->Button(
    -text    => "+",
    -command => [ \&push_plus, \$valeur_workload ]
  )->pack( -side => 'right' );
 
  return;
}
 
sub push_minus {
  my ($ref_valeur_workload) = @_;
 
  # deférencement et incrementation
  ${$ref_valeur_workload}--;
 
  return;
}
 
sub push_plus {
  my ($ref_valeur_workload) = @_;
 
  # deférencement et incrementation
  ${$ref_valeur_workload}++;
 
  return;
}

**yzf-r** · 12/03/2010, 09h58

Merci Djibril,

Effectivement, cela fonctionne impec et je comprends bien ce que tu as implémenté.

Par contre, je me pose une question.

Comment identifier mes fenêtres crées afin de pouvoir les supprimer? en effet, je créé les "TLSE" en donnant un nom genre toto, puis titi.

Comment supprimer "titi" par exemple avec une une sous-fonction delete (à partir de mon menu "Delete a TLSE")?
Je voudrais rentrer par exemple titi et la fenêtre titi est supprimé.

En fait, je pensais que pour les push_minus et push_plus, tu allais identifié la fenêtre et ainsi de suite, mais effectivement ce que tu as fait est bcp plus simple.
mais du coup je ne sais pas comment identifier telle ou telle fenêtre.

Par avance merci

**yzf-r** · 15/03/2010, 17h14

Autre question!

J'ai tenté le code suivant pour bloquer la valeur mais cela ne fonctionne pas!
Ou est-ce que je me trompe? Dans le test de la valeur j'imagine

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub push_minus {
  my ($ref_valeur_workload) = @_;
 
  if ($ref_valeur_workload > 0){
        ${$ref_valeur_workload}--;
  }
  elsif ($ref_valeur_workload = 0){
        my $message = $all_tlse->messageBox(-title=>'Message',
                -message=>'The workload could not be negative!');
  }
 
  return;
}

par avance merci

**yzf-r** · 15/03/2010, 17h23

oups, j'ai crié au loup trop vite

j'ai trouvé mes erreurs:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub push_minus {
  my ($ref_valeur_workload) = @_;
 
  if (${$ref_valeur_workload} > 0){
        ${$ref_valeur_workload}--;
  }
  elsif (${$ref_valeur_workload} == 0){
        my $message = $all_tlse->messageBox(-title=>'Message',
                -message=>'The workload could not be negative!');
  }
 
  return;
}

**djibril** · 16/03/2010, 10h30

Si ton problème est résolu, passe ton thread en résolu.

Update d'un champs via un bouton

Interfaces Graphiques Perl

Vue hybride

Discussions similaires

Partager

Partager