Chart.DefaultSeries.Type = SeriesType.Line; Chart.XAxis.Scale = Scale.Time; // Set the chart area legendbox position. Chart.LegendBox.Position = LegendBoxPosition.ChartArea;
// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Use the getLiveData() method using the dataEngine to query a database. // - Help File > Getting Started > Data Tutorials // - DataEngine Class in the help file // - Sample: features/DataEngine.aspx
SeriesCollection mySC = getRandomData();
// Add the random data. Chart.SeriesCollection.Add(mySC); }
SeriesCollection getRandomData() { Random myR = new Random(1); SeriesCollection SC = new SeriesCollection(); DateTime dt = new DateTime(2009, 1, 1);
Series s = new Series("Series 1" ); for (int b = 1; b < 15; b++) { Element e = new Element(); e.XDateTime = dt = dt.AddDays(1); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s);
return SC; }
SeriesCollection getLiveData() { DataEngine de = new DataEngine("ConnectionString goes here"); de.ChartObject = Chart; // Necessary to view any errors the dataEngine may throw. de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...."; return de.GetSeries(); }
Chart.DefaultSeries.Type = SeriesType.Line Chart.XAxis.Scale = Scale.Time ' Set the chart area legendbox position. Chart.LegendBox.Position = LegendBoxPosition.ChartArea
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Use the getLiveData() method using the dataEngine to query a database. ' - Help File > Getting Started > Data Tutorials ' - DataEngine Class in the help file ' - Sample: features/DataEngine.aspx
Dim mySC As SeriesCollection = getRandomData()
' Add the random data. Chart.SeriesCollection.Add(mySC) End Sub
Function getRandomData() As SeriesCollection Dim myR As Random = New Random(1) Dim SC As SeriesCollection = New SeriesCollection() Dim dt As DateTime = New DateTime(2009, 1, 1)
Dim s As Series = New Series("Series 1") For b As Integer = 1 To 14 Dim e As Element = New Element() dt = dt.AddDays(1) e.XDateTime = dt e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s)
Return SC End Function
Function getLiveData() As SeriesCollection Dim de As DataEngine = New DataEngine("ConnectionString goes here") de.ChartObject = Chart ' Necessary to view any errors the dataEngine may throw. de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...." Return de.GetSeries() End Function
Previous