Series rXBARChart = StatisticalEngine.RXBARChart(mySC); rXBARChartArea.SeriesCollection.Add(rXBARChart); }
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random();
for (int a = 1; a < 11; a++) { Series s = new Series(); s.Name = "Series " + a; s.LegendEntry.Visible = false; for (int b = 1; b < 6; b++) { Element e = new Element(); e.Name = "Element " + b; e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; } </script>
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Chart.Type = ChartType.Combo Chart.Width = 600 Chart.Height = 450 Chart.TempDirectory = "temp" Chart.Debug = True Chart.Title = "Sample Data" Chart.ChartAreaSpacing = 0 Chart.ChartArea.HeightPercentage = 40 Dim mySC As SeriesCollection = getRandomData() Chart.SeriesCollection.Add(mySC) Chart.DefaultSeries.Type = SeriesType.Spline Chart.ChartAreaLayout.Mode = ChartAreaLayoutMode.Vertical
Dim rChartArea As ChartArea = New ChartArea("R Chart Example") rChartArea.XAxis = New Axis() rChartArea.XAxis.Interval = 1 rChartArea.YAxis.Interval = 20 rChartArea.TitleBox.Position = TitleBoxPosition.FullWithLegend Chart.ExtraChartAreas.Add(rChartArea)
Dim rChart As Series = StatisticalEngine.RChart(mySC) rChartArea.SeriesCollection.Add(rChart)
Dim rXBARChartArea As ChartArea = New ChartArea("R XBAR Chart Example") rXBARChartArea.XAxis = New Axis() rXBARChartArea.XAxis.Interval = 1 rXBARChartArea.YAxis.Interval = 10 Chart.ExtraChartAreas.Add(rXBARChartArea) rXBARChartArea.TitleBox.Position = TitleBoxPosition.FullWithLegend
Dim rXBARChart As Series = StatisticalEngine.RXBARChart(mySC) rXBARChartArea.SeriesCollection.Add(rXBARChart) End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random()
For a As Integer = 1 To 10 Dim s As Series = New Series() s.Name = "Series " & a s.LegendEntry.Visible = False For b As Integer = 1 To 5 Dim e As Element = New Element() e.Name = "Element " & b e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function </script>
Previous