Bonjour,

J'ai écrit le code suivant qui permet de générer une combobox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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 :
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
#!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