IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Interfaces Graphiques Perl Discussion :

Enregistrer un graphique en image


Sujet :

Interfaces Graphiques Perl

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2014
    Messages : 11
    Points : 5
    Points
    5
    Par défaut Enregistrer un graphique en image
    Bonjour,

    J'ai commencé le Perl il n'a pas très longtemps.

    Mon problème est le suivant : j'ai crée un graphique en Perl/Tk et j'aimerai pouvoir l’enregistrer en image (jpg, ...) pour être facilement utilisable. Je ne sais pas si c'est possible? Le but n'étant que tout ce face automatiquement.

    Je vous remercie par avance de votre aide.

    Si je suis pas très clair n'hésiter pas a me le dire.

    Merci,
    Paul

  2. #2
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 793
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 793
    Points : 499 017
    Points
    499 017
    Par défaut
    Bonjour,

    Comment as-tu créé ce graphique via Perl/Tk ?

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2014
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    Avec le module Chart, si dessous un exemple de code :

    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
    use strict;
      use warnings;
      use Tk;
      use Tk::Chart::Mixed;
     
      my $mw = MainWindow->new(
        -title      => 'Tk::Chart::Mixed',
        -background => 'white',
      );
     
      my @types = ( 'areas', 'bars', 'lines', 'points', 'bars', 'dashlines' );
      my $chart = $mw->Mixed(
        -title      => 'Tk::Chart::Mixed',
        -xlabel     => 'X Label',
        -ylabel     => 'Y Label',
        -background => '#D0D0FF',
        -linewidth  => 2,
        -typemixed  => \@types,
        -markers    => [ 3, 5, 6 ],
     
        -longticks => 1,
      )->pack(qw / -fill both -expand 1 /);
     
      my @data = (
        [ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th', '9th' ],
        [ 90,    29,    25,    6,     -20,   1,     1,     3,     4 ],
        [ 15,    10,    5,     2,     3,     5,     7,     9,     12 ],
        [ 1,     2,     12,    6,     3,     5,     1,     23,    5 ],
        [ 15,    12,    24,    33,    19,    8,     6,     15,    21 ],
        [ 15,    2,     52,    6,     3,     17.5,  1,     43,    10 ],
        [ 30,    2,     5,     6,     3,     1.5,   1,     3,     4 ],
        [ 24,    12,    35,    20,    13,    31.5,  41,    6,     25 ],
     
      );
     
      # Add a legend to the graph
      my @legends = @types;
      $chart->set_legend(
        -title       => "Title legend",
        -data        => [ 'legend 1', 'legend 2', 'legend 3', 'legend 4', 'legend 5', 'legend 6', 'legend 7', ],
        -titlecolors => "blue",
      );
     
      # Add help identification
      $chart->set_balloon();
     
      # Create the graph
      $chart->plot( \@data );
     
      # background order wanted
      $chart->display_order( [qw/ areas lines bars  dashlines points /] );
     
      MainLoop();
    Se qui donne cette fenêtre :
    Nom : perl_graphique.PNG
Affichages : 154
Taille : 23,0 Ko


    Ce que je voudrais c'est que en même temps que le graphique s'affiche il soit enregistrer dans une image.

    Je me demande aussi s'il est possible de crée le fichier image sans afficher le graphique?

    Merci

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 793
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 793
    Points : 499 017
    Points
    499 017
    Par défaut
    Bonjour,

    Tu as la réponse dans la documentation du module : Tk::Chart::FAQ (How to save graph in postscript, jpeg, png, gif format file ?).
    Maintenant, si tu souhaites ne pas afficher l'image dans un widget Tk, l'utilisation du module n'a plus de sens. Autant utiliser un module ne servant qu'à la génération d'images comme GD::Graph.

  5. #5
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2014
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    Merci, je n'ai pas vue la FAQ de Chart.

    Pour l’affichage qui graphique j'aurai voulut mettre une option pour afficher ou non le graphique. Le programme pourra être exécuter de de deux manière soit "manuellement" avec une interaction graphique (choix des paramètres pour les graphes a afficher, zoom, ...) soit de manière "automatique" appelé par un autre programme qui fait plein de tests et qui viendra récupéré des infos dont les image de graphique.

    Après je peut aussi faire des fonctions avec affichage => Tk::Chart ou juste image => GD::Graph mais y aura des chances de pas avoir exactement les mêmes graphes...

  6. #6
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 793
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 793
    Points : 499 017
    Points
    499 017
    Par défaut
    Le problème avec postscript de Tk, c'est la qualité de l'image qui n'est vraiment pas bonne. C'est pour cela que je préconise l'utilisation d'un autre module pour la création d'image à enregistrer.
    Par contre, pour l'interaction ou l'affichage dans un widget Tk, là, Tk::Chart fonctionne très bien et est bien adapté.

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juillet 2014
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2014
    Messages : 11
    Points : 5
    Points
    5
    Par défaut
    Je viens de voir qu j'ai oublier de réponde...

    Je pense que je vais utilisé Tk::Chart pour l'interaction et GD::Graph pour les images.

    Merci beaucoup pour l'aide!!

  8. #8
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    avril 2004
    Messages
    19 793
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : avril 2004
    Messages : 19 793
    Points : 499 017
    Points
    499 017
    Par défaut
    Je préfère que tu crées un autre post.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Enregistrer un graphique
    Par lila1 dans le forum Octave
    Réponses: 2
    Dernier message: 05/04/2020, 11h02
  2. Convertir un graphique en image GIF
    Par biyano dans le forum VBA Access
    Réponses: 5
    Dernier message: 21/02/2008, 17h21
  3. Charte graphique et image
    Par fatenatwork dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 08/11/2007, 16h15
  4. [Labview 5.1] Graphiques / Insertion image
    Par NicoP dans le forum LabVIEW
    Réponses: 1
    Dernier message: 20/04/2007, 09h02
  5. Comment enregistrer des graphiques pour le web?
    Par pepe2006 dans le forum Access
    Réponses: 1
    Dernier message: 11/10/2005, 20h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo