Demande d'aide:Boxplot avec Vb.net

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:

---

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

---

j'ai trouvé un bout de code qui affiche un boxplot plus un graph des points;
Est ce que c'est possible de n'afficher que le graph de boxplot.
S'il vous plait aidez-moi, je suis perdue.
Merci d'avance ,
voila le code:

Code:

---

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

Dim DataSeries1 As New Series Dim DataSeries2 As New Series Dim DataSeries3 As New Series Dim BoxPlotSeries As New Series Dim yValues1 As Double() = {55.62, 45.54, 73.45, 9.73, 88.42, 45.9, 63.6, 85.1, 67.2, 23.6} Dim yValues2 As Double() = {51.62, 42.54, 33.45, 7.73, 78.42, 55.9, 23.6, 25.1, 67.2, 23.6} Dim yValues3 As Double() = {28.2, 28.4, 28.83, 22.73, 82.11, 11.23, 22.12, 77.77, 66.66, 23.28}   Dim ChartArea1 As New ChartArea Dim ChartArea2 As New ChartArea Dim ChartArea3 As New ChartArea   'Add the charting areas to the chart Chart1.ChartAreas.Add(ChartArea2) Chart1.ChartAreas.Add(ChartArea3) ChartArea2.Name = "Data Chart Area" ChartArea3.Name = "Box Plot Area" 'ChartArea3.AlignWithChartArea = "Data Chart Area" ChartArea2.Position.X = 0 ChartArea2.Position.Y = 0 ChartArea3.Position.X = 70 ChartArea3.Position.Y = 0 ChartArea2.Position.Height = 82.0F ChartArea3.Position.Height = 82.0F ChartArea2.Position.Width = 60.0F ChartArea3.Position.Width = 39.0F   DataSeries1.Name = "DataSeries1" DataSeries2.Name = "DataSeries2" DataSeries1.ChartType = SeriesChartType.Point DataSeries1.ChartArea = "Data Chart Area" DataSeries2.ChartArea = "Data Chart Area" DataSeries2.ChartType = SeriesChartType.Point DataSeries3.Name = "DataSeries3" DataSeries3.ChartArea = "Data Chart Area" DataSeries3.ChartType = SeriesChartType.Point   BoxPlotSeries.Name = "BoxPlotSeries" BoxPlotSeries.ChartType = SeriesChartType.BoxPlot BoxPlotSeries.ChartArea = "Box Plot Area" BoxPlotSeries.IsValueShownAsLabel = True BoxPlotSeries.IsVisibleInLegend = True     Chart1.Series.Add(BoxPlotSeries) Chart1.Series.Add(DataSeries1) Chart1.Series.Add(DataSeries2) Chart1.Series.Add(DataSeries3)   ' Add data to Box Plot Source series. Chart1.Series("DataSeries1").Points.DataBindY(yValues1) Chart1.Series("DataSeries2").Points.DataBindY(yValues2) Chart1.Series("DataSeries3").Points.DataBindY(yValues3) ' Specify data series name for the Box Plot. Chart1.Series("BoxPlotSeries")("BoxPlotSeries") = "DataSeries1;DataSeries2;DataSeries3" ' Set whiskers 15th percentile. Chart1.Series("BoxPlotSeries")("BoxPlotWhiskerPerc entile") = "25" ' Show/Hide Average line. Chart1.Series("BoxPlotSeries")("BoxPlotShowAverage ") = "true" ' Show/Hide Median line. Chart1.Series("BoxPlotSeries")("BoxPlotShowMedian") = "true" ' Show/Hide Unusual points. Chart1.Series("BoxPlotSeries")("BoxPlotShowUnusual Values") = "true" Chart1.Series("BoxPlotSeries")("PointWidth") = "0.25"   Chart1.Location = New System.Drawing.Point(16, 48) Chart1.Size = New System.Drawing.Size(1000, 400) 'Me.ReportViewer1.RefreshReport() 'Me.ReportViewer1.RefreshReport()

---