// First we get our data, if you would like to get the data from a database you need to use // the data engine. See sample: features/dataEngine.aspx. Or the dataEngine tutorial in the help file. SeriesCollection mySC = getRandomData();
// Add the random data. Chart.SeriesCollection.Add(mySC); Chart1.SeriesCollection.Add(getRandomData2()); Chart2.SeriesCollection.Add(getRandomData2());
}
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 < 4; b++) { Element e = new Element(); e.Name = "Long Name Element " + b; //e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); }
return SC; }
SeriesCollection getRandomData2() { 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 < 6; b++) { Element e = new Element(); e.Name = "Long Name Element " + b; //e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); }
' First we get our data, if you would like to get the data from a database you need to use ' the data engine. See sample: features/dataEngine.aspx. Or the dataEngine tutorial in the help file. Dim mySC As SeriesCollection = getRandomData()
' Add the random data. Chart.SeriesCollection.Add(mySC) Chart1.SeriesCollection.Add(getRandomData2()) Chart2.SeriesCollection.Add(getRandomData2())
End Sub
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 3 Dim e As Element = New Element() e.Name = "Long Name Element " & b 'e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Return SC End Function
Function getRandomData2() 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 = "Long Name Element " & b 'e.YValue = -25 + myR.Next(50); e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous