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; for(int b = 1; b < 5; b++) { Element e = new Element(); e.Name = "E " + b; e.YValue = myR.Next(50)+10+((4-a)*20)+(b*10); e.BubbleSize = myR.Next(50); s.Elements.Add(e); } SC.Add(s); }
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' This sample demonstrates a combination of series types.
' Set he chart size. Chart.Width = 600 Chart.Height = 350
' Set the title. 'Chart.Title="My Chart"; Chart.Debug = True Chart.DefaultElement.ToolTip = "%SeriesName (%Name)<br> %YValue" Chart.Type = ChartType.ComboHorizontal
Chart.DefaultSeries.Line.Width = 2
' Set the x axis label Chart.XAxis.Label.Text="X Axis Label"
' Set the y axis label Chart.YAxis.Label.Text="Y Axis Label"
' Set the directory where the related JSC files will be created and stored. Chart.TempDirectory="temp"
' Enable JSCharting Chart.JS.Enabled = True
Chart.MaximumBubbleSize = 100 Chart.DefaultSeries.DefaultElement.Transparency = 15 ' Add the random data. Dim sc As SeriesCollection = getRandomData() Chart.SeriesCollection.Add(sc) sc(0).Type = SeriesType.AreaLine sc(1).Type = SeriesType.Column sc(2).Type = SeriesType.Bubble sc(3).Type = SeriesType.Line
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 For b As Integer = 1 To 4 Dim e As Element = New Element() e.Name = "E " & b e.YValue = myR.Next(50)+10+((4-a)*20)+(b*10) e.BubbleSize = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a
Previous