<%@ Page Language="C#" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>

<script runat="server">

void Page_Load(Object sender, EventArgs e)
{
// Demonstrates using an InfoGrid inside a legend box header.

Chart.TempDirectory = "temp";
Chart.Debug = true;
Chart.Type = ChartType.Combo;
Chart.Size = "600x450";
Chart.Title = "Server Traffic";
Chart.DefaultElement.Transparency = 15;

Chart.XAxis.DefaultTick.Label.Font = new Font("Arial", 9, FontStyle.Bold);

Chart.YAxis.Markers.Add(new AxisMarker("", Color.Crimson, 40, 100));
Chart.YAxis.Markers[0].Background.Transparency = 30;
Chart.YAxis.Markers[0].LegendEntry.Visible = false;

Chart.YAxis.Markers.Add(new AxisMarker("", Color.Yellow, 0, 10));
Chart.YAxis.Markers[1].Background.Transparency = 30;
Chart.YAxis.Markers[1].LegendEntry.Visible = false;

Chart.DefaultSeries.LegendEntry.Visible = false;
Chart.LegendBox.Shadow.Visible = false;
Chart.LegendBox.HeaderBackground.Color = Color.White;
Chart.LegendBox.HeaderBackground.ShadingEffectMode = ShadingEffectMode.Five;

Chart.LegendBox.Orientation = dotnetCHARTING.Orientation.Bottom;

// *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();
string s = generateMarkup(mySC);
Chart.LegendBox.HeaderLabel.Text = s;


// Add the random data.
Chart.SeriesCollection.Add(mySC);
}

string generateMarkup(SeriesCollection sc)
{
// If all series dont have the same number of of elements it may break the InfoGrid so grouping them can help.
sc.GroupByElements();

// Define some block styles
string headerStyle = "<block fStyle='bold' fSize='9'>";
string headerStyle2 = "<block fStyle='bold' fSize='9' fColor='blue'>";
string calculationStyle = "<block fStyle='italic' fSize='9'>";
string spacer = "<Chart:Spacer height='1' width='64'>";

StringBuilder sb = new StringBuilder();

// Add a series of spacers to define the width of each block when aligned.
sb.Append("<Chart:Spacer height='1' width='10'>" + spacer);
foreach (Element e in sc[0].Elements)
sb.Append(spacer);
sb.Append(spacer + spacer);

// Add header titles in a similar fassion matching the final number of columns.
sb.Append("<row><block><block>");
foreach (Element e in sc[0].Elements)
sb.Append(headerStyle + e.Name);
sb.Append(headerStyle2 + " Total");
sb.Append(headerStyle2 + " Average");

// Horizontal Rule
sb.Append("<hr>");

// Now each row is populated with data.
int i = 0;
foreach (Series s in sc)
{
// A block using the series color as the background and the series name. (2 blocks)
sb.Append("<block bgColor='" + getHTMLColor(Chart.Palette[i]) + "'> <block fStyle='bold' fSize='9'>" + s.Name);

// A block for each element
foreach (Element e in s.Elements)
{
// Differ the styling based on the element value.
if (e.YValue > 40)
sb.Append("<block fColor='red' fStyle='bold'>");
else if (e.YValue <= 10)
sb.Append("<block bgColor='Yellow'>");
else
sb.Append("<block>");

sb.Append(e.YValue);
}

// Calculate total and averages and add them.
sb.Append(calculationStyle + s.Calculate("", Calculation.Sum).YValue.ToString());
sb.Append(calculationStyle + s.Calculate("", Calculation.Average).YValue.ToString());

// Indicate that a new row should start but omit the last row which would start a new row with 0 blocks and cause the grid to misalign.
if (i++ < sc.Count - 1)
sb.Append("<row>");
}

return sb.ToString();
}

/// <summary>
/// Helper method to turn a color object into HTML color format like #A0187E
/// </summary>
string getHTMLColor(Color c)
{
string col = c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2");
return "#" + col;
}


SeriesCollection getRandomData()
{
Random myR = new Random(1);
SeriesCollection SC = new SeriesCollection();
int a = 0;
int b = 0;
for (a = 1; a < 5; a++)
{
Series s = new Series("Server " + a.ToString());
for (b = 1; b < 6; b++)
{
Element e = new Element("Week " + b.ToString());
e.YValue = myR.Next(50)+(a*5);
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();
}



</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>.netCHARTING Sample</title>
</head>
<body>
<div align="center">
<dotnet:Chart ID="Chart" runat="server" />
</div>
</body>
</html>

<%@ Page Language="vb" Description="dotnetCHARTING Component" %>
<%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING" %>
<%@ Import Namespace="System.Drawing" %>

<script runat="server">

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
' Demonstrates using an InfoGrid inside a legend box header.

Chart.TempDirectory = "temp"
Chart.Debug = True
Chart.Type = ChartType.Combo
Chart.Size = "600x450"
Chart.Title = "Server Traffic"
Chart.DefaultElement.Transparency = 15

Chart.XAxis.DefaultTick.Label.Font = New Font("Arial", 9, FontStyle.Bold)

Chart.YAxis.Markers.Add(New AxisMarker("", Color.Crimson, 40, 100))
Chart.YAxis.Markers(0).Background.Transparency = 30
Chart.YAxis.Markers(0).LegendEntry.Visible = False

Chart.YAxis.Markers.Add(New AxisMarker("", Color.Yellow, 0, 10))
Chart.YAxis.Markers(1).Background.Transparency = 30
Chart.YAxis.Markers(1).LegendEntry.Visible = False

Chart.DefaultSeries.LegendEntry.Visible = False
Chart.LegendBox.Shadow.Visible = False
Chart.LegendBox.HeaderBackground.Color = Color.White
Chart.LegendBox.HeaderBackground.ShadingEffectMode = ShadingEffectMode.Five

Chart.LegendBox.Orientation = dotnetCHARTING.Orientation.Bottom

' *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()
Dim s As String = generateMarkup(mySC)
Chart.LegendBox.HeaderLabel.Text = s


' Add the random data.
Chart.SeriesCollection.Add(mySC)
End Sub

Function generateMarkup(ByVal sc As SeriesCollection) As String
' If all series dont have the same number of of elements it may break the InfoGrid so grouping them can help.
sc.GroupByElements()

' Define some block styles
Dim headerStyle As String = "<block fStyle='bold' fSize='9'>"
Dim headerStyle2 As String = "<block fStyle='bold' fSize='9' fColor='blue'>"
Dim calculationStyle As String = "<block fStyle='italic' fSize='9'>"
Dim spacer As String = "<Chart:Spacer height='1' width='64'>"

Dim sb As StringBuilder = New StringBuilder()

' Add a series of spacers to define the width of each block when aligned.
sb.Append("<Chart:Spacer height='1' width='10'>" & spacer)
For Each e As Element In sc(0).Elements
sb.Append(spacer)
Next e
sb.Append(spacer & spacer)

' Add header titles in a similar fassion matching the final number of columns.
sb.Append("<row><block><block>")
For Each e As Element In sc(0).Elements
sb.Append(headerStyle & e.Name)
Next e
sb.Append(headerStyle2 & " Total")
sb.Append(headerStyle2 & " Average")

' Horizontal Rule
sb.Append("<hr>")

' Now each row is populated with data.
Dim i As Integer = 0
For Each s As Series In sc
' A block using the series color as the background and the series name. (2 blocks)
sb.Append("<block bgColor='" & getHTMLColor(Chart.Palette(i)) & "'> <block fStyle='bold' fSize='9'>" & s.Name)

' A block for each element
For Each e As Element In s.Elements
' Differ the styling based on the element value.
If e.YValue > 40 Then
sb.Append("<block fColor='red' fStyle='bold'>")
ElseIf e.YValue <= 10 Then
sb.Append("<block bgColor='Yellow'>")
Else
sb.Append("<block>")
End If

sb.Append(e.YValue)
Next e

' Calculate total and averages and add them.
sb.Append(calculationStyle & s.Calculate("", Calculation.Sum).YValue.ToString())
sb.Append(calculationStyle & s.Calculate("", Calculation.Average).YValue.ToString())

' Indicate that a new row should start but omit the last row which would start a new row with 0 blocks and cause the grid to misalign.
If i < sc.Count - 1 Then
sb.Append("<row>")
End If
i = i + 1
Next s

Return sb.ToString()
End Function

''' <summary>
''' Helper method to turn a color object into HTML color format like #A0187E
''' </summary>
Function getHTMLColor(ByVal c As Color) As String
Dim col As String = c.R.ToString("X2") + c.G.ToString("X2") + c.B.ToString("X2")
Return "#" & col
End Function


Function getRandomData() As SeriesCollection
Dim myR As Random = New Random(1)
Dim SC As SeriesCollection = New SeriesCollection()
Dim a As Integer = 0
Dim b As Integer = 0
For a = 1 To 4
Dim s As Series = New Series("Server " & a.ToString())
For b = 1 To 5
Dim e As Element = New Element("Week " & b.ToString())
e.YValue = myR.Next(50)+(a*5)
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.ChartObject = Chart ' Necessary to view any errors the dataEngine may throw.
de.SqlStatement = "SELECT XAxisColumn, YAxisColumn FROM ...."
Return de.GetSeries()
End Function



</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>.netCHARTING Sample</title>
</head>
<body>
<div align="center">
<dotnet:Chart ID="Chart" runat="server" />
</div>
</body>
</html>