graphique en camembert

Version imprimable

09/09/2011, 13h46
jihad

graphique en camembert

Bonjour,

pour créer un graphique en camembert en me basant sur le cours de Mr P.lassere.
chaque portion du graphique porte un label.
ce que je souhaite faire est de supprimer ces labels et de modifier la légende pour qu'elle comporte les pourcentages correspondants à chaque portion.

Bonjour,

Je n'ai pas lue le cours de Mr Lassere sur le sujet, mais J'ai déjà développé quelque chose de semblable.
N'ayant pas le temps d'expliqué ce que j'ai fait dans le détail, je te met une de mes sources développé à mes débuts (le code est probablement optimisable):

Code:

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
        Graphique.Series("Serie").Points.Clear()
        Dim total, totalglobal As Integer
        Dim pourcentage As Double
        totalglobal = 0
        total = 0
 
        For i = 2 To Tab_affich.Rows.Count - 1
            totalglobal = totalglobal + Val(Tab_affich.Item(i, 2))
        Next
 
 
        Dim point As Integer
        For i = 2 To Tab_affich.Rows.Count - 1
            point = Val(Tab_affich.Item(i, 2))
            If Tab_affich.Item(i, 5) = True Then
                pourcentage = (point / totalglobal) * 100
                Dim X As System.Windows.Forms.DataVisualization.Charting.DataPoint = New System.Windows.Forms.DataVisualization.Charting.DataPoint(0, point)
                X.LegendText = Tab_affich.Item(i, 0) & " : " & String.Format("{0:0.##}", pourcentage) & "%"
                X.Label = point
                Graphique.Series("Serie").Points.Add(X)
            Else
                total = total + point
            End If
        Next
 
        pourcentage = (total / totalglobal) * 100
        Dim Y As System.Windows.Forms.DataVisualization.Charting.DataPoint = New System.Windows.Forms.DataVisualization.Charting.DataPoint(0, total)
        Y.LegendText = "Autres : " & String.Format("{0:0.##}", pourcentage) & "%"
        Y.Label = total
        Graphique.Series("Serie").Points.Add(Y)

J'utilise un tableau (flexgrid) que je parcours, si la ligne correspondant au donnée est cochée, je considère qu'il faut affiché la part sur le graph, je génère donc un nouveau point, puis lui fixe la légende et sa valeur.

Une fois, le tableau parcourue, j'affiche le total de ce qui n'a pas été affiché/coché par l'utilisateur.
En espérant que cela puisse t'aider.

merci pour votre aide
j'ai eu l'idée suivante et cela marche

Code:

1
2
3
4
5
6
7
8
 
        Dim yValues As Double() = {v(1), v(2) * 2, v(3) * 7, v(5), v(4), v(6)}
        Dim xValues As String() = {"Consommation faible " & String.Format("{0:0.##} " & "%", v(1)), _
                                   "Consommation moyenne " & String.Format("{0:0.##}" & "%", v(2) * 3), _
                                   "Consommation totale " & String.Format("{0:0.##}" & "%", v(3) * 7), _
                                   "Postes de contrôle neutralisés " & String.Format("{0:0.##}" & "%", v(5)), _
                                   "autres postes " & String.Format("{0:0.##}" & "%", v(4)), _
                                   "Inaccessible à la vérification " & String.Format("{0:0.##}" & "%", v(6))}

cela permet d'ajouter les pourcentages à la légende.
mais j'ai toujours le problème des labels qui apparaissent sur le graphique au-dessus de chaque portion :(

j'ai trouvé cela:
Chart1.Series(0).IsValueShownAsLabel = False
mais elle ne fonctionne pas !!!!!!
je ne sais pas pourquoi? est ce qu'on ne peux pas supprimer les label d'un graphique camembert?

05/11/2011, 19h36
jihad

1 pièce(s) jointe(s)

Désolée d'avoir déterrer ce message mais je ne trouve toujours pas de réponse
ci-joint le graphique que j'obtiens.

j'ai besoin de supprimer les libellés.
j'attend votre aide

j'ai trouvé la sulution

Code:

1
2
Chart1.Series(0).Points(5).AxisLabel = ""
Chart1.Series(0).Points(0).LegendText = "text"