Graphique sous Vb.net

Question

Bonsoir ,

Je voulais savoir si quelqu'un serait capable de m'expliquer le principe des "positions de points" sous VB.net.
J'avoue comme ça on ne comprend rien ! 
Je suis censée réaliser un diagramme en bâton sous VB.net . Pour cela j'ai dû calculer des effectis à l'aide d'un programme sous VB.net, pour cela pas de problème! 
Après je dois donc créer un axe (abscisse, ordonnée) pas de soucis là non plus ...Le problème survient quand je dois représenter le diagramme! En effet, lorsque je lui indique les coordonnées de deux points (x,y) pour les relier afin de représenter un rectangle (diagramme) il me fait n'importe quoi ! Il me semble que cela vient du fait qu'il repart de la position (x,y) précédente ... dans ce cas impossible de représenter un rectangle dont la base serait superposée à l'axe des absices! 
J'espère avoir été assez clair, mais j'ai bien peur que non !
A ceux qui oseront essayer de comprendre!
Merci pour vos infos

Kevin.Ory · Answer

Salut Petzuki,

Je comprend ce que tu veux dire, mais je ne comprend absolument pas pourquoi ça ne fonctionne pas chez toi. Peut-être que si on voit ton code (un résumé de préférence, le dessin de l'axe plus un rectangle par ex) on pourra voir ce qui ne va pas...

Graphics.FillRectangle(myBrush, myRect) dessine un rectangle au coordonné absolue, pas relative. (sauf par rapport à une matrice de transformation, Graphics.Transform)

Kevin.Ory · Answer

' 1er baton

        e.Graphics.FillRectangle(Brushes.Blue, New Rectangle(50, 30, 30, 70))
        ' 2ème baton
        e.Graphics.FillRectangle(Brushes.Red, New Rectangle(100, 45, 30, 55))
        ' 3ème baton
        e.Graphics.FillRectangle(Brushes.LightGreen, New Rectangle(150, 35, 30, 65))
        ' L'axe
        e.Graphics.DrawLine(New Pen(Color.Black, 5), 20, 100, 220, 100)

donne:

petzuki · Answer

voici un extrait de mon code ! pas sur qu'on puisse y comprendre grand chose
si je comprend bien il y a plus simple que ce que j'ai écrit seulement nous n'avons pas manipuler le language associé "au dessin" durant l'année donc nous sommes limités, enfin je veux dire par là que nous créons nos programmes avec le peu de moyen que l'on a mais de nouvelles solutions sont les bienvenues! j'essaierais d'adapter ce que tu m'as proposé demain !
Merci pour ton aide 
a+

Dim 



blackpen 

as New 
Pen (Color.Black,2)


Dim 
pointy 

As New 
Point (100, 50)  'coordonnée de l'ordonnée


Dim 
pointx 

As New 
Point (600,300)  'coordonnée de l'abscisse
Dim point0 
As New Point (100,300)
 ' coordonnée du point d'origine

Dim 
pointv 

As New 
Point (90,60)    'coordonnée pour faire une flèche au bout de l'axe


Dim 
pointw 

As New 
Point (110,60) 'coordonnée pour faire une flèche au bout de l'axe


Dim 
points 

As New 
Point (590,310)'coordonnée pour faire une flèche au bout de l'axe


Dim 
pointr 

As New 
Point (590,290)'coordonnée pour faire une flèche au bout de l'axe


Dim 
pointx1 

As New 
Point (i,j)   'coordonnée du premier point du rectangle


Dim 
pointy1 

As New 
Point (l,m) 'coordonnée du deuxieme point du rectangle

g=panel.CreateGraphics
g.DrawLine(blackpen, pointy, pointv)
g.DrawLine(blackpen, pointy, pointw)
g.DrawLine(blackpen, pointx, points)
g.DrawLine(blackpen, pointx, pointr)
g.drawLine(blackpen, point0, pointx)
g.drawLine(blackpen, pointy, point0)

Label1.Text=panel.Height & vbnewline
Label1.Text &= panel.Width & vbnewline
label1.text &= 


Me
.Location.X & vbnewline
Label1.Text &= 

Me
.Location.Y & vbnewline

'permet de calculer les  coordonnées selon les effectifs calculer précèdement à l'aide d'un programme ! 

max=module1.Fmax(teff,cpt)j=0
i=120
t=0
m=250
l=50


For 
t=0 

To 
cpt-1   j=(250-(200*teff(t))/max)
   g.FillRectangle(brushes.Purple,i,j,l,m)
   g.drawString(tmod(t),


New 
Font("verdana",12),brushes.Black,m+50,i)
   i=i+50
   l=l+50


Next

Graphique sous Vb.net

3 réponses

Votre réponse

Discussions similaires