// *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();
Chart.SmartPalette.Add("*",new SmartColor(Color.Yellow, Color.Red, new ScaleRange(0, 50), ElementValue.YValue));
// Add swatch in annotation. Annotation an = new Annotation(getSwatchA( Chart.SmartPalette, 10, true)); an.Size = new Size(20, 0); an.DefaultCorner = BoxCorner.Square; an.ClearColors(); an.Position = new Point(580, 32); Chart.Annotations.Add(an);
// Add the random data. Chart.SeriesCollection.Add(mySC); }
SeriesCollection getRandomData() { Random myR = new Random(1); SeriesCollection SC = new SeriesCollection(); for (int a = 1; a < 5; a++) { Series s = new Series("Series " + a.ToString()); for (int b = 1; b < 35; b++) { Element e = new Element("Element " + b.ToString()); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
SeriesCollection getLiveData() { DataEngine de = new DataEngine(ConfigurationManager.AppSettings["DNCConnectionString"]); de.ChartObject = Chart; // Necessary to view any errors the dataEngine may throw. de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...."; return de.GetSeries(); }
string getSwatchA( SmartPalette sp, int divisions, bool withValues) { // Get Maximum Value of the smart palette range double max = (double)sp.GetScaleRange("*").ValueHigh; string swatch = "";
// Generate swatch string for each division. for (int i = 0; i <= divisions; i++) { // Get the color of the current division. string color = getHTMLColor(sp.GetValueColor("", (i * (max / divisions)))); if (withValues) swatch += "<block bgColor='" + color + "'>" + (int)(i * (max / divisions)) + "<row>"; else swatch += "<block bgColor='" + color + "' fColor='Transparent'>__<row>"; } //return the swatch string. return swatch; } string getHTMLColor(Color c) { return "#" + c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2"); }
' *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()
Chart.SmartPalette.Add("*",New SmartColor(Color.Yellow, Color.Red, New ScaleRange(0, 50), ElementValue.YValue))
' Add swatch in annotation. Dim an As Annotation = New Annotation(getSwatchA(Chart.SmartPalette, 10, True)) an.Size = New Size(20, 0) an.DefaultCorner = BoxCorner.Square an.ClearColors() an.Position = New Point(580, 32) Chart.Annotations.Add(an)
' 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() For a As Integer = 1 To 4 Dim s As Series = New Series("Series " & a.ToString()) For b As Integer = 1 To 34 Dim e As Element = New Element("Element " & b.ToString()) e.YValue = myR.Next(50) 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(ConfigurationManager.AppSettings("DNCConnectionString")) de.ChartObject = Chart ' Necessary to view any errors the dataEngine may throw. de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...." Return de.GetSeries() End Function
Function getSwatchA(ByVal sp As SmartPalette, ByVal divisions As Integer, ByVal withValues As Boolean) As String ' Get Maximum Value of the smart palette range Dim max As Double = CDbl(sp.GetScaleRange("*").ValueHigh) Dim swatch As String = ""
' Generate swatch string for each division. For i As Integer = 0 To divisions ' Get the color of the current division. Dim color As String = getHTMLColor(sp.GetValueColor("", (i * (max / divisions)))) If withValues Then swatch &= "<block bgColor='" & color & "'>" & CInt(Fix(i * (max / divisions))) & "<row>" Else swatch &= "<block bgColor='" & color & "' fColor='Transparent'>__<row>" End If Next i 'return the swatch string. Return swatch End Function Function getHTMLColor(ByVal c As Color) As String Return "#" & c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2") End Function
Previous