Ubuntu-fr

revebleu

PERL/TK : JCombobox

Bonjour,

J'ai écrit le code suivant qui permet de générer une combobox

use Tk;
  use Tk::JComboBox;

  my $mw = MainWindow->new;
  my $jcb = $mw->JComboBox(
     -choices => [qw/Noir Bleu Vert Rose Rouge Jaune/],
  )->pack;

  MainLoop;

J'ai aussi crée le code suivant qui me permet d'afficher un graphique :

#!usr/bin/perl -w
use strict;

use GD::Graph::bars;

   my @data = (
      ["0", "1", "2", "3", "4", "5", "6"],
      [ 0,  15,  8,  30,  5,  0,  20]
   );
   my $graph = GD::Graph::bars->new(600,400);
   $graph->set(
           x_label           => 'Heure',
           y_label           => 'Nombres de visiteurs',
           title             => 'Affluence selon l\'heure de la
 journée',
   );
my $gd = $graph->plot(\@data);
open(PNG,'>',"monimage.png") or die "Erreur ecriture sur monImage.png:
 $!";
binmode PNG;
print PNG $gd->png;
close PNG;

Je voudrais savoir comment faire pour générer cet histogramme, lorsque
Vert est choisi dans la combobox.

Merci

atoufix

Re : PERL/TK : JCombobox

Il faut que tu attaches au choix vert l'adresse d'une fonction à executer.
$jcb te renvoie ce qui est selectionner à toi de l'interpreter.

atoufix

revebleu

Re : PERL/TK : JCombobox

Merci