Discussion :

[krnkrnc]

Bonjour,

Je suis actuellement sur un projet qui consiste à actualiser un programme VB6 en Dot Net.

Une des fonctionnalité du programme est de créer un graphique à partir de points rentrés par l'utilisateur dans un datagrid, puis de créer une courbe de tendance et enfin d'ajuster la courbe en la déplaçant avec la souris. Lorsque que la courbe est déplacée, les coordonnées des points sont recalculées ainsi que l'équation de la courbe (ces données recalculées vont servir par la suite).

Si la première partie ne me pose pas de problème particulier (créer le datagrid, la courbe), je ne trouve nulle part comment faire pour pouvoir interagir sur la courbe avec la souris.


Ma question est donc la suivante, dans Visual studio .net, peut-on modifier une courbe d'un graphique à l'aide de la souris et que les nouvelles données soient prises en compte ?

Merci si vous pouvez m'aider, soit en m'orientant vers un cours avec des exemple ou un tuto, ou un m'indiquant un exemple concret.

Krn

[Phil Rob]

Bonjour,

Je n'ai pas la solution à ton problème, mais voici 2 outils permettant de connaitre la position en X et Y du curseur de la souris. Il devrait donc te permettre de connaître la position d'un point du graphe et te permettre aussi de désigner la position à laquelle tu veux poser un point.

Ces outils sont les événements MouseClick et MouseMove détecté sur le contrôle qui présente le graphe. Ces événements donnent les coordonnées du curseur.
Attention, MouseMove s'active à chaque changement de pixel. MouseClick ne s'active qu'au moment du clic.

Voici des exemples :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        Dim X As Long = e.X
        Dim Y As Long = Me.Height - e.Y  ' Inversion de l'axe Y pour correspondre à la réprésentation ordinaire
        MessageBox.Show("X = " & X.ToString & " y = " & Y.ToString)
    End Sub
 
    Private Sub PictureBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseClick
        Dim X As Long = e.X
        Dim Y As Long = PictureBox1.Height - e.Y  ' Inversion de l'axe Y pour correspondre à la réprésentation ordinaire
        MessageBox.Show("X = " & X.ToString & " y = " & Y.ToString)
    End Sub
 
    'Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
    '   ...
    'End Sub
 
    'Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    '   ...
    'End Sub

J'espère que ceci t'aidera ...

[krnkrnc]

Bonjour Phil Rob,

Ca n'est peut-être pas la solution, mais depuis un moment que je tourne en rond, je n'avais pas envisagé le problème sous cet angle.
Jusqu'à maintenant j'essayais de trouver comment faire bouger la courbe.
Mais après votre réponse, je me dis que si je définis un nouveau point en récupérant les coordonnées via MouseClick et que je modifie la courbe après coup, ça peut-être une bonne alternative ou du moins un objectif à ma portée.

En tout cas merci, je vais essayer d'avancer dans ce sens en attendant l'illumination

[Phil Rob]

Je ne maîtrise pas du tout la programmation “graphique”, mais j'ai peut-être une piste complémentaire ...
Si le graphe est un System.Drawing.Graphics, par exemple Dim MonGraphe As System.Drawing.Graphics, affecté au contrôle conteneur du graphe comme ceci (avec un PictureBox par pour l'exemple : PictureBox1.CreateGraphics, il existe de nombreuses méthodes de manipulation, et même de déplacement du graphe.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
' Au niveau gloabl du Form
 
Dim LineaH As System.Drawing.Graphics 
Dim LineaV As System.Drawing.Graphics 
 
' Dans le code d’un bouton BDessiner :
 
    Private Sub BDessiner_Click(sender As Object, e As EventArgs) Handles BDessiner.Click
 
        LineaH = PictureBox1.CreateGraphics()  
        LineaV = PictureBox1.CreateGraphics()
 
        Dim XLeft As Long
        Dim XRight As Long
        Dim YBottom As Long
        Dim YTop As Long
 
        XLeft = 0
        XRight = PictureBox1.Width
        YBottom = 0
        YTop = PictureBox1.Height
 
        Try
' Le TextBox TB_X contient la valeur X d’un point donné
            Dim X As Long = TB_X.Text 
' Le TextBox TB_Y contient la valeur Y du même point donné
            Dim Y As Long = YTop - TB_Y.Text 
 
' Tracer une ligne horizontale et une ligne verticale ayant le point donné pour intersection (traçage d’un réticule)
            LineaH.DrawLine(Drawing.Pens.Black, XLeft, Y, XRight, Y)
            LineaV.DrawLine(Drawing.Pens.Black, X, YBottom, X, YTop)
        Catch
            MessageBox.Show("Valeurs X et/ou Y non convenables")
       End Try
End Sub
 
' Ailleurs …
 
LineaH.Translate ......... ' ici chercher la méthode adéquate, cf. illustration ci-dessous

Mais je suppose que TranslateTransform concerne le graphe en entier, soit la ligne horizontale dans cet exemple. Je ne sais pas ce qu'il en sera si le graphe est une succession de points ...

[Pol63]

il faut coder toute l'interaction ...

le plus simple c'est si tu as fait un usercontrol pour dessiner la courbe et que tu fais du drawline/drawcurve
par exemple sur mousemove tu peux chercher le point le plus proche et lui ajouter un cercle autour de lui, sur le mouse down si tu es proche du point tu démarres un procédé de déplacement (enregistrer les coordonnées, gérer l'incrément de déplacement) , et sur le mouse up si tu étais en train de déplacer un point tu l'enregistres avec ses nouvelles coordonnées

[krnkrnc]

Bonjour Pol63,

Pour tracer mes courbes je pensais partir sur quelque chose comme ça (ça n'est pas tout à fait au point, mais c'est l'idée générale) :

Extrait du code :

'Créer le graphique Pcorr=f(Vbrut)

Code :

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

1
2
3
4
5
6
7
        ChartCourbePressio.Series.Clear()
        ChartCourbePressio.Series.Add(New DataVisualization.Charting.Series("V = f(P)"))
        ChartCourbePressio.Series.Item(0).ChartType = False
        ChartCourbePressio.Series.Item(0).MarkerStyle = DataVisualization.Charting.MarkerStyle.Circle
        ChartCourbePressio.Series.Add(New DataVisualization.Charting.Series("Vfluage = f(P)"))
        ChartCourbePressio.Series.Item(1).ChartType = False
        ChartCourbePressio.Series.Item(1).MarkerStyle = DataVisualization.Charting.MarkerStyle.Cross

'Afficher les points d'etalonnage

Code :

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

1
2
3
4
5
6
7
        ChartCourbePressio.Visible = True
        For Each Ligne As DataGridViewRow In DataGridView1.Rows
            If Not IsNothing(Ligne.Cells.Item(1).Value) Then
                ChartCourbePressio.Series.Item(0).Points.AddXY(Ligne.Cells.Item(1).Value, Ligne.Cells.Item(2).Value)
                ChartCourbePressio.Series.Item(1).Points.AddXY(Ligne.Cells.Item(1).Value, Ligne.Cells.Item(4).Value)
            End If
        Next

'tracer la courbe de tendance point 1 à P0

Code :

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

1
2
3
4
        '  ChartCourbePressio.Series.Add("Trendline")
        '  ChartCourbePressio.Series("Trendline").ChartType = SeriesChartType.Line
        '  ChartCourbePressio.Series("Trendline").Color = Color.Red
        '  ChartCourbePressio.DataManipulator.FinancialFormula(FinancialFormula.Forecasting, "power,1,false,false", ChartCourbePressio.Series.Item(0), ChartCourbePressio.Series("Trendline"))

'tracer la courbe de tendance P0 à Pe

Code :

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

1
2
3
4
        '  ChartCourbePressio.Series.Add("Trendline1")
        '  ChartCourbePressio.Series("Trendline1").ChartType = SeriesChartType.Line
        '  ChartCourbePressio.Series("Trendline1").Color = Color.Blue
        '  ChartCourbePressio.DataManipulator.FinancialFormula(FinancialFormula.Forecasting, "linear,1,false,false", ChartCourbePressio.Series.Item(1), ChartCourbePressio.Series("Trendline1"))

'tracer la courbe de tendance Pe à dernier point

Code :

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

1
2
3
4
        '  ChartCourbePressio.Series.Add("Trendline2")
        '  ChartCourbePressio.Series("Trendline2").ChartType = SeriesChartType.Line
        '  ChartCourbePressio.Series("Trendline2").Color = Color.Green
        '  ChartCourbePressio.DataManipulator.FinancialFormula(FinancialFormula.Forecasting, "power,1,false,false", ChartCourbePressio.Series.Item(2), ChartCourbePressio.Series("Trendline2"))

Dans l'idéal, mon chef aimerait pouvoir déplacer un point de la courbe en visualisant en direct le déplacement et qu'une fois qu'il a choisi la position de la courbe, les points soient modifiés afin de recalculer les coefficients. Mais ça dépasse largement le domaine de mes compétences !
A minima, il faut pouvoir déplacer les bornes de la partie linéaire et redessiner le tout.
Vue mes capacités, la solution proposée par Phil Rob me parle un peu plus. Est-ce que vous pensez que redéfinir les bornes de la partie linéaire avec un MouseClick en codant le remplacement des coordonnées puis la modifications des courbes de tendances et enfin le recalcul des coefficients pourrait marcher ? Si c'est le cas, je partirai surement là-dessus pour avoir quelque chose de fonctionnel, quitte à l'améliorer par la suite. Chaque jour j'apprends de nouvelles choses

En tout cas merci de vos réponses

[Phil Rob]

Est-ce que vous pensez que redéfinir les bornes de la partie linéaire avec un MouseClick en codant le remplacement des coordonnées puis la modifications des courbes de tendances et enfin le recalcul des coefficients pourrait marcher ?

Bonjour,

Sous réserve de la complexité des calculs, si tu peux faire ce que tu envisages sur base du MouseClick, tu peux le faire aussi sur base d'un MouseMove c'est-à-dire à chaque changement de position du curseur.
Cela montrera le déplacement d'un point en temps réel, ou presque, à condition que le temps du traitement entre chaque pixel soit bref ...
...

[excalybur]

Bonjour,

Certes ce que je te propose n'est pas la solution à ton problème mais permet de bien comprendre toutes les possibilité de mousedowm/move/up etc en mode graphique. Si cela peut t'aider. Je m'en suis inspiré pour faire un programme de jeu avec graphiques variables entre autre.

http://vb-helper.com/howto_net_drawing_framework.html

[umfred]

Pour la modification de la courbe, je ne vois qu'utiliser la position du curseur de la souris pour définir les nouvelles coordonnées d'un point (après clic) et mettre à jour et la table de données et la courbe en résultant

[krnkrnc]

Merci à tous,

Après avoir longuement consulté la littérature et d'après vos conseils, j'ai appliqué la méthode de umfred avec le MouseClick proposé par Phil Rob.
Je vous mets le code si ça vous intéresse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub ChartCourbePressio_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ChartCourbePressio.MouseClick
        ' Appel HitTest qui retourne l'objet sous le curseur
        Dim resultk As HitTestResult = ChartCourbePressio.HitTest(e.X, e.Y)
 
        ' Si la souris est sur un data point
        If resultk.ChartElementType = ChartElementType.DataPoint Then
            If resultk.Series.Name = "V = f(P)" Then
                ' Chercher quel data point dans la series
                Dim pointk1 As DataPoint = ChartCourbePressio.Series(0).Points(resultk.PointIndex)
                Dim Coord
                Coord = pointk1.XValue
 
                ' ouvrir une fenêtre de dialogue
                If MessageBox.Show("Voulez-vous remplacer V0,P0 par le point sélectionné ?", "Modification P0,V0 ou Pe,Ve", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                    'chercher les coordonnées x,y dans le datagrid et cocher la case P0,V0 correspondante
 
                    For i = 0 To DataGridView1.Rows.Count - 1
                        If DataGridView1.Item(1, i).Value = Coord Then
                            DataGridView1.Item(5, i).Value = True
                        Else
                            DataGridView1.Item(5, i).Value = False
                        End If
                    Next
 
                Else
 
                    If MessageBox.Show("Voulez-vous remplacer Ve,Pe par le point sélectionné ?", "Modification P0,V0 ou Pe,Ve", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                        'chercher les coordonnées x,y dans le datagrid et cocher la case Pe,Ve correspondante
                        For i = 0 To DataGridView1.Rows.Count - 1
                            If DataGridView1.Item(1, i).Value = Coord Then
                                DataGridView1.Item(6, i).Value = True
                            Else
                                DataGridView1.Item(6, i).Value = False
                            End If
                        Next
                    Else
                    End If
                End If
            End If
        End If
    End Sub

ça n'est sûrement ni le plus court ni le plus propre mais ça fonctionne... alors vu le nombre de défis qui m'attendent encore je vais laisser en l'état et j'y reviendrai peut-être un jour quand je serai plus à l'aise avec la programmation !

Merci Excalybur pour ton lien, il va me servir pour ma prochaine étape.