SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); for(int a = 1; a < 5; a++) { Series s = new Series(); s.Name = "Series " + a; for(int b = 1; b < 8; b++) { Element e = new Element(); e.Name = "Element " + b; e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 4 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 7 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
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 'Set Chart 1 properties Chart1.Title="My Chart 1" Chart1.Type = ChartType.Combo Chart1.DefaultSeries.DefaultElement.Transparency = 35 Chart1.TempDirectory="temp" Chart1.Use3D=True Chart1.Debug=True Chart1.Width = 420 Chart1.Height = 300 ' Add the random data. Chart1.SeriesCollection.Add(getRandomData())
Previous