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

Question

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

AnteManoclis · Answer

Salut, t'es sous vb6 ou sous vb.net ?

  Tch&#244; 
AnteManoclis

cs_AudreyV · Answer

Je suis sous vb6...

Audrey, toujours au point proche de zéro !

econs · Answer

La r&#233;ponse se trouve quelque part dans cette page (il faut manipuler des s&#233;ries) :



http://khany.developpez.com/tutoriel/mschart/


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_Celeborn · Answer

Bonjour,

Je pense que ces graphes, tu veux les tracer sous Excel, est ce bien le cas ?

Virtuellement v&#244;tre !!! ;-))

cs_AudreyV · Answer

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.

cs_Celeborn · Answer

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

AnteManoclis · Answer

Sous VB6, il te faut utiliser une picturebox (faire gaffe aux echelles
du formulaire et de la picturebox toutes deux &#224; mettre en pixels). Les
parties en rouge sont &#224; 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&#232;rant que &#231;a puisse t'&#234;tre utile, n'h&#233;site pas si t'as un probl&#232;me

  Tch&#244; 
AnteManoclis

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

7 réponses

Discussions similaires