s'il vous plait aidez-moi.
j'ai une Form dans laquelle je veux afficher des boxplots mais rien ne s'affiche.
Voila mon code:

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
81
82
83
84
85
86
87
88
89
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Math
 
Public Class Form6
 
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nbrZoneSelected As Integer = 3
        Dim sainson_p As Integer = 20
        Dim chartArea1 As New ChartArea()
        Dim chartArea2 As New ChartArea()
        Dim chartArea3 As New ChartArea()
 
        Dim DataSeries1 As New Series
        Dim DataSeries2 As New Series
        Dim DataSeries3 As New Series
        For i = 0 To nbrZoneSelected - 1
            ListeZonesSelectionnee(i) = "Series" & i + 1
        Next
 
        Chart1.ChartAreas.Add(chartArea1)
        Chart1.ChartAreas.Add(chartArea2)
        Chart1.ChartAreas.Add(chartArea3)
 
        For i = 0 To nbrZoneSelected - 1
            Chart1.Series.Add(ListeZonesSelectionnee(i))
        Next
        Chart1.Series(ListeZonesSelectionnee(0)).ChartArea = chartArea1.Name
        Chart1.Series(ListeZonesSelectionnee(1)).ChartArea = chartArea2.Name
        Chart1.Series(ListeZonesSelectionnee(2)).ChartArea = chartArea3.Name
 
        Dim p(nbrZoneSelected, sainson_p) As DataPoint
        For i = 0 To nbrZoneSelected - 1
            For j = 0 To sainson_p - 1
                p(i, j).XValue = j + 1
                For k = 0 To 999
                    Randomize()
                    p(i, j).YValues(k) = Round(Rnd() * k * 10)
                Next
            Next
        Next
        For j = 0 To sainson_p - 1
            Chart1.Series(ListeZonesSelectionnee(0)).Points.Add(p(0, j))
        Next
        For j = 0 To sainson_p - 1
            Chart1.Series(ListeZonesSelectionnee(1)).Points.Add(p(1, j))
        Next
        For j = 0 To sainson_p - 1
            Chart1.Series(ListeZonesSelectionnee(2)).Points.Add(p(2, j))
        Next
 
        Chart1.Series(0).ChartType = SeriesChartType.BoxPlot
        Chart1.Series(1).ChartType = SeriesChartType.BoxPlot
        Chart1.Series(2).ChartType = SeriesChartType.BoxPlot
        'Epaisseur des traits
        Chart1.Series(0).BorderWidth = 3
        Chart1.Series(1).BorderWidth = 3
        Chart1.Series(2).BorderWidth = 3
 
        Chart1.Series("series1")("BoxPlotWhiskerPercentile") = "5"
        ' Set box percentile
        Chart1.Series(ListeZonesSelectionnee(0))("BoxPlotPercentile") = "30"
        '  Affiche/efface la ligne de la Moyenne
        Chart1.Series(ListeZonesSelectionnee(0))("BoxPlotShowAverage") = "false"
        ' Affiche/efface la ligne de la Mediane 
        Chart1.Series(ListeZonesSelectionnee(0))("BoxPlotShowMedian") = "true"
        ' Show Unusual points : ajout de valeurs externes
        Chart1.Series(ListeZonesSelectionnee(0))("BoxPlotShowUnusualValues") = "true"
 
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotWhiskerPercentile") = "5"
        ' Set box percentile
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotPercentile") = "30"
        '  Affiche/efface la ligne de la Moyenne
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotShowAverage") = "false"
        ' Affiche/efface la ligne de la Mediane 
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotShowMedian") = "true"
        ' Show Unusual points : ajout de valeurs externes
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotShowUnusualValues") = "true"
 
        Chart1.Series(ListeZonesSelectionnee(1))("BoxPlotWhiskerPercentile") = "5"
        ' Set box percentile
        Chart1.Series(ListeZonesSelectionnee(2))("BoxPlotPercentile") = "30"
        '  Affiche/efface la ligne de la Moyenne
        Chart1.Series(ListeZonesSelectionnee(2))("BoxPlotShowAverage") = "false"
        ' Affiche/efface la ligne de la Mediane 
        Chart1.Series(ListeZonesSelectionnee(2))("BoxPlotShowMedian") = "true"
        ' Show Unusual points : ajout de valeurs externes
        Chart1.Series(ListeZonesSelectionnee(2))("BoxPlotShowUnusualValues") = "true"
    End Sub
End Class