Chart.Type = ChartType.Combo;//Horizontal; Chart.Size = "600x350"; Chart.TempDirectory = "temp"; Chart.Debug = true; //Chart.Title = ".netCHARTING Gallery Sample"; // Set the chart Type Chart.Type = ChartType.Bubble; Chart.DefaultSeries.Type = SeriesType.Bubble;
// Bubble using ShadingEffectMode.Four Chart.ShadingEffectMode = ShadingEffectMode.Four;
// *DYNAMIC DATA NOTE* // This sample uses random data to populate the chart. To populate // a chart with database data see the following resources: // - Classic samples folder // - Help File > Data Tutorials // - Sample: features/DataEngine.aspx SeriesCollection mySC = getRandomData();
// Add the random data. Chart.SeriesCollection.Add(mySC);
}
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(); for(int a = 1; a < 5; a++) { Series s = new Series(); s.Name = "Series " + a.ToString(); for(int b = 1; b < 5; b++) { Element e = new Element();
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Chart.Type = ChartType.Combo 'Horizontal; Chart.Size = "600x350" Chart.TempDirectory = "temp" Chart.Debug = True 'Chart.Title = ".netCHARTING Gallery Sample"; ' Set the chart Type Chart.Type = ChartType.Bubble Chart.DefaultSeries.Type = SeriesType.Bubble
' Bubble using ShadingEffectMode.Four Chart.ShadingEffectMode = ShadingEffectMode.Four
' *DYNAMIC DATA NOTE* ' This sample uses random data to populate the chart. To populate ' a chart with database data see the following resources: ' - Classic samples folder ' - Help File > Data Tutorials ' - Sample: features/DataEngine.aspx Dim mySC As SeriesCollection = getRandomData()
' Add the random data. Chart.SeriesCollection.Add(mySC)
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random() For a As Integer = 1 To 4 Dim s As Series = New Series() s.Name = "Series " & a.ToString() For b As Integer = 1 To 4 Dim e As Element = New Element()
e.YValue = myR.Next(50) e.BubbleSize = myR.Next(50) e.XValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous