DIAGRAMME BATON

Commentaire de Redman31100 le 10/10/2008 17:09:59

dans le code du controle diagramme baton, j'ai modifié ceci :

Public Sub New()
        'Valeurs par défaut
        NumOrd = 25
        NumAbs = 70
        name_absc = ""
        name_ord = ""
        cBatonColor = Color.Lime

        InitializeComponent()

        FirstIndex = 1
        Unite_X = (Me.Width - 40) / NumAbs
        Unite_Y = (Me.Height - 40) / NumOrd

        'Tracé des axes
        Draw_Axe()

        'initialisation des valeurs à 5
        For x As Integer = 0 To NumAbs - 1
            Tab_Point(x) = 5
        Next

        'Tracé des batons
        Draw_Baton()
    End Sub

Ensuite en valeur private du controle j'ai ajouté

Private cBatonColor As Color ' couleur des batons

et dans la région propriétés j'ai ajouté

   ' Couleur Baton

    Public Property BatonCouleur() As Color
        Get
            Return cBatonColor
        End Get
        Set(ByVal value As Color)
            cBatonColor = value
            Draw_Axe()
            Draw_Baton()
        End Set
    End Property

Et j'ai modifié ceci :

    Private Sub Draw_Baton()

        Image_Baton = Image_Axe.Clone 'Création de l'image baton


        Dim graph As Drawing.Graphics = Graphics.FromImage(Image_Baton) 'on récupère l'objet graphics de cette image pour dessiner
        graph.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed 'passage en mode HighSpeed

        'boucle sur toutes les valeurs du tableau et affichage des batons
        For x As Integer = 0 To NumAbs - 1
            Tab_Point(x) = Math.Ceiling(Tab_Point(x))

            Dim valeur_attenuation As Single = IIf(Tab_Point(x) > NumOrd, NumOrd, Tab_Point(x)) 'au cas ou les valeurs du tableau dépasse de la valeur max
            Dim My_rectangle As New Rectangle(20 + Unite_X * x, 20 + Unite_Y * (NumOrd - valeur_attenuation), Unite_X, Me.Height - 40 - Unite_Y * (NumOrd - valeur_attenuation)) 'création du rectangle suivant la valeur du tableau
            Dim My_Brush As New SolidBrush(cBatonColor)


            'affichage du rectangle
            graph.FillRectangle(My_Brush, My_rectangle.X, My_rectangle.Y, My_rectangle.Width, My_rectangle.Height)

            ' affichage du contour
            graph.DrawLine(Pens.Black, My_rectangle.Left, My_rectangle.Top + My_rectangle.Height, My_rectangle.Left, My_rectangle.Top)
            graph.DrawLine(Pens.Black, My_rectangle.Left, My_rectangle.Top, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top)
            graph.DrawLine(Pens.Black, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top, My_rectangle.Left + My_rectangle.Width, My_rectangle.Top + My_rectangle.Height)
        Next

        'Affichage des coordonnées sur l'image
        If Not Image_Coord Is Nothing Then
            graph.DrawImage(Image_Coord, Me.Width - size_texte.Width, 0)
        End If

        'affichage des images à l'écran
        Flushimage()

    End Sub

Voilà, je remarque que parfois les bordures cote a cote de 2 batons sont pas colinéaires donc ca fait une trait épais.

Voilà

Commentaire de Redman31100 le 15/10/2008 16:18:56

Merci lesdis d'avoir amélioré suivant mes idées ^^

Commentaire de lesdis le 15/10/2008 17:31:36

Il suffit de l'ajouter dans un projet et de faire un glisser/déposer de la boite à outils vers ta form

Commentaire de sediq le 15/10/2008 17:57:50

il n'y a pas un moyen de rendre ce diaqramme dynamique cad on précise les valeurs des le début pour reprenter des statistiques.

Commentaire de lesdis le 15/10/2008 19:40:03

Vous pouvez utilisé la propriété Values pour entrer directement des valeurs prédéfinies.

Par il faut que ce soit un tableau de single dont la taille correspond aux nombres de colonnes du diagramme.

Commentaire de lesdis le 03/03/2009 11:23:08

Comme dis plus haut :

Il suffit de l'ajouter dans un projet et de faire un glisser/déposer de la boite à outils vers ta form.

Commentaire de lesdis le 03/03/2009 14:42:35

Ce diagramme est un controle donc une fois le fichier ajouté a ton projet, tu peux l'ajouter sur ta form comme tu peux le faire avec un button.

Si tu ne le trouve pas dans la boite a outils, hésite pas à revenir. Au pire j'ajouterais un projet complet dans la source

Commentaire de Ouggada le 03/03/2009 16:40:47

ça y'est j'ai réussit!
fiou!
il faudrait peut-être que je m'achète une paire de lunette!!

seulement maintenant je ne vois pas comment lier des données d'une colonne d'un datagrid ou autre chose???

En tout cas c'est stylé!! j'aime bien!  8/10