Chart.Type = ChartType.Multiple; Chart.Size = "600x350"; //Chart.Title = ".netCHARTING Sample"; Chart.Use3D = true; // Demonstrates the Multiple chart type in 3D.
// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Help File > Getting Started > Data Tutorials // - DataEngine Class in the help file // - Sample: features/DataEngine.aspx
// 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 < 5; b++) { Element e = new Element("Element " + b.ToString()); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; } </script>
<%@ Page Language="vb" Description="dotnetCHARTING Component" %> <%@ Register TagPrefix="dotnet" Namespace="dotnetCHARTING" Assembly="dotnetCHARTING"%> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Drawing2D" %> <script runat="server"> Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Chart.TempDirectory = "temp" Chart.Debug = True
Chart.Type = ChartType.Multiple Chart.Size = "600x350" 'Chart.Title = ".netCHARTING Sample"; Chart.Use3D = True ' Demonstrates the Multiple chart type in 3D.
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Help File > Getting Started > Data Tutorials ' - DataEngine Class in the help file ' - Sample: features/DataEngine.aspx
Dim mySC As SeriesCollection = getRandomData() mySC(0).Type = SeriesTypeMultiple.Cone mySC(1).Type = SeriesTypeMultiple.Pyramid mySC(2).Type = SeriesTypeMultiple.FunnelCone mySC(3).Type = SeriesTypeMultiple.FunnelPyramid
' 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 4 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 </script>
Previous