Statistique Graphique vb

bonjour;
J'ai réalisé une fonction qui fait l'affichage de statistique en pourcentage des paramètres (A,B et c par exemple) dans des textes box mais le problème que je veux le voir aussi sous forme de graphe ( lecture de contenu de chaque TextBox et le mettre dans cercle de stat ) mais je n'ai aucune idée sur l'utilisation de graphique dans le vb.6
ex
A = 20 %

B = 30 %

C = 50 %

Merci

Bonjour,

Pour si peu et sans base de données (valeurs de textboxes), il te suffit d'une picturebox dans laquelle tu dessines en appliquant la méthode Line (voir ce mot dans ton aide en ligne) !....

Allez va...

Voici un exemple que je viens de te bâtir ...

Il est volontairement très grossier, pour que tu n'aies aucune difficulté à suivre.

A toi de comprendre, puis d'utiliser plus finement ce que tu auras compris....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Option Explicit Private Sub Form_Activate() Picture1.ScaleMode = vbTwips Me.Move 0, 0, Screen.Width, Screen.Height Picture1.Move Me.Width / 4, Me.Height / 4, Me.Width / 4, Me.Height / 4 Dim a As Integer, b As Integer, c As Integer, d As Integer Dim montabl, mescoul, toto As Integer, largeur As Integer, i As Integer a = 20 b = 30 c = 60 d = 10 montabl = Array(a, b, c, d) mescoul = Array(vbRed, vbBlue, vbGreen, vbYellow) toto = Picture1.Height / 100 largeur = 300 For i = 0 To UBound(montabl) Picture1.Line (i * largeur, Picture1.Height)-((i * largeur) + largeur, toto * (100 - montabl(i))), mescoul(i), BF Next End Sub

---

à voir :

Les bases du contrôle MSChart par Cécile Muno


;)

Bonjour Bbil,

Le contrôle MsChart est en effet ce qui vient en premier à l'esprit.

Mais Minola ne parait pas travailler avec une base de données mais de simples valeurs dans des textboxes ...;)

Edit : je viens de voir qu'il préfère un affichage en camembert (je suppose que c'est ce qu'il appelle "en cercle"). Il lui suffit alors d'utiliser la méthode circle en lieu et place de la méthode Line.

Citation:

---

Envoyé par ucfoutu

Bonjour Bbil,

Le contrôle MsChart est en effet ce qui vient en premier à l'esprit.

Mais Minola ne parait pas travailler avec une base de données mais de simples valeurs dans des textboxes ...;)

Edit : je viens de voir qu'il préfère un affichage en camembert (je suppose que c'est ce qu'il appelle "en cercle"). Il lui suffit alors d'utiliser la méthode circle en lieu et place de la méthode Line.

---

:koi:....? qui à parlé de base de donnée ?

tu met un contrôle msChart sur une form ... (MSCHART1)
un groupe de contrôle de 3 textbox (Text1) puis :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Command1_Click() Dim i As Integer With MSChart1 .chartType = VtChChartType2dPie .RowCount = 1 ' Nbre de Camembert .ColumnCount = 3 'Nbre de "tranche" de camembert For i = 0 To 2 .Column = i + 1 .Data = Val(Text1(i)) Next i End With   End Sub

---

Oui, en effet.... (je suis allé trop vite).:oops:

(probablement dû à ma manie de rester totalement indépendant... surtout en pensant à Vista.... qui ne contient pas spontanément MsChart.Ocx ...)