Chart.Type = ChartType.Combo; Chart.Size = "600x350"; //Chart.Title = ".netCHARTING Sample"; Chart.LegendBox.Visible = false; Chart.DefaultSeries.Type = SeriesType.Line; // *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);
Bitmap bp = Chart.GetChartBitmap();
// Process chart clicks and create zoom chart area. if (Page.Request.QueryString.Count > 0) { string query = Page.Request.QueryString[0];
// From the query string, get the values of the axes where clicked. Object xval = Chart.XAxis.GetValueAtX(query); Object yval = Chart.YAxis.GetValueAtY(query);
if (xval != null) { Element el = getElementFromDate((DateTime)xval, mySC[0]); if (el != null) { el.Marker.Color = Color.Red; Annotation an = new Annotation(); an.Padding = 6; an.Label.Text = "%YValue"; an.HeaderLabel.Text = "<%XValue,d>"; an.HeaderLabel.Color = Color.White; an.HeaderLabel.Font = new Font("arial", 8, FontStyle.Bold); an.HeaderBackground.ShadingEffectMode = ShadingEffectMode.Two; an.HeaderBackground.Color = Color.Red; an.Orientation = dotnetCHARTING.Orientation.BottomRight; el.Annotation = an; xval = el.XDateTime; }
// Add axis markers at click positions. if (xval != null) Chart.XAxis.Markers.Add(new AxisMarker("", Color.Orange, (DateTime)xval)); }
// Generate the chart once more to show the axis markers that were added above. bp = Chart.GetChartBitmap(); }
Element getElementFromDate(DateTime dt, Series s) { foreach (Element el in s.Elements) { if (el.XDateTime.Month == dt.Month && el.XDateTime.Day == dt.Day) return el; } return null;
}
SeriesCollection getRandomData() { Random myR = new Random(1); int startVal = 50; SeriesCollection SC = new SeriesCollection(); int a = 0; int b = 0; for (a = 1; a < 2; a++) { Series s = new Series("Series " + a.ToString()); for (b = 1; b < 50; b++) { Element e = new Element(); e.XDateTime = DateTime.Now.AddDays(b); e.YValue = startVal = startVal + (-7+myR.Next(20)); s.Elements.Add(e); } SC.Add(s); } return SC; }
SeriesCollection getLiveData() { DataEngine de = new DataEngine("ConnectionString goes here"); de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...."; return de.GetSeries(); }
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Demonstrates finding the closest point to where the chart is clicked. ' FullScreen
Dim Chart As Chart = New Chart() Chart.TempDirectory = "temp" Chart.Debug = True
Chart.Type = ChartType.Combo Chart.Size = "600x350" 'Chart.Title = ".netCHARTING Sample"; Chart.LegendBox.Visible = False Chart.DefaultSeries.Type = SeriesType.Line ' *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)
Dim bp As Bitmap = Chart.GetChartBitmap()
' Process chart clicks and create zoom chart area. If Page.Request.QueryString.Count > 0 Then Dim query As String = Page.Request.QueryString(0)
' From the query string, get the values of the axes where clicked. Dim xval As Object = Chart.XAxis.GetValueAtX(query) Dim yval As Object = Chart.YAxis.GetValueAtY(query)
If Not xval Is Nothing Then Dim el As Element = getElementFromDate(CDate(xval), mySC(0)) If Not el Is Nothing Then el.Marker.Color = Color.Red Dim an As Annotation = New Annotation() an.Padding = 6 an.Label.Text = "%YValue" an.HeaderLabel.Text = "<%XValue,d>" an.HeaderLabel.Color = Color.White an.HeaderLabel.Font = New Font("arial", 8, FontStyle.Bold) an.HeaderBackground.ShadingEffectMode = ShadingEffectMode.Two an.HeaderBackground.Color = Color.Red an.Orientation = dotnetCHARTING.Orientation.BottomRight el.Annotation = an xval = el.XDateTime End If
' Add axis markers at click positions. If Not xval Is Nothing Then Chart.XAxis.Markers.Add(New AxisMarker("", Color.Orange, CDate(xval))) End If End If
' Generate the chart once more to show the axis markers that were added above. bp = Chart.GetChartBitmap() End If
Dim fileName As String = Chart.FileManager.SaveImage(bp) imageLabel.Text = "<img border = 0 src=""" & fileName & """ ISMAP>" End Sub
Function getElementFromDate(ByVal dt As DateTime, ByVal s As Series) As Element For Each el As Element In s.Elements If el.XDateTime.Month = dt.Month AndAlso el.XDateTime.Day = dt.Day Then Return el End If Next el Return Nothing
End Function
Function getRandomData() As SeriesCollection Dim myR As Random = New Random(1) Dim startVal As Integer = 50 Dim SC As SeriesCollection = New SeriesCollection() Dim a As Integer = 0 Dim b As Integer = 0 For a = 1 To 1 Dim s As Series = New Series("Series " & a.ToString()) For b = 1 To 49 Dim e As Element = New Element() e.XDateTime = DateTime.Now.AddDays(b) startVal = startVal + (-7+myR.Next(20)) e.YValue = startVal s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Function getLiveData() As SeriesCollection Dim de As DataEngine = New DataEngine("ConnectionString goes here") de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...." Return de.GetSeries() End Function
Previous