débutante en détresse pour grapher !!!

Bonjour,

Je cherche à créer un graphe qui superpose deux courbes avec le temps en abscisse. La première a un temps incrémenté toutes les heures et la deuxième toutes les 2 heures, mais les dates de début et de fin correspondent exactement.

Je ne sais pas comment faire pour superposer ces 2 graphes qui ont des plages d'abcisses différentes...

Est-ce qu'une âme charitable pourrait m'aider ???

Merci d'avance !

Audrey

Salut, t'es sous vb6 ou sous vb.net ?

Tchô
AnteManoclis

Je suis sous vb6...

Audrey, toujours au point proche de zéro !

La réponse se trouve quelque part dans cette page (il faut manipuler des séries) :

http://khany.developpez.com/tutoriel/mschart/


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.

Bonjour,

Je pense que ces graphes, tu veux les tracer sous Excel, est ce bien le cas ?

Virtuellement vôtre !!! ;-))

Oui effectivement, je peux les tracer sous Excel... Seulement c'est une tâche que je vais avoir à répéter x fois et pour optimiser tout ça, je pensais à une petite macro sympathique qui le ferait pour moi.

Bonjour,

   Alors c'est simple, il te suffit de déclarer dans excel les courbes avec pour chacune les sources de leurs d'abcisses.
   Par défaut Excel prend la même colonne pour toutes les courbes en abcisses, mais c'est modifiable, il te suffit d'aller dans "données sources", "Séries", et de changer dans "Etiquette de l'axe des abcisses(X)" la collone de la source des abcisses.
   Par cette méthode, même si les dates de fin et de début ne correspondent pas, Excel s'adapte pour afficher le tout.
   C'est même une méthode que j'utilise pour afficher des graphes de plus de 65000 points.   

Virtuellement vôtre !!! ;-))

Sous VB6, il te faut utiliser une picturebox (faire gaffe aux echelles du formulaire et de la picturebox toutes deux à mettre en pixels). Les parties en rouge sont à remplacer, Xmax et Ymax sont les maximums du graph, et X(i) Y(i), un point de la courbe.

Dim i as Long
Dim QuantumH As Single, QuantumV As Single, Mil As Single
Dim Px As Long, Py As Long, PxPrecedent As Long, PyPrecedent As Long
Dim DrapeauPremierPointAffiche As Byte
 
Picture1.DrawStyle = 0
QuantumH = Picture1.ScaleWidth / Xmax
QuantumV =Picture1.ScaleHeight / Ymax
Mil = Picture1.ScaleHeight / 2
DrapeauPremierPointAffiche = 0
For i = Index_Premier_Point To Index_Dernier_Point
  Px = X(i) * QuantumH
  Py = Mil - Y(i) * QuantumV
  If DrapeauPremierPointAffiche = 0 Then
    Picture1.PSet (Px, Py), Couleur
    DrapeauPremierPointAffiche = 1
  Else
    Picture1.Line Step(0, 0)-Step(Px - PxPrecedent, Py - PyPrecedent), Couleur
   End If
   PxPrecedent = Px: PyPrecedent = Py
Next i

En espèrant que ça puisse t'être utile, n'hésite pas si t'as un problème

Tchô
AnteManoclis