vb.net 2008 graphique et courbe

Question

Bonjour à tous,

j'ai conscience que ma question a déjà fait le sujet de plusieurs messages, et je m'en excuse.
J'utilise VB.NET 2008 depuis peu et je souhaiterais tracer une courbe à partir de valeurs que j'ai dans deux variables tableaux.
Par exemple:
                    Dim tabX( ) As Double   ' mon tableau de valeurs pour les abscisses
                    Dim tabY( ) As Double   ' tableau de valeurs pour les ordonnées
Ces tableaux sont déjà remplis.

J'aurais aussi voulu savoir quelles sont les options pour tracer plusieurs courbes sur le même graphique, de couleurs différentes, et surtout comment faire pour avoir une échelle logarithmique sur l'axe des abscisses.

Je vous remercie par avance, Ô grands Dieux du vb.net 2008

Mayzz · Answer

Bonjour,

Tu trouveras ton bonheur dans l'espace de nom System.Drawing.Drawing2D du framework, en passant par la classe Graphics, celle-ci dispose de méthode permettant de dessiner des lignes, des courbes et diverses formes géométriques..

C'est assez complexe pour le code, cela nécéssite que tu te documente... Je ne peux que te conseiller de rechercher sur google des informations sur les classes et méthodes suivantes :

La classe System.Drawing.Graphics avec les méthodes suivantes :

System.Drawing.Graphics.DrawArc
System.Drawing.Graphics.DrawCurve
System.Drawing.Graphics.DrawLine et System.Drawing.Graphics.DrawLines
System.Drawing.Graphics.DrawPath

La classe System.Drawing.Pen

Il me semble avoir vu des exemples de sources sur le site... fais une recherche à tout hazard.

Pour réaliser ton projet, tracer tes courbes et les échelles, passe par ces fonctions, elle te permetterons de déssiner sur une  form, un controle, ou dans une image...

Cordialement, Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

Merci Mayzz d'avoir répondu si rapidement 

je m'étais déjà un peu orientée vers ces méthodes, mais j'avoue que ne sachant pas comment les utiliser, c'était un peu dur à comprendre.
Par exemple, pour System.Drawing.Graphics.DrawLines , cela demande un argument spécial (un truc qui ressemble à System.blabla.pointF mais je ne sais pas du tout ce que c'est.

Je continue mes recherches, je vous tiens au courant si j'ai trouvé, et/ou recontacte les membres du forum pour des questions

Mayzz · Answer

Un PointF est tout simplement une instance de la Classe PointF qui représente un Point de localisation Flottant (Point Float)

Dim
 X AsSingle 10.5, Y AsSingle 105.3

Dim PF 
As
New PointF(X, Y)

En appelant la méthode DrawLines, tu peux donc dessiner une ligne en passant en paramètre à celle-ci un tableau de points (coordonnées). C'est aussi simple que cela.

Quant à l'argument "Pen" celui ci est une instance de la classe System.Drawing.Pen, via laquel tu décide, la couleur, l'épaisseur et la forme de ton trait (et bien d'autres paramètres).

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

Du coup, je peux faire une boucle pour créer les pointF (pour chaque couple de case de mes tableaux , (500 valeurs dans chaque)) 
Et peut-être même y utiliser la methode DrawLines (dans la boucle) ?
je vais essayer , on va voir ce que ça donne ^^

ps: dois je faire un "imports" (du style, imports System.Drawing, etc...)

Mayzz · Answer

L'imports est une sorte de raccourcis pour n'avoir qu'a taper PointF au lieu de System.Drawing.PointF, tu peux faire l'import au niveau de ton formulaire ou du projet en lui même (dans ses proprétés), c'est facultatif (mais préférable), ce qui compte c'est d'avoir l'assemby System.Drawing chargé dans les références du projet.

Pour ta boucle oui, pour le taçage dans la boucle se sera Drawline et non DrawLines, ce dernier étant destiné au tracages d'une ligne de plusieurs points, ta boucle étant en cours, tu ne connais donc pas tous les points de destination (Tableau de points incomplet).

@+ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

Bonjour Mayzz, et bonjour à tous les membres du forum :) (Je préviens, le message qui suit est un peu long, car j'ai mis un bout de code.) ------------------------------------------------------------------------------ J’ai créé une Form que j’ai nommée Graphe. tabX ( ) et tabY( ) sont des tableaux de Double de taille 500 dans lesquels sont stockées mes valeurs. Ces tableaux sont déjà remplis. Dans ma Form « Graphe », j’ai mis une PictureBox pour avoir mon graphique à l’intérieur. J’ai testé deux versions de code (une avec DraxLines, l’autre avec DrawLine), j’obtiens la même chose : un petit dessin bleu de 2cm maxi. Soit le graphique est tout petit, dans ce cas il faut changer quelque chose dans les options, mais je ne sais pas comment faire. Soit le graphique ne m’affiche que les premières valeurs (sur un total de 500), et je ne vois pas pourquoi. Vos conseils et idées sont les bienvenus Code1 : PublicClass Graphe PrivateSub Graphe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim newBitmap As Bitmap = New Bitmap(150, 150) Dim g As Graphics = Graphics.FromImage(newBitmap) Dim PF(499) As PointF ‘ je remplis mon tableau de pointF avec les valeurs de mes tableaux For i = 0 To 499 Dim point AsNew PointF(CSng(tabX(i)), CSng(tabY(i))) PF(i) = point Next g.DrawLines(Pens.Blue, PF) PictureBox1.Image = newBitmap EndSub EndClass Code2: PublicClass Graphe PrivateSub Graphe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Dim newBitmap As Bitmap = New Bitmap(150, 150) Dim g As Graphics = Graphics.FromImage(newBitmap) For i = 0 To 498 g.DrawLine(Pens.Blue, CSng(tabX(i)), CSng(tabY(i)), _ CSng(tabX(i + 1)), CSng(tabY(i + 1))) Next PictureBox1.Image = newBitmap EndSub EndClass

Mayzz · Answer

Salut,

Ton code est bon (le premier est plus approprié), quelle sont les valeurs de tes tableaux ? Je te rappelle que ce doit être des coordonnées de point basé sur des axis de 0 à 150 (En rapport avec la taille de ta bitmap).

++ Mayzz.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

salut ,

Effectivement mon probleme d'affichage venait des valeurs de mes tableaux
   -  tabX contient des valeurs entre 0.1 et 50, par pas de 0.1 (d'où 500 valeurs)
   -  tabY contient des valeurs entre 0 et 10 (très souvent des décimales) 
Hier j'ai multiplié par 10 mes valeurs , et mon graphique est apparu avec une taille raisonnable (mais pas encore parfaite lol)
Je dois changer la taille de la bitmap?
De plus j'aimerais avoir une échelle logarithmique pour l'axe des abscisses , mais je n'ai pas trouvé l'option.

Cependant j'ai un nouveau problème dans l'affichage:
    -  la courbe commence en haut à gauche de ma PictureBox (alors que j'aurais préféré en bas à gauche, normal quoi! lol)
    -  je ne sais pas si c'est lié, mais ma courbe apparaît dans le sens inverse. 
       Je m'explique:  normalement la variation de ma courbe devrait être   croissante // pic (en haut) // décroissante // stabilisation constante
       alors que là j'ai l'inverse, c'est-à-dire:       décroissante // pic(en bas) // croissante // stabilisation constante
      ( j'espere que j'ai été claire   )

J'ai tenté de voir dans les options de la PictureBox (en tapant le nom de la ma picturebox suivi d'un point, y'a une liste qui s'affiche) mais en vain 

En tout cas tes conseils m'aident beaucoup, car lorsque je fais mes recherches en parallèle, je vois que je suis sur la bonne voie (et puis c'est mieux quand quelqu'un vous explique en direct, surtout quand on a des questions précises et chiantes comme les miennes! lol)

Mayzz · Answer

Bonjour,

La picturebox n'a rien a voir avec cela, c'est un simple conteneur dans lequel tu y a placé une image sur laquel tu as préalablement déssiné ton graphique comme tu l'aurais fais manuellement avec paint. Il faut bien retenir que le carré de ta bitmap se présente comme ceci :

         0              150            
     0_|_________|_ 0
         |                  | 
         |                  |
150 _|_________|_150
         |                  |
        0               150

Ainsi les valeurs de ton tableau ne doivents pas être dirrectement les valeurs de ton graphique, une petit inversion sera nécéssaire. 

Pour ce qui est des axes, il faut les dessiner à la main, comme tu l'as fais pour le graphique, il n'y as aucune option pour cela. 

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

Mayzz · Answer

pwa ! la mise en forme...

       0        150            
     0_|_________|_ 0
       |         | 
       |         |
  150 _|_________|_150
       |         |
       0        150

Ca devrait peut être aller mieux la... ?

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

salut Mayzz,

je n'ai pas très bien compris la présentation de mon carré bitmap,  
je vois que tu as pris deux couleurs différentes pour ton dessin explicatif , à quoi cela correspond-il 


pourrais-tu me donner, s'il te plait,  + de précisions


Pour dessiner les axes, faut-il passer par la DrawLine? Par exemple, soit g mon graphic, faire g.DrawLine... ou maPicturebox.Line ... 
D'avance Merci

sigrid1983 · Answer

c'est encore moi!
je crois que je viens de comprendre :    l'axe "virtuel" des ordonnées se dirige vers le bas ! 
c'est ça ? 
bon je vais tester et je te tiens au courant.

Mayzz · Answer

Oui, exactement, les coordonnées des graphiques sont dans le sens de la lecture, soit de gauche à droite et de haut vers le bas...

Picturebox.Line n'existe plus en vb.Net, il faut passer par un objet graphics, soit tu dessine dans une bitmap, ce qui te donne une image dessiné, comme une bitmap avec paint, et de celle-ci tu fais ce que tu désire comme la placé dans un PictureBox, ou en background dans un contrôle, soit tu déssine directement dans un contrôle, mais tu devra redessiner à chaque fois que le contrôle sera rafraichi, pour cela tous les contrôles ont un événement Paint, passant en paramètre un objet graphics.

Si tu cherche à faire un graphique, le plus approprié serait de créer un contrôle personnalisé dans lequel tu va déssiner ton graphique, par rapport à sa taille,
Ton tableau de points devrat être convertis par rapport à la largeur et à la hauteur (au lieu d'une bitmap de 150 x 150) de ce contrôle puis inversé, de cette façon tu auras un contrôle te permettant de dessiner un graphic, peu importe sa taille.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

Encore moi !!!

j'ai beau testé , et je suis sûre que la solution est là devant mon nez, mais je n'arrive pas à effectuer la "petite inversion" dont tu as parlé tout à l'heure.
j'ai tenté d'inverser la place entre les X et Y, ou encore de multiplier les valeurs de mon tabY par -1 pour aller dans l'autre sens,.... mais en vain!!

Mayzz · Answer

c'est simple, 

Exemple : Soit le Point z = (100; 10)

z.Y = Img.Height - Y Soit z.Y 150 -10 = 140

Après inversion on obtient le poin z (100; 140)

Ce qui inverse les coordonnées de bas en haut.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

t'es trop fort! merci !
je vais faire cela de ce pas  !
j'aurais sûrement d'autres question plus tard
de toutes façons ,je te tiens au courant quand mon projet de graphique sera fini (là ce n'est que le début, chaque chose en son temps)
je posterais un imprime-écran !!! lol

sigrid1983 · Answer

Encore moi !!! lol

J'ai fait comme tu m'as dit, et maintenant j'ai mon graphique dans le bon sens , je suis contente :)

Une autre question: j'ai donc utilisé DrawLines (cf. code1 dans un précédent post) et il me relie les deux extrêmités (par exemple le point0 avec le point499, vu que j'ai 500 valeurs)
Y'a-t-il un moyen d'éviter cela , ou bien dois-je me résigner à utiliser DrawLine (comme dans code2 d'un précédent post)

Mayzz · Answer

As-tu bien vérifié tes points ? DrawLines ne relie pas le 1er et le dernier point, car c'est le rôle de la fonction DrawPolygon, tu as du faire une erreur lors du remplissage de tes tableaux de coordonnées.

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

Salut,

Pour tracer l'axe des ordonnées, j'ai fait:
         g.DrawLine(Pens.Black, 0, 0, 0, momBitmap.Height)      no problem!
Pour l'axe des abscisses, j'ai fait :
       g.DrawLine(Pens.Black,  0, momBitmap.Height, monBitmap.Width, monBitmap.Height) 
et ce dernier n'apparaît pas.

Sachant que le bitmap (appelé monBitmap), dans lequel s'affiche mon graphique g, est plus petit que la picturebox (appelée maPicturebox)
Je ne devrais pas avoir de soucis puisque monBitmap.Width <maPicturebox.Width et que monBitmap.Height < maPicturebox.Height

Enfin ,je crois...

Je me demandais aussi comment afficher du texte pour donner la définition de l'axe des ordonnées (texte écrit dans le sens de l'axe des Y) ?

Mayzz · Answer

En théorie c'est :

g.DrawLine(Pens.Black, 0, 0, 0, momBitmap.Height - 1)

g.DrawLine(Pens.Black,  0, momBitmap.Height - 1, monBitmap.Width - 1, monBitmap.Height - 1)

Voila ;O) comme ca je pense que ca ira mieu ! 

@+
                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

j'allais justement te dire que je venais de trouver qu'en mettant "-1" ça marchait  ! ^^


mais je n'ai pas eu de problème pour l'axe des Y (alors que je n'avais pas mis -1)


Une question: si je veux mettre des graduations sur mes axes, il faut que je dessine des points avec Pset à chaque endroit désiré


De plus , si je veux nommer les graduations (ce qui équivaut à mettre du texte le long des axes), existe - t-il une option pour cela

@+

Mayzz · Answer

"mais je n'ai pas eu de problème pour l'axe des Y (alors que je n'avais pas mis -1)" <== ca parait normal si t'en saisie la logique...



Pas de Pset en .Net non plus... Drawligne tjs en faisant une boucle... pour les textes DrawString

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

bah... justement je n'ai pas compris pourquoi il fallait mettre "-1" 
ça fonctionne, j'avance dans la réalisation de mon graphique, mais il est vrai que j'aimerais comprendre tout ce que je fais et ne pas me contenter d'appliquer les choses. 
Peut-être pourrais-tu m'éclairer? :)
Si cette question t'ennuie, ne t'embête pas avec ça ;)

En tout cas, merci de passer du temps pour me répondre et me guider, c'est très sympa

Mayzz · Answer

Bah en fait c'est simple ton image fait 150 de large, et si tu lui demande de tracer un trait de  0 alors l'arrivé sera forcément 149 !

150 = de 0 à 149, du coup c'est valable dans les deux sens

Pour ton axe Y, il est placer sur 0 donc il part de 0,0 (coin haut gauche) pour aller à 0,150 (coin haut droit), ce qui fait qu'il est visible, il dépasse seulement d'un pixel vers la droite(le trait étant collé en haut de ta bitmap)

Pour l'axe X il part de 0,150 (bas gauche de la bitmap), pour aller à 150,150 (coin bas droite), donc il sort de ton image, il est donc invisible...., le maximum étant 149...

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

ok!  ^^ 
je te mets l'image de mon graphique (je n'ai pas encore fait les graduations car je voudrais faire une échelle logarithmique sur les abscisses, et j'avoue que je galère un peu pour modifier mes valeurs car je n'avais utilisé ce genre d'échelle auparavant)
l'important c'est que tu vois mon graphe:

Mayzz · Answer

Ben, heu... Le souci c'est que j'le vois pas !!! 8(

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

ah mince!
je dois pas être très douée pour insérer les images

sigrid1983 · Answer

Salut,

je me pose une question (encore! lol): 
voilà, maintenant que j'arrive à tracer ma courbe, j'aimerais pouvoir en  tracer plusieurs sur le même graphique.
Pour ça pas de problème, j'ai fait une boucle qui me reproduit mon DrawLines autant de fois que je veux et les courbes s'affichent.
Ma question est la suivante: comment faire pour avoir une couleur de courbe différente ne sachant pas à l'avance combien de courbe je vais tracer?
En effet, dans mon programme final, le but est de choisir parmi un panel de données quelques "tableaux de valeurs" et de tracer les courbes correspondantes quand on clique sur le bouton que j'ai nommé "Graphique". 
Avant de cliquer sur le bouton, je peux donc très bien avoir choisi l'équivalent de deux courbes comme je peux choisir 10 courbes.

mici d'avance

Mayzz · Answer

Je ne vois toujous rien, dépose ton image sur un serveur...

Si tu n'y parviens pas dis le moi je te filerai mon mail, tu me l'enverras au pire, mais je préfère que les conversation restent sur le forum, ça profite à tout le monde ;O)

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

Mayzz · Answer

Désolé, j'avais pas vu ton poste,

Pour tes couleurs, regarde combien de courbes tu peux être amené à avoir au maximum, et prévoi un tableau de couleurs, tout simplement... 

                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer. <

sigrid1983 · Answer

j'enverrai à ton mail perso une image de mon graphique quand je l'aurai terminé, ce sera encore mieux!  (je te tiens au courant quand je compte le faire)


et puis si cela ne te dérange pas, pourras -tu le poster pour moi dans cette conversation, au moins cela profitera à tout le monde aussi 


pour le tableau de couleurs, c'est une très bonne idée, je vais me renseigner sur le nombre maximum de courbes qu'un utilisateur lamba pourrait demander.


merci encore

sigrid1983 · Answer

Salut Mayzz, c'est encore moi! lol


Juste pour dire de ne pas "t'inquiéter", si je ne poste pas de message pendant le week-end. Je reprend mon projet lundi matin.


Bon week-end. 


@++

sigrid1983 · Answer

Bonjour,

Faire le graphique dans un control, ok..........c'est quoi concretement un control ? ^^
Et dans ce cas précis, quel control?
Quelles améliorations cela apporterait-il face à une pictureBox? 
Est ce que ce sont les même fonctions qui y sont utilisées? (DrawLine, etc...)

@+

Sigrid

sigrid1983 · Answer

Un grand merci à toi, Mayzz. Tu m'as beaucoup aidée.

stefbol · Answer

Salut, est ce que ton projet fonctionne sou vb.net 2005 ? Est ce que tu pourrais me l'envoyer car cela m'aiderait beaucoup.

merci

sigrid1983 · Answer

je ne travaille qu'en vb.net 2008
etant débutante, je ne peux pas te dire si ça fonctionne sous vb 2005.

en lisant les messages depuis le debut, cela pourra te guider.

Mayzz · Answer

Re,

Effectivement cela fonctionne en .Net ce qui change du 2005 au 2008 c'est la version du framework. Il y a juste certaines fonctions du framework qui ont évolués, cependant il y a pour la plus part des cas une équivalence.

2005 et 2008 sont donc tous deux très proche. Je suppose que ce code fonctionne en 2005.

sigrid1983 ==> Désolé je n'avais pas vu ta dernière question. Pour y répondre je te dirais donc qu'un contrôle est un composant graphique tel que les boutons ou les listes, en .Net il est possible de créer un composant personalisé qui agit en fonction du code saisis, le bouton par exemple possede une interface graphique, avec une propriétés et des méthodes.

C'est en quelque sorte un bout de programme dans un programme (interface + code)

Tu peux donc créer un composant qui sera charger de dessiner un graphique selon les valeurs que tu donne à ses propriétés, tout comme le texte d'un bouton change lors ce que l'on change sa propriété "Text", l'avantage est que tu pourras te servir de ce composant dans toutes tes applications sans avoir à recopier tout le code.

@+ Mayzz.
                                                                              
Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

sigrid1983 · Answer

ok, merci Mayzz
merci encore pour ton aide.

Sigrid1983

katinka.89 · Answer

Bonjour,
En fait dans le cadre de ma préparation d'une 2ème chance pour ma soutenance d'un projet de fin d'étude, je me permet de vous envoyer ce message vu que c'est presque le même cas 

Pour moi c'est une application développée en VB.net + SQL Server 2008 en n'utilisant qu'une seule table basique de stockage de données SQL sans clé primaire,on me demande de générer l'organigramme de l'application ( aucune idée de koi il s'agit )

et Aussi de présenter graphiquement les données correspondant à 2 champs de ma table

je pense que mon cas est plus simple, du coup je ne suis pas arrivée à m'adapter et suivre les mêmes instructions

Dans l'attente de votre retour 
Merci d'avance

Vb.net 2008 graphique et courbe

39 réponses

Votre réponse

Discussions similaires