void Page_Load(Object sender, EventArgs e) { //Enable zooming with just one property Chart.Zoomer.Enabled = true;
//limit the number of elements in view port Chart.XAxis.Viewport.ElementCount =10;
Chart.Debug = true; Chart.TempDirectory = "temp"; Chart.ShadingEffect = true; Chart.YAxis.Label.Text = "Salary / Year"; Chart.YAxis.FormatString = "currency"; Chart.XAxis.Label.Text = "Employee Code"; Chart.PaletteName = dotnetCHARTING.Palette.Bright; Chart.Type = ChartType.Combo; Chart.Size = "600x350"; Chart.Title = "A chart with zooming, right click on the chart to access zooming"; Chart.DefaultSeries.Type = SeriesType.Spline; Chart.LegendBox.Position = LegendBoxPosition.None; Chart.YAxis.Scale = Scale.Stacked; Chart.DefaultElement.ShowValue = true; Chart.DefaultSeries.DefaultElement.ToolTip = "%name of %SeriesName"; SeriesCollection mySC= getRandomData(); Chart.SeriesCollection.Add(mySC); Element Mean = mySC[0].Calculate("",Calculation.Mean); AxisMarker am = new AxisMarker("Mean",new Line(Color.Green,1), Mean.YValue); am.Label.Alignment = StringAlignment.Near; Chart.YAxis.Markers.Add(am);
}
SeriesCollection getRandomData() { SeriesCollection SC = new SeriesCollection(); Random myR = new Random(1); for(int a = 1; a < 2; a++) { Series s = new Series(); s.Name = "Series " + a; for(int b = 1; b < 100; b++) { Element e = new Element(); e.Name = "Emp #" + b; e.YValue = myR.Next(25000,100000); s.Elements.Add(e); } SC.Add(s); } return SC;
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 'Enable zooming with just one property Chart.Zoomer.Enabled = True
'limit the number of elements in view port Chart.XAxis.Viewport.ElementCount =10
Chart.Debug = True Chart.TempDirectory = "temp" Chart.ShadingEffect = True Chart.YAxis.Label.Text = "Salary / Year" Chart.YAxis.FormatString = "currency" Chart.XAxis.Label.Text = "Employee Code" Chart.PaletteName = dotnetCHARTING.Palette.Bright Chart.Type = ChartType.Combo Chart.Size = "600x350" Chart.Title = "A chart with zooming, right click on the chart to access zooming" Chart.DefaultSeries.Type = SeriesType.Spline Chart.LegendBox.Position = LegendBoxPosition.None Chart.YAxis.Scale = Scale.Stacked Chart.DefaultElement.ShowValue = True Chart.DefaultSeries.DefaultElement.ToolTip = "%name of %SeriesName" Dim mySC As SeriesCollection= getRandomData() Chart.SeriesCollection.Add(mySC) Dim Mean As Element = mySC(0).Calculate("",Calculation.Mean) Dim am As AxisMarker = New AxisMarker("Mean",New Line(Color.Green,1), Mean.YValue) am.Label.Alignment = StringAlignment.Near Chart.YAxis.Markers.Add(am)
End Sub
Function getRandomData() As SeriesCollection Dim SC As SeriesCollection = New SeriesCollection() Dim myR As Random = New Random(1) For a As Integer = 1 To 1 Dim s As Series = New Series() s.Name = "Series " & a For b As Integer = 1 To 99 Dim e As Element = New Element() e.Name = "Emp #" & b e.YValue = myR.Next(25000,100000) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC
Previous