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 5 Dim e As Element = New Element() e.Name = "E " & b e.YValueStart = myR.Next(50) e.YValue = e.YValueStart+ 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 the title. 'Chart.Title="My Chart";
' Set the x axis label Chart.XAxis.Label.Text="X Axis Label"
' Set the y axis label Chart.YAxis.Label.Text="Y Axis Label"
' Set the directory where the images will be stored. Chart.TempDirectory="temp"
Previous