Discussion :

[nico.mais]

Bonjour
Le programme que j'essaie de réaliser construit au départ d'un tableau crée sur Vb 2010 express un graphique en Vb. Jusque là tout va bien.
Ensuite je dois sélectionner une partie de ce graphique pour en retirer les valeur des axes. Et là ça coince !! J'arrive à afficher les valeurs X et Y dans un Tooltip ou même dans un label sur le graphe mais pas moyen de retirer une valeur d'axe pour l'assigner à une variable.

Votre aide me sera des plus précieuse.
Je ne sais pas si j'ai posté au bon endroit???

Merci bcp d'avance

Nico

[calagan99]

Bonjour,

peux-tu poster un peu de code afin que nous comprenions mieux ce que tu fais et n'arrives pas à faire ?

Merci

[nico.mais]

Bonjour merci de l'aide.

Ci dessous un morceau de mon code. Le but est donc de sélectionner via le graphique une partie des valeurs qui a permis de le creer.
Je sais afficher une info bulle avec les donnée mais je ne sais pas faire une selection. Cette selection doit permettre de creer en quelque sorte une référence qui me servira plus tard à comparer et analyser un signal en live. Donc si tu veux je lance l'acquisition du signal pdt une petite période et ensuite je choisi dans ce signal la partie qui me servira de référence et pour terminer je lance une analyse sur une plus longue période où le signal reçu sera comparé à la référence que j'aurai sélectionné.
Il faut donc que je puisse selectionner directement sur le graphique

d'avance Merci bcp pour les réponses

Mon Code d'essais (en partie):

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'Le textbox 1 simule l'acquisition série des valeurs via Pic
        TextBox1.Text = 0
        For i As Integer = 0 To MonTableau.Length - 1
            x = (Rnd(1) * 20 - 5)       'Génération de nbr aléatoire
            MonTableau(i) = x
            ListBox1.Items.Add(MonTableau(i))
        Next
        Chart1.Series("Series1").ToolTip = "#VALX" + ";#VALY" ' donnée affichée dans une info bulle
 
    End Sub
 
    'un bouton fait apparaitre le graphe 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To MonTableau.Length - 1
            x = MonTableau(i)
            Chart1.Capture = True
            Chart1.Series("Series1").Points.AddXY(i, x)
            Chart1.Series("Series1").ChartType = DataVisualization.Charting.SeriesChartType.SplineArea
            ' spline line tension
            Chart1.Series("Series1")("LineTension") = "0.4"
            ' Enlever la marge de l'axe des X
            Chart1.ChartAreas("ChartArea1").AxisX.IsMarginVisible = False
            'Choix du type de marker
            Chart1.Series("Series1").MarkerStyle = MarkerStyle.Circle  'des marqueur permette de visualiser la valeur sur le graphe
            'Couleur du marker
            Chart1.Series("Series1").MarkerColor = Color.Magenta
 
        Next
    End Sub
 
'C'est ici que je bloque, les commentaire sont les parties que j'ai déja essayé et se qui reste est la valeur qui s'affiche en label lorsque je click sur le graph.
'Pas moyen de selectionner directement et de récupérer la valeur du graphe????
Private Sub Chart1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chart1.Click
 
 
        Dim i As Integer
        Dim j As Array
        Dim reftableau(50) As Integer
        'Enable range selection and zooming end user interface
        'Chart1.ChartAreas(0).CursorX.IsUserEnabled = True
        'Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
        'Chart1.ChartAreas(0).CursorY.IsUserEnabled = True
        'Chart1.ChartAreas(0).CursorY.IsUserSelectionEnabled = True
        'Chart1.Series("Series1").LabelToolTip()
        'ListBox2.Items.Add(a)
        'Chart1.ChartAreas(0).AxisX.ScrollBar.IsPositionedInside = True
        'Chart1.ChartAreas(0).AxisY.ScaleView.Zoomable = True
        'Chart1.ChartAreas(0).AxisY.ScrollBar.IsPositionedInside = True
        ' Autre exemple ToolTip sur tous les points de la series
        'Affichons les valeurs Y au dessus de chaque colonne
        'Chart1.Series(0).IsValueShownAsLabel = True
        ' Chart1.ChartAreas(0).CursorX.IsUserEnabled = True
        'Chart1.ChartAreas(0).CursorX.IsUserSelectionEnabled = True
        'x1 = (Chart1.Series(0).Label)
        'ListBox3.Items.Add(Chart1.Series("Series1").AxisLabel)
        'ref = (Chart1.Series(0).IsValueShownAsLabel)
        'ref = Chart1.Series("Series1").AxisLabel = "#VALX"
        'ref = CDbl(Cursor.Position.X)
        'ref = ChartArea.Position(Devices.Mouse).value
        'i = ChartArea.Position(Devices.Mouse).value
        'For i = LBound(j) To UBound(j)
        '   Debug.Print ("Point"(i)";"="x(i))
        'ref = MonTableau(i)
 
        'Next
        'Affiche les valeurs Y au dessus de chaque colonne
        Chart1.Series(0).IsValueShownAsLabel = True
        ref = System.Windows.Forms.Control.MousePosition.X
        ListBox3.Items.Add(ref)
        'Chart1.Series().Isvaluesshownaslistbox3 = True
        'If x2 <> x1 Then
        'ref = MonTableau(x2)
        'reftableau(i) = ref
        'i = i + 1
        'ListBox2.Items.Add(reftableau(x1))
        'x2 = x2 + 1
        'End If
    End Sub

[Neiflheim]

Je ne sais pas si tu peux "sélectionner" au sens propre du terme, mais tu peux lors du clic sur le graphique vérifier si un point correspond à la zone cliqué (limite avec un petit buffer de quelques pixels), et si il existe tu le supprimes de ta liste initiale, etc...

[nico.mais]

Je ne sais pas si tu peux "sélectionner" au sens propre du terme, mais tu peux lors du clic sur le graphique vérifier si un point correspond à la zone cliqué (limite avec un petit buffer de quelques pixels), et si il existe tu le supprimes de ta liste initiale, etc...

Bojour

Et cette selection je réalise cela comment? Peux tu me donner un morceau du code nécessaire?

Merci