Plusieurs courbes sur le même graph MSChart [Résolu]

Messages postés
9
Date d'inscription
jeudi 29 juillet 2004
Dernière intervention
21 septembre 2004
- - Dernière réponse : trexor
Messages postés
134
Date d'inscription
mercredi 9 mars 2005
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 !
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
9
Date d'inscription
jeudi 29 juillet 2004
Dernière intervention
21 septembre 2004
3
Merci
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...

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 99 internautes nous ont dit merci ce mois-ci

Messages postés
134
Date d'inscription
mercredi 9 mars 2005
Dernière intervention
17 octobre 2010
0
Merci
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

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.