Bonjour
J'utilise Tk::Graph pour generer des graphiques mais je n'ai pas trouve la methode pour declarer la legende ailleurs qu'en haut, à droite.
Y-a-t'il un moyen pour ca?
Merci
Bonjour
J'utilise Tk::Graph pour generer des graphiques mais je n'ai pas trouve la methode pour declarer la legende ailleurs qu'en haut, à droite.
Y-a-t'il un moyen pour ca?
Merci
Bonjour,
La légende n'est affichable qu'en bas je pense. Il faut revérifier la documentation. quel est ton réel besoin. Sinon, as-tu essayé Tk::chart ?
- Les meilleurs cours et tutoriels Perl et Perl 6 pour vous former ;
- FAQ Perl, Perl 6 et Perl/Tk d'entraide ;
- Les news sur la rubrique Perl ;
- S'abonner au compte Twitter de la rubrique Perl ;
- Mes tutoriels developpez.com.
Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !
Je souhaite creer un outil de surveillance d'un serveur qui affiche les courbes de differents compteurs.
Comme j'ai plusieurs compteurs, la legende deborde sur les courbes (cf piece jointe)
J'aurai aimé pouvoir la deplacer et les reorganiser pour avoir un graphique plus clair.
Merci
En effet !
Faudrait que je regarde la doc du module. Là je n'utilise que Tk::Chart qui te place la légende en bas et le graphique s'auto-redimensionne en fonction de la taille du widget. Et en plus, tu as une interactivité avec le graphique.
- Les meilleurs cours et tutoriels Perl et Perl 6 pour vous former ;
- FAQ Perl, Perl 6 et Perl/Tk d'entraide ;
- Les news sur la rubrique Perl ;
- S'abonner au compte Twitter de la rubrique Perl ;
- Mes tutoriels developpez.com.
Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !
Voici un exemple de programme avec Tk::Chart qui simule une avancée de courbes :
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 #!/usr/bin/perl use strict; use warnings; use Tk; use Tk::Chart::Lines; my $mw = MainWindow->new( -title => 'Tk::Chart::Lines', -background => 'white', ); my $chart = $mw->Lines( -background => 'snow', -title => 'Mon graph', -xlabel => 'Axe des abscisses changeant', -ylabel => 'Values', -linewidth => 2, )->pack(qw / -fill both -expand 1 /); my @data = ( [ '10', '20', '30', '40', '50', '60', '70', '80', '90' ], [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4 ], [ 4, 2, 5, 2, 3, 5.5, 7, 9, 4 ], [ 1, 2, 52, 6, 3, 17.5, 1, 43, 10 ] ); # Add a legend to the graph my @legends = ( 'Serveur 1', 'Serveur 2', 'Serveur 3' ); $chart->set_legend( -title => 'Liste des serveurs de mon graph', -data => \@legends, ); # Add help identification $chart->set_balloon(); # Create the graph $chart->plot( \@data ); # Création d'un déplacement de la courbe toutes les deux secondes $mw->repeat( 2000, [ \&changement_courbe, \@data, ] ); MainLoop(); sub changement_courbe { my ( $ref_data) = @_; my $legende_suivante = $ref_data->[0][ scalar(@{$ref_data->[0]} -1 ) ] + 10; push @{ $ref_data->[0] }, $legende_suivante; for my $i (0..$#data) { shift @{ $ref_data->[$i] }; push @{ $ref_data->[$i] }, int rand 100 if ($i != 0); } $chart->plot( $ref_data ); return; }
- Les meilleurs cours et tutoriels Perl et Perl 6 pour vous former ;
- FAQ Perl, Perl 6 et Perl/Tk d'entraide ;
- Les news sur la rubrique Perl ;
- S'abonner au compte Twitter de la rubrique Perl ;
- Mes tutoriels developpez.com.
Pas de questions technique par messagerie privée (lisez les règles du forum Perl) et pour les nouveaux !
Salut
J'ai utilise Tk::Chart::Lines comme conseille et c'est nettement plus sympa.
D'autre part, j'ai l'impression que l'affichage est plus fluide.
Merci beaucoup
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager