Posts Tagged ‘classe’

Automation: Ouvrir Microsoft Excel, créer un classeur et ajouter des données dans les cellules

classe
{filelink=13528}

#!/usr/bin/perl -w
 
use Win32::OLE;
use strict;
 
# création d'un objet OLE sur MS Excel
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Impossible de se connecter à MS Excel, $!";
 
# Lancer Micosoft Excel.
$xls_app->{'Visible'} = 1;
 
# Créer un document.
$xls_app->Workbooks->Add();
 
# Ajouter des Informations dans certaines Cellules
$xls_app->Range("A1")->{'Value'} = "Janvier";
$xls_app->Range("B1")->{'Value'} = "Février";
$xls_app->Range("C1")->{'Value'} = "Mars";
$xls_app->Range("A2")->{'Value'} = 30;
$xls_app->Range("B2")->{'Value'} = 29;
$xls_app->Range("C2")->{'Value'} = 31;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Télécharger la bibliothèque eastwood-patched-1.2.0.jar

Télécharger
Download here
org.jfree.eastwood.GLineAndShapeRenderer(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public void <init>(boolean lines, boolean shapes)
public void setBarRenderer(org.jfree.chart.renderer.category.BarRenderer categoryItemRenderer)
public void drawItem(java.awt.Graphics2D g2, org.jfree.chart.renderer.category.CategoryItemRendererState state, java.awt.geom.Rectangle2D dataArea, org.jfree.chart.plot.CategoryPlot plot, org.jfree.chart.axis.CategoryAxis domainAxis, org.jfree.chart.axis.ValueAxis rangeAxis, org.jfree.data.category.CategoryDataset dataset, int row, int column, int pass)

org.jfree.eastwood.GLabelledAxis(Ci-dessous la liste des Méthodes de la classe)

public abstract void setTickLabels(java.util.List arg1)
public abstract void setTickLabelPositions(java.util.List arg1)

org.jfree.eastwood.Parameters(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public static java.util.Map parseQueryString(String qs)
		throws java.io.UnsupportedEncodingException
public static String urlDecode(String s)
		throws java.io.UnsupportedEncodingException

org.jfree.eastwood.GValueAxis(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public double getLabelAxisStart()
public void setLabelAxisStart(double start)
public double getLabelAxisEnd()
public void setLabelAxisEnd(double end)
public void setTickLabels(java.util.List labels)
public void setTickLabelPositions(java.util.List values)
public java.util.List refreshTicks(java.awt.Graphics2D g2, org.jfree.chart.axis.AxisState state, java.awt.geom.Rectangle2D dataArea, org.jfree.ui.RectangleEdge edge)

org.jfree.eastwood.GSeriesLabelGenerator(Ci-dessous la liste des Méthodes de la classe)

public void <init>(java.util.List labels)
public String generateLabel(org.jfree.data.xy.XYDataset dataset, int series)
public String generateLabel(org.jfree.data.category.CategoryDataset dataset, int series)

org.jfree.eastwood.ExtendedSpiderWebPlot(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public org.jfree.chart.axis.CategoryAxis getDomainAxis()
public boolean hasDomainAxis()
public org.jfree.chart.axis.Axis getRangeAxis()
public boolean hasRangeAxis()
public void setAngle(double angle)
public void setF0(double f0)
public void setRadiusStartAngle(double f)
public void setF1(double f1)
public void setTicks(java.util.List ticks)
public void addTick(org.jfree.chart.axis.NumberTick tick)
public void setSerieFillPaint(int serie, java.awt.Paint color)
public java.awt.Stroke getRadiusGridlineStroke()
public void setRadiusGridlineStroke(java.awt.Stroke stroke)
public java.awt.Paint getRadiusGridlinePaint()
public void setRadiusGridlinePaint(java.awt.Paint paint)
public void draw(java.awt.Graphics2D g2, java.awt.geom.Rectangle2D area, java.awt.geom.Point2D anchor, org.jfree.chart.plot.PlotState parentState, org.jfree.chart.plot.PlotRenderingInfo info)
public void drawBackground(java.awt.Graphics2D g2, java.awt.geom.Rectangle2D area)
public void drawRadialGridLines(java.awt.Graphics2D g2, org.jfree.chart.axis.ValueAxis radialAxis, java.util.List ticks, java.awt.geom.Rectangle2D dataArea)
public java.awt.Point translateValueThetaRadiusToJava2D(double angleDegrees, double radius, java.awt.geom.Rectangle2D dataArea)

Manipuler les attributs d’une classe à l’aide des méthodes ‘set’ et ‘get’

classe, méthode, set
{filelink=14326}

#!/usr/local/bin/perl -w
 
package personne;
use strict;
 
sub Personne {
    my $self = { };
    bless($self);
 
    # Initialisation de deux attributs  de la classe
    $self->{Nom} = "";
    $self->{AGE}   = 0;
    return $self;
 
# Retourner le nom
sub get_Nom
{
    my $self = shift;
    return $self->{nom};
}
# Modifier le nom
sub set_Nom
{
    my $self      = shift;
    $self->{nom} = shift;
}
# Retourner l'âge
sub get_Age
{
    my $self = shift;
    return $self->{age};
}
# Modifier l'âge
sub set_Age
{
    my $self      = shift;
    $self->{age} = shift;
}
		}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Classe: Comment créer des héritages entre les classes

classe, héritage
{filelink=14329}

#!/usr/local/bin/perl -w
 
# création d'une classe 'personner
package Personne;
 
sub new {
    my $class = shift;
    my $self  = { };
    return bless $self, $class;
}
sub nom {
    my $self = shift;
    $self->{nom} = shift if @_;
    return $self->{nom};
}
sub profession {
    my $self = shift;
    $self->{profession} = shift if @_;
    return $self->{profession};
}
 
 ######## Héritage ###########
 # création d'une classe 'client'
 # qui hérite de tous les membres
 # de la classe Personne
 
 package Client;
 use Personne;
 
my $client = Client->new( );
$client->nom("Jhon");
$client->profession("Plombier");
printf "Je m'appele %s et je suis %s.n", $client->nom, $client->profession;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Classes: Exemple d’initialisation des attributs

classe
{filelink=14324}

#!/usr/local/bin/perl -w
 
package Personne;
sub new {
    my $self = { };
    bless($self);
 
    # Initialisation de deux attributs
    $self->{Nom} = "";
    $self->{AGE}   = 0;
    return $self;
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple complet d’utilisation d’une classe en Perl

classe, set, email
{filelink=14327}

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une classe est un package
# contenant des fonctions et des variable
#
 
sub new{                    # Constructeur de la classe personne
    my $class = shift;
    my $personne = {
        "Nom"  => undef,
        "Profession" => undef,
        "Email"  => undef,
    };
    bless($personne, $class);    # Création de l'objet
 
    # Fonction qui permet de modifier les membres de la classe Personne
    sub set_Personne{
        my $self = shift;
        my ($nom, $profession, $email)= @_;  # Les paramètres de la fonction
 
        #Modifier les les attributs de la classe
        $self->{'Nom'} = $nom;
        $self->{'Profession'}= $profession;
        $self->{'Email'}= $email;
    }
 
    # Fonction qui permet d'afficher les valeurs des attributs
    sub get_Personne{
    my $self = shift;
    while(($key,$value)=each(%self))
    {
        print "$key: $valuen";
    }
}
 
# Création d'une instance de la classe Personne
$client = Personne->new();
 
# Initialisation de la classe
$client->set_Personne("Bill", "Gate", "bill@test.com");
 
# Accéder aux objets de la classe
$client->get_Personne;
 
# Modifier les valeurs des attributs
 $client->set_Personne("sako","adam","demo@gmail.com");
 
 #Afficher les nouvelles valeurs
 $client->get_Personne;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple d’utilisation d’une classe comme une Structure

classe, email
{filelink=14328}

#!/usr/local/bin/perl -w
 
use Class::Struct;          # Charger le module des structures
 
struct Personne => {        # Définir une structure nommée 'Personne'
 
    # définir les attributs de la structure
    nom   => '$',          # donnée scalaire
    profession    => '$',  # donnée scalaire
    email    => '$',       # donnée scalaire
    hobby  => '@',         # tableau
};
 
my $pers = Personne->new( );      # Création/Allocation de la structure
 
$pers->nom("Karl max");       # Modfier l'attribut 'nom'
$pers->profession("devel");   # Modfier l'attribut 'profession'
$pers->email("test@email.com");  # Modfier l'attribut 'email'
$pers->hobby( ["sport", "lecture", "cié" ] ); # Modfier l'attribut 'hobby'
 
# Afficher les valeurs des attributs
printf "Nom:%sn profession: %sn email:%sn activité extra:%s.n",
    $pers->nom, $pers->profession, $pers->email, ,$pers->hobby(0);

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]