Demande d'aide:Boxplot avec Vb.net

**emable** · 04/11/2013, 12h12

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

**emable** · 04/11/2013, 14h05

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 :

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
 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()

Demande d'aide:Boxplot avec Vb.net

Dotnet

Vue hybride

Discussions similaires

Partager

Partager