nefertitian
New member
- Joined
- Apr 3, 2009
- Messages
- 2
- Programming Experience
- Beginner
Hi,
I come primarily from a unix background and relatively new to windows platform. I have been trying to write a simple box chart program in VB.Net but does not seem to work...any help is greatly appreciated...
Here is the code so far:
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeComponent()
Dim DataSeries As New Series
Dim BoxPlotSeries As New Series
Dim yValues As Double() = {55.62, 45.54, 73.45, 9.73, 88.42, 45.9, 63.6, 85.1, 67.2, 23.6}
Dim ChartArea2 As New ChartArea
Chart1.ChartAreas.Add(ChartArea2)
DataSeries.Name = "FirstDataSeries"
BoxPlotSeries.Name = "BoxPlotSeries"
BoxPlotSeries.ChartType = SeriesChartType.BoxPlot
BoxPlotSeries.IsValueShownAsLabel = True
BoxPlotSeries.IsVisibleInLegend = True
DataSeries.Points.DataBindY(yValues)
Chart1.Series.Add("DataSeries")
Chart1.Series.Add("BoxPlotSeries")
' Add data to Box Plot Source series.
Chart1.Series("DataSeries").Points.DataBindY(yValues)
' Specify data series name for the Box Plot.
Chart1.Series("BoxPlotSeries")("BoxPlotSeries") = "DataSeries"
' Set whiskers 15th percentile.
Chart1.Series("BoxPlotSeries")("BoxPlotWhiskerPercentile") = "15"
' 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")("BoxPlotShowUnusualValues") = "true"
Chart1.Series("BoxPlotSeries")("PointWidth") = "2"
'Chart1.Series.Add("boxplotseries")
'MsgBox(Chart1.Series.ToString)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub Form1BindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
I come primarily from a unix background and relatively new to windows platform. I have been trying to write a simple box chart program in VB.Net but does not seem to work...any help is greatly appreciated...
Here is the code so far:
Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeComponent()
Dim DataSeries As New Series
Dim BoxPlotSeries As New Series
Dim yValues As Double() = {55.62, 45.54, 73.45, 9.73, 88.42, 45.9, 63.6, 85.1, 67.2, 23.6}
Dim ChartArea2 As New ChartArea
Chart1.ChartAreas.Add(ChartArea2)
DataSeries.Name = "FirstDataSeries"
BoxPlotSeries.Name = "BoxPlotSeries"
BoxPlotSeries.ChartType = SeriesChartType.BoxPlot
BoxPlotSeries.IsValueShownAsLabel = True
BoxPlotSeries.IsVisibleInLegend = True
DataSeries.Points.DataBindY(yValues)
Chart1.Series.Add("DataSeries")
Chart1.Series.Add("BoxPlotSeries")
' Add data to Box Plot Source series.
Chart1.Series("DataSeries").Points.DataBindY(yValues)
' Specify data series name for the Box Plot.
Chart1.Series("BoxPlotSeries")("BoxPlotSeries") = "DataSeries"
' Set whiskers 15th percentile.
Chart1.Series("BoxPlotSeries")("BoxPlotWhiskerPercentile") = "15"
' 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")("BoxPlotShowUnusualValues") = "true"
Chart1.Series("BoxPlotSeries")("PointWidth") = "2"
'Chart1.Series.Add("boxplotseries")
'MsgBox(Chart1.Series.ToString)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub Form1BindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class