Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Chart.Type = ChartType.Combo Chart.Width = 600 Chart.Height = 400 Chart.TempDirectory = "temp" Chart.Debug = True Chart.Title = "Run Chart" Chart.LegendBox.Orientation = dotnetCHARTING.Orientation.Top Dim mySC As SeriesCollection = getRandomData() 'Chart.SeriesCollection.Add(mySC); Chart.DefaultSeries.Type = SeriesType.Spline
Dim runChart As Series = StatisticalEngine.RunChart(mySC(0)) Chart.SeriesCollection.Add (runChart) End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random(1) Dim dt As DateTime = New DateTime(2005,1,1) For a As Integer = 1 To 2 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 0 To 29 Dim e As Element = New Element() 'e.Name = "Element " + b; 'e.XValue = b; e.YValue = myR.Next(50) e.XDateTime = dt.AddDays(b) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous