Un objet pour tracer des graphiques (histogramme) à la volée (évolution)

Soyez le premier à donner votre avis sur cette source.

Vue 24 736 fois - Téléchargée 971 fois

Description

J?ai trouvé la source de NIX (http://www.aspfr.com/article.aspx?Val=275) très intéressante mais pas vraiment utilisable en production car tout était en dure, et il aurait fallut tout modifier à chaque fois !
Vous disposez donc dans la nouvelle source que je dépose, d?une Mise à jour de la source de NIX, mais cette fois-ci, bien rangé dans un objet, et complètement paramétrable.
C?est à dire que vous lui indiquez vos valeurs, ainsi que les dimensions que vous voulez pour votre graphique, et la classe va retailler tout ça pour vous !

J?ai ajouté aussi un contrôle d?erreur (Try/Catch), si vous faite une erreur de paramètre ?
héhé, sait-on jamais ;)

Source / Exemple :


Imports System.Drawing
Imports System.Drawing.Imaging

Public Class Graph

    Public Function tracegraph(ByVal TitreGraph As String, ByVal colfond As Color, ByVal colgraph As Color, ByVal Valeurs() As Integer, ByVal Descriptions() As String, ByVal nbvaleur As Integer, ByVal largeurGraph As Integer, ByVal hauteurGraph As Integer, ByVal legende As Font, ByVal titre As Font, ByVal ValHaut As Integer) As Bitmap
        Dim i As Integer
        Dim MaBitMap As New Bitmap(largeurGraph, hauteurGraph) 'on commence par créer une image à la bonne taille
        Dim MonObjGfx As Graphics
        Dim lepas As Integer
        Dim interligne As Integer
        Dim larg As Integer
        Dim CoefHauteur As Double
        Dim Haut As Integer
        lepas = (largeurGraph / (nbvaleur + 1)) ' on calcule le pas d'avancement
        larg = lepas / 2 'on calcule la largeur des colonnes
        MonObjGfx = Graphics.FromImage(MaBitMap)
        ' On met la couleur de fond
        MonObjGfx.Clear(colfond)
        ' On trace un rectangle tout autour de notre image de la bonne dimension
        MonObjGfx.DrawRectangle(Pens.Black, 0, 0, largeurGraph, hauteurGraph)
        ' On donne titre à notre graphique
        MonObjGfx.DrawString(TitreGraph, titre, Brushes.Black, New PointF(5, 5))
        ' on calcule le coeficient pour l'échelle
        CoefHauteur = (hauteurGraph - 50) / ValHaut
        Try
            For i = 0 To nbvaleur - 1
                Haut = (Valeurs(i) * CoefHauteur)
                ' On trace le rectangle de couleur Bleu
                MonObjGfx.FillRectangle(New SolidBrush(colgraph), ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                MonObjGfx.DrawRectangle(Pens.Black, ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                ' Histoire de rendre un peu plus beau notre histogramme, on met un contour pour chaque barre
                MonObjGfx.DrawRectangle(Pens.Black, ((i + 1) * lepas), ((hauteurGraph - 20) - Haut), larg, Haut)
                ' On affiche la légende en dessous de la barre tracée
                MonObjGfx.DrawString(Descriptions(i), legende, Brushes.Black(), ((i + 1) * lepas), hauteurGraph - 15)
            Next
            ' on ajoute les échelles de gauche
            MonObjGfx.DrawString("0", legende, Brushes.Black(), 5, hauteurGraph - 27) ' valeur 0
            MonObjGfx.DrawString((ValHaut / 2).ToString, legende, Brushes.Black(), 5, Int32.Parse((hauteurGraph / 2))) ' valeur moyenne
            MonObjGfx.DrawString(ValHaut.ToString, legende, Brushes.Black(), 5, (hauteurGraph - (hauteurGraph - 25))) ' valeur Haute
            ' on trace la ligne de moyenne
            MonObjGfx.DrawLine(Pens.Orange, lepas, Int32.Parse((hauteurGraph / 2) + 5), Int32.Parse((largeurGraph - (lepas / 2))), Int32.Parse((hauteurGraph / 2) + 5))
            ' on retourne le graphique ainsi généré en bitmat
            tracegraph = MaBitMap
        Catch
            MonObjGfx.DrawString("Appel de fonction incorrecte !!!", legende, Brushes.Red, 5, Int32.Parse((hauteurGraph / 2))) ' valeur moyenne
            tracegraph = MaBitMap
        End Try
    End Function

End Class

Conclusion :


Voici le prototype d?appel :
Public Function tracegraph( ByVal TitreGraph As String, // titre du graphique
ByVal colfond As Color, // couleur de fond
ByVal colgraph As Color, // couleur des barres de l?histo.
ByVal Valeurs() As Integer, // tableau avec vos valeurs
ByVal Descriptions() As String, // tableau avec vos légendes
ByVal nbvaleur As Integer, // nombre de valeurs en tableau
ByVal largeurGraph As Integer, // Largeur voulu en pixel
ByVal hauteurGraph As Integer, // Hauteur voulu en pixel
ByVal legende As Font, // Font pour les légendes
ByVal titre As Font, // Font des titres
ByVal ValHaut As Intege // Valeur la plus forte du tableau
) As Bitmap

Bon Code !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

doha22
Messages postés
2
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
12 décembre 2003
-
salut !
je trouve ton programme trés interessant , mais je n'ai jamais travaillé avec une classe en asp ,peut tu me dire comme faire?doit-je enregistrer la classe comme dll ?et comment l'appeler ?
merci d'avance :)
beetsy
Messages postés
42
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
19 juillet 2010
-
vladam, esti român ?
cs_vladam
Messages postés
216
Date d'inscription
dimanche 13 janvier 2002
Statut
Modérateur
Dernière intervention
7 novembre 2009
-
Que veux-tu dire Beetsy ?
didi2005
Messages postés
46
Date d'inscription
dimanche 27 novembre 2005
Statut
Membre
Dernière intervention
1 juillet 2008
1 -
Code bien commenté merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.