Discussion :

[Paray11]

J'ai été initié a à VB 6 et sui en en initiation de VB Net 2003 par les ouvrages de Diane Zak
Excellente pédagogue, mais que de la bureautique! Si on ne veut pas programmer pour le Net, on voit mal à ce niveau l'avantage du VB Net!

Pour les constructions graphiques, représentation des fonctions affine et du 2e degré , paraboles etc....un jeu d'enfant avec VB 6 avec le Pset(x,y) et une boucle for next! C'est le langage Basic (du MS DOS) repris en compte sans déclarations spéciales, et les tracés immédiats!
Dans un autre livre, j'ai pu récupérer pour VB Net 2003, le seul tracé de la droite (Puis des cercles, rectangles ellipse dont je n'ai que faire).
Toute une messe de déclarations pour une simple droite! Et résoudre graphiquement avec ce seul outil droite, un système de droites y = ax + b m'a demandé une mine d'astuces et 4 boucles imbriquées contre une seule en VB6.

Et je n'ai jamais retouvé le point, élément de base pour toute représentation graphique.. Le pset(x,y) est mort !

Quant à printForm disparu, oublions! Pour imprimer, quelle galère !

Voyez: For x = n1 to n2 : y = a/x : pset(x,y) :next x
Et vous avez votre hyperbole en VB 6.
En VB Net, mystère, et sûrement complexité horible ! Tout comme les changements de formulaire qu'il faut déclarer... et j'en passe !
Et je me demande si je ne dois pas revenir au VB 6!
Votre avis ?

[tomlev]

Les possibilités graphiques sont toujours là, seulement on ne les utilise plus de la même façon. Par exemple, pour dessiner sur un Panel, il faut gérer l'évènement Paint de ce Panel. Dans les paramètres de l'évènement, il y a un objet Graphics, qui publie de nombreuses méthodes de dessin.
Il n'y a effectivement plus de fonction pour afficher un point seul... mais dans ton cas, tu peux faire autrement: au lieu de dessiner les points un par un, tu peux dessiner une ligne entre 2 points consécutifs avec la fonction DrawLine. Pour l'objet Pen que cette fonction prend en paramètre, tu peux utiliser un des objets prédéfinis, comme Pens.Black ou Pens.Blue.

[Paray11]

Les possibilités graphiques sont toujours là, seulement on ne les utilise plus de la même façon. Par exemple, pour dessiner sur un Panel, il faut gérer l'évènement Paint de ce Panel. Dans les paramètres de l'évènement, il y a un objet Graphics, qui publie de nombreuses méthodes de dessin.
Il n'y a effectivement plus de fonction pour afficher un point seul... mais dans ton cas, tu peux faire autrement: au lieu de dessiner les points un par un, tu peux dessiner une ligne entre 2 points consécutifs avec la fonction DrawLine. Pour l'objet Pen que cette fonction prend en paramètre, tu peux utiliser un des objets prédéfinis, comme Pens.Black ou Pens.Blue.

Muni de ce seul outil, c'est l'idée que j'ai eu! Et je te remercie!
Mais comment alors tracer une parabole ou une hyperbole représentant une fonction ?
VB Net et 100 fois plus compliqué que VB6, je trouve! Tout ce qu'il fait, il change les instructions, pour arriver idem en bureautique, et complètement étriqué et complexe graphiquement!

Obligé de développer un for next pour les points de départ et un autre pour ceux d'arrivée... (3 lignes seulement en vb 6).
Note: x0 = 18 * x + 400
y0 = -18 * y + 280 sont seulement MES formules de changement de mon repère tracé et gradué.

' Droite 1

For x = -300 To 300 Step 5
y = (c1 - a1 * x) / b1
x0 = 18 * x + 400
y0 = -18 * y + 280

For xn = -300 To 300 Step 5
yn = (c1 - a1 * xn) / b1
x1 = 18 * xn + 400
y1 = -18 * yn + 280
GraphicsFun.DrawLine(PenColor, x0, y0, x1, y1)
Next xn
Next x

[Pol63]

je vois pas pourquoi 2 boucles
il suffit d'avoir 2 objets drawing.point
un pour l'ancien et un pour le nouveau calculé dans la boucle
et une ligne entre les 2
puis old = new

.net n'est pas plus compliqué que vb6 pour ce genre de choses quand meme !

[Paray11]

je vois pas pourquoi 2 boucles
il suffit d'avoir 2 objets drawing.point
un pour l'ancien et un pour le nouveau calculé dans la boucle
et une ligne entre les 2
puis old = new

.net n'est pas plus compliqué que vb6 pour ce genre de choses quand meme !

Bon, je suis en initition en VB Net 2003, et je sais peu de choses, rien en graphisme!
Et je te remercie de ton conseil (Pas trop compris d'ailleurs et pour cause)


Plus compliqué le Net, ah si!
Vois déjà le préambule pour une simple droite:

Dim x, y, x1, y1, x0, y0 As Single
Dim xn, yn As Single

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

Dim PenColorAxe1 As New System.Drawing.Pen(System.Drawing.Color.Black)
GraphicsFun.DrawLine(PenColor etc, etc

Alors que vb6 les axes étant tracés selon son choix.....(Idem en Net)
Puis :
for x = n1 to n2
y = a*¨x^2 + b *x + c
pset (x,y)
Netx x

Et hop! 4 lignes ! La parabole 2e du degré est tracée sans appel à une classe, ni rien d'autre...pas de "grand-Messe" avant...

Alors que je n'ai toujours pas trouvé de réponses à ma question : comment tracer simplement la représentation des fonctions y = n/x et
y = ax² + by + c par exemple ?

Et j'ai déjà 2 livres: Diane Zak et Michael Halvorson de Microsoft!

Pour Zak = silence ! Des factures ! Seul le deuxième de MS aborde le graphisme : 2 pages vite fait...pour une droite, un rectangle un cercle...et débrouille toi! Comme si ceci était tabou, d'un autre niveau...
Même le basic de Ms Dos on pouvait même tracer la représentation graphique de fonctions du 1er, 2e ou 3e degré en quelques lignes simples, des fonctions Sinus....selon un principe identique ...
Du basic, ou Turbo Basic, j'ai au moins 10 livres où c'est expliqué, ainsi l'algo d'Euclide etc...ce que, intelligemment, reprend en compatibilité VB 6.
Merci et à plus tard !

[Pol63]

il suffit de connaitre 1 millionième des possibilités graphiques du framework pour faire ca, je comprends pas ton problème


pour tracer une courbe, on fait évoluer X dans une boucle for et on calcule Y

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim old_pt, new_pt as System.Drawing.Point
for x blabla ...
  new_pt.x = x
  new_pt.y = calcul de y
  me.Creategraphics.Drawline(old_pt,new_pt)
  old_pt = new_pt
next

il ne reste plus qu'à gérer le premier tour ou old_pt est à 0;0, surement calculer un old_pt pour le 1er x

y a quoi de compliqué la dedans ??

une fois que t'auras compris tout ca, si l'affichage est pas rapide, fais des recherches sur bufferedgraphics

[Bluedeep]

Mais comment alors tracer une parabole ou une hyperbole représentant une fonction ?

En utilisant la bibliothèque zedGraph (par exemple) et en n'essayant pas de réinventer l'eau chaude.(car c'est toujours très chronophage).

[Paray11]

il suffit de connaitre 1 millionième des possibilités graphiques du framework pour faire ca, je comprends pas ton problème


pour tracer une courbe, on fait évoluer X dans une boucle for et on calcule Y

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim old_pt, new_pt as System.Drawing.Point
for x blabla ...
  new_pt.x = x
  new_pt.y = calcul de y
  me.Creategraphics.Drawline(old_pt,new_pt)
  old_pt = new_pt
next

il ne reste plus qu'à gérer le premier tour ou old_pt est à 0;0, surement calculer un old_pt pour le 1er x

y a quoi de compliqué la dedans ??

une fois que t'auras compris tout ca, si l'affichage est pas rapide, fais des recherches sur bufferedgraphics

Oui, mais lisez-moi bien, en initiation, là je découvre complètement; et on est aux antipodes de VB 6 vous le savez et en graphique je suis à 0 + 0 ! Et la grande muette dans mes livres achetés! Les collections parallèles, les paramètres send et e, là oui ! Même les fichiers à accès direct..
En clair, où apprenez-vous tout ça, vous ? Vous avez un livre de référence, jamais je n'ai lu comment gérer un point ???

Je vais essayer de comprendre ça seul en attendant ! Thanks!

[Pol63]

ah, moi pour passer de vb6 à vb.NET j'ai utilisé le site/cours de philippe lassere, plutot connu dans le coin

un peu choqué sur certains trucs au début, comme vous
mais au bout d'un moment on apprécie (si ce n'est plus), surtout quand on revoit l'interface de vb6 avec les quelques (enfin beaucoup plus) lignes de code qui vont avec

pour le reste, l'intellisense est plutot très performante, chaque chose est expliquée dans les propositions
reflector est aussi un outils quasi indispensable une fois qu'on y a gouté

[Paray11]

il suffit de connaitre 1 millionième des possibilités graphiques du framework pour faire ca, je comprends pas ton problème


pour tracer une courbe, on fait évoluer X dans une boucle for et on calcule Y

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim old_pt, new_pt as System.Drawing.Point
for x blabla ...
  new_pt.x = x
  new_pt.y = calcul de y
  me.Creategraphics.Drawline(old_pt,new_pt)
  old_pt = new_pt
next

il ne reste plus qu'à gérer le premier tour ou old_pt est à 0;0, surement calculer un old_pt pour le 1er x

y a quoi de compliqué la dedans ??

une fois que t'auras compris tout ca, si l'affichage est pas rapide, fais des recherches sur bufferedgraphics

Bon, OK, merci à toi, j'aurais appris ici (et de toi, là), quelque chose plus vite que dans les bouquins! Et en effet ça marche aussi pour la droite! (Mais en mettant tous les "préambules" que j'avais vu sur livre de Halvorson, non remises ici.)
Pour la parabole, en revanche , ça marche aussi, mais ça bugue, car la parabole tracée, très, très bien, la branche gauche continue ensuite sa course en ligne droite jusqu'à(0.0) en coordonnées vraies de formulaire. Sauf si les branches vont au bord supérieur du formulaire. C'est joli, mais pas trop mathématiques.

Dans ce cas ci-dessous par exemple!

Pour explication, j'ai tracé un repère cartésien de centre O(400,280) et de vecteurs i et j respectivement de 18 et - 18 pixels (par unité, donc).
Mes formules de changement de repère sont ainsi x0 = 18 * x + 400 et
y0 = -18 * y + 280

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim PenColorparabole As New_ System.Drawing.PenSystem.Drawing.Color.Black)
        Dim old_pt, new_pt As System.Drawing.Point
        For x = -10 To 10
            y = 0.1 * x ^ 2
            x0 = 18 * x + 400
            y0 = -18 * y + 280
 
            new_pt.X = x0
            new_pt.Y = y0
 
            Me.CreateGraphics.DrawLine(PenColorParabole, old_pt, new_pt)
 
            old_pt = new_pt
        Next x

Là, pas encore compris comment corriger cette prolongation par un segment de droite. Sans doute diminuer la fouchette -10 ; 10, mais bon!

PS: Mais merci au forum d'être conforme à son titre; j'en connais un si vous déposez comme ça une source jugée trop simple (pour eux!), on vous le dit, vous encombrez ....sympa moyen...

[Pol63]

lors du premier tour, old_pt = (0,0), n'étant pas initialisé
y a ptete ca qui t'embete aussi

[SaumonAgile]

Dans ce cas ci-dessous par exemple!
[...]
PS: Mais merci au forum d'être conforme à son titre; j'en connais un si vous déposez comme ça une source jugée trop simple (pour eux!), on vous le dit, vous encombrez ....sympa moyen...

Parlant de sources justement, le code doit être encadré avec les balises [CODE] (bouton # dans l'éditeur de texte).

Concernant ton problème, je pense sincèrement qu'au lieu d'essayer de faire une comparaison tout à fait subjective de VB6 et VB.NET, tu devrais commencer par voir ce qui existe concernant les graphiques en .NET (prononcé dot net) .
Par exemple : il existe ELMathSolver .NET qui devrait t'intéresser.

[Paray11]

lors du premier tour, old_pt = (0,0), n'étant pas initialisé
y a ptete ca qui t'embete aussi

Non ! Ma graduation perso allant de -22 à + 22, il suffit de faire x dans cette fourchette et c'est super! Je suis très content!
Au modérateur, merci du conseil ainsi qu'à tous! Mais lmathSolver est en anglais et moi...
Je mets le code complet au cas où ça servirait:

code
Private Sub TracerButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TracerButton.Click

'Milieu(400, 280); formulaire : 25 x 16,5 utilisables cm ou 800 x 560 pixels; unité-vecteur: 18 pixels = 5 mm

Dim x, y, x1, y1, x0, y0 As Single
'Dim xn, yn As Single

Dim GraphicsFun As System.Drawing.Graphics

GraphicsFun = Me.CreateGraphics

'Tracé axe horizontal
Dim PenColorAxe1 As New System.Drawing.Pen(System.Drawing.Color.Black)
GraphicsFun.DrawLine(PenColorAxe1, 0, 280, 800, 280)

'Tracé graduation horizontale négative
Dim PenColorhn As New System.Drawing.Pen(System.Drawing.Color.Black)
x = 382 : x1 = 380
Do
GraphicsFun.DrawLine(PenColorhn, x, 279, x1, 279)
x = x - 18 : x1 = x - 2
Loop Until x <= 0 OrElse x1 <= 0

'Graduation horizontale positive
Dim PenColorhp As New System.Drawing.Pen(System.Drawing.Color.Black)
x = 418 : x1 = 420 : y = 279
Do
GraphicsFun.DrawLine(PenColorhp, x, 279, x1, 279)
x = x + 18 : x1 = x + 2
Loop Until x >= 800 OrElse x1 >= 800

'Tracé axe Vertical
Dim PenColorAxe2 As New System.Drawing.Pen(System.Drawing.Color.Black)
GraphicsFun.DrawLine(PenColorAxe2, 400, 0, 400, 560)

' Graduation verticale négative
Dim PenColorvn As New System.Drawing.Pen(System.Drawing.Color.Black)
y = 262 : y1 = 260
Do
GraphicsFun.DrawLine(PenColorvn, 401, y, 401, y1)
y = y - 18 : y1 = y - 2
Loop Until y <= 0 OrElse y1 <= 0

' Graduation verticale positive
Dim PenColorvp As New System.Drawing.Pen(System.Drawing.Color.Black)
y = 298 : y1 = 300
Do
GraphicsFun.DrawLine(PenColorvn, 401, y, 401, y1)
y = y + 18 : y1 = y + 2

Loop Until y >= 560 OrElse y1 >= 560


'Dim old_pt, new_pt As System.Drawing.Point

Dim PenColorParabole As New System.Drawing.Pen(System.Drawing.Color.Red)

x1 = 0 : y1 = 0 : old_pt.X = 0 : old_pt.Y = 0
For x1 = -22 To 22

y1 = ap * x1 ^ 2
x0 = 18 * x1 + 400
y0 = -18 * y1 + 280
new_pt.X = x0
new_pt.Y = y0


Me.CreateGraphics.DrawLine(PenColorParabole, old_pt, new_pt)

old_pt = new_pt
Next x1

End Sub"
code
Fincode
Les entrées des coefficients sur un formulaire de départ et les variables en Public sur un module.
Merci à tous et à bientôt!

[Paray11]

lors du premier tour, old_pt = (0,0), n'étant pas initialisé
y a ptete ca qui t'embete aussi

Je disais plus bas, problème résolu, mais...De toute façon, avec ce code que m'a soufflé Sperot et que je remercie vivement, le prob est bien dans ma fourchette de for x= m to n.
Mais il faut au contraire qu'elle dépasse ma graduation -22; 22.
Car à un moment, mon graphique tracé, et même si c'est une simple droite, se dessine une droite parasite qui reprende les coordonnées normales de l'écra, soi (0,0) au coin supérieur gauche de l'écran.

La boucle s'échappe de mes changements de repère. Mais si j'augmente ma fourchette for next, possible que cette droite parasite est invisible car hors de ma fenêtre . Car Net utilise le pixel écran et la carte graphique!
Donc, il faudrait sans doute dans la boucle poser une limite en fonction de mes coordonnées perso relatives à mon chagement de repère!
Quelle limite et comment, je devrai y réfléchir.

A noter au passage que je n'ai aucun ralentissement avec ce code, même avec un step de 0.1, tandis qu'avec la formule de la droite (x1,x2, x3, x4) je devais mettre step >1, car là oui, ralentissement!

Au modérateur: jai encadré mon code par # , mais rien n'a changé en apparence ...
A bientôt! Encore merci à tous !

[Pol63]

pour l'entourage de code avec # c'est pas # qu'il faut mettre
mais il faut sélectionner le code et cliqué sur le bouton "#"
qui fera apparaitre

sinon pour gagner en rapidité, tu peux déssiner sur un objet style bufferedgraphics puis basculé le dessin à l'écran
car déssiner x fois directement à l'écran est x 10aine de fois plus lent