Chart.Type = ChartType.Combo; Chart.Size = "600x350"; //Chart.Title = ".netCHARTING Sample"; Chart.DefaultSeries.Type = SeriesType.Marker; Chart.DefaultSeries.DefaultElement.Marker.Size = 15; // *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
SeriesCollection mySC = getRandomData();
// Add the random data. Chart.SeriesCollection.Add(mySC);
//Get a bitmap of the chart so the axes can be processed.. Bitmap bmp = Chart.GetChartBitmap();
// Get chart area rectangle Point[] caPoints = Chart.ChartArea.GetCoordinates(); GraphicsPath gp = new GraphicsPath(); gp.AddPolygon(caPoints); RectangleF caRect = gp.GetBounds(); gp.Dispose();
//Save the image using the FileManager. Chart.FileManager.SaveImage(bmp);
}
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(""); e.XValue = myR.Next(50); e.YValue = myR.Next(50); s.Elements.Add(e); } SC.Add(s); } return SC; }
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) ' Demonstrates getting the dynamically determined axis ranges.
Chart.TempDirectory = "temp" Chart.Debug = True
Chart.Type = ChartType.Combo Chart.Size = "600x350" 'Chart.Title = ".netCHARTING Sample"; Chart.DefaultSeries.Type = SeriesType.Marker Chart.DefaultSeries.DefaultElement.Marker.Size = 15 ' *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()
' Add the random data. Chart.SeriesCollection.Add(mySC)
'Get a bitmap of the chart so the axes can be processed.. Dim bmp As Bitmap = Chart.GetChartBitmap()
' Get chart area rectangle Dim caPoints As Point() = Chart.ChartArea.GetCoordinates() Dim gp As GraphicsPath = New GraphicsPath() gp.AddPolygon(caPoints) Dim caRect As RectangleF = gp.GetBounds() gp.Dispose()
' Get axis ranges Dim xLow As Double = CDbl(Chart.XAxis.GetValueAtX((CInt(Fix(caRect.Left))+1).ToString() & ",100")) Dim xHigh As Double = CDbl(Chart.XAxis.GetValueAtX((CInt(Fix(caRect.Right))).ToString() & ",100"))
' Get axis ranges Dim yHigh As Double = CDbl(Chart.YAxis.GetValueAtY("100," & (CInt(Fix(caRect.Top))+1).ToString())) Dim yLow As Double = CDbl(Chart.YAxis.GetValueAtY("100," & (CInt(Fix(caRect.Bottom))).ToString())) label1.Text = "X Low: " & xLow.ToString() & " <br> X High: " & xHigh.ToString() label1.Text &= "<BR>Y Low: " & yLow.ToString() & "<br> Y High: " & yHigh.ToString() label1.Text &= "<BR> Rectangle: " & caRect.ToString()
'Save the image using the FileManager. Chart.FileManager.SaveImage(bmp)
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("") e.XValue = myR.Next(50) e.YValue = myR.Next(50) s.Elements.Add(e) Next b SC.Add(s) Next a Return SC End Function
Previous