Plusieurs courbes sur le même graph MSChart

Résolu
merif
Messages postés
9
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
21 septembre 2004
- 8 sept. 2004 à 14:40
trexor
Messages postés
134
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
17 octobre 2010
- 18 août 2005 à 17:35
Bonjour à tous !
Je dispose d'un graph MSChart de type 2dXY sur lequel je souhaite tracer des spectres que j'acquiers les un après les autres. A chaque fois que j'obtient un spectre, je fais un petit tableau avec la longueur d'onde dans la première colonne et le coeff d'absorption dans la deuxième colonne. Puis j'affecte ce tableau à la propriété .Chardata de mon graph. Jusqu'ici tout va bien : un spectre s'affiche... Quand j'obtient mon deuxième spectre, je fais pareil et il s'affiche en effaçant le précedent...
Comment je fais pour que tous les spectres que j'obtient restent afficher dans mon graph ? Il faut peut être utiliser SeriesCollection mais je ne vois pas comment faire....
Merci !

2 réponses

merif
Messages postés
9
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
21 septembre 2004

8 sept. 2004 à 17:17
Je me répond tout seul... Après une après midi d'obstination sur le site j'ai finis par trouver l'info.
Quand on utilise le type 2dXY de MSChart, la colonne contenant les abscisses doit être répétée avant chaque nouvelle série de données ; en gros ça donne un tableau du genre (avec X et Yi des vecteurs) :
[X, Y1,X, Y2, ..., X, Yn]

Voilà ! Maintenant je vais cloturer cette discussion...
3
trexor
Messages postés
134
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
17 octobre 2010

18 août 2005 à 17:35
Bonjour,
Savez vous si on peut afficher 2 courbes sur un même graph de cette facon:
x,y,x1,y1?
car mon code ne marche pas...j'en ai marre de mschart!


Dim countGraf
As
Integer



Dim countRepere
As
Integer


countGraf = DataGridViewGraf.Rows.Count - 1


countRepere = DataGridRepere.Rows.Count - 1



Dim arrValues(countGraf, 6)



Dim i
As
Integer



For i = 1
To countGraf


arrValues(i, 1) =
"Visu panneau " & i
' Étiquettes


arrValues(i, 2) = DataGridViewGraf.Item(
"ZModif", i).Value
' Valeurs de la série 1.


arrValues(i, 3) = DataGridViewGraf.Item(
"YModif", i).Value
' Valeurs de la série 2.



Next i



For i = 1
To countRepere


arrValues(i, 4) =
"Repere " & i
' Étiquettes


arrValues(i, 5) = DataGridRepere.Item(
"ZModif", i).Value
' Valeurs de la série 1.


arrValues(i, 6) = DataGridRepere.Item(
"YModif", i).Value
' Valeurs de la série 2.



Next i


Graf.Plot.SeriesCollection(1).Pen.VtColor.Set(255, 255, 0)


Graf.Plot.SeriesCollection(2).Pen.VtColor.Set(100, 100, 0)


Graf.ChartData = arrValues
0