Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 21 Dim s As Series = New Series() s.Name = "Series " & a.ToString() For b As Integer = 1 To 1 Dim e As Element = New Element() e.Name = "Element " & b.ToString() e.YValue = myR.Next(50)+50 s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function </script> </head> <body> <div style="text-align:center"> <dotnet:Chart id="Chart" runat="server"> </dotnet:Chart>
Previous