ASP.net Pie chart

[farid25]

i want to use data set instead of arrays
can any one help

thanks
---------------------------------

<%@ Import Namespace="Syst em.Drawing" %>
<%@ Import Namespace="Syst em.Drawing.Imag ing" %>


<script runat="server">
Sub Page_Load(Src As Object, E As EventArgs)

'Declare your object variables

Dim i As Integer



'Build a BitMap that will act as the pallet and container

'for the bar graph. Here 600 is the width and 300 is the height.

'These values could also be passed as parameters.

Dim objBitMap As New Bitmap(600, 550)



'Declare your Graphics objects for painting graphics on you newly created bitmap.

Dim objGraphics As Graphics

objGraphics = Graphics.FromIm age(objBitMap)

'Set the background color to silver

objGraphics.Cle ar(Color.White)



'Build an array of values for the bar and pie chart.

'These values could also be pulled from a database.
Dim arrValues(4) As Integer

arrValues(0) = 100

arrValues(1) = 135

arrValues(2) = 115

arrValues(3) = 125

arrValues(4) = 230


Dim arrValueNames(4 ) As String

arrValueNames(0 ) = "Biz"

arrValueNames(1 ) = "Basic"

arrValueNames(2 ) = "website"

arrValueNames(3 ) = "quest"

arrValueNames(4 ) = "image"



'Write out a title for your bar and pie chart.

objGraphics.Dra wString("5 Top Techno Books", New Font("Tahoma", 16), Brushes.Black, New PointF(5, 5))



'Create a legend to describe your bar and chart.

Dim symbolLeg As PointF = New PointF(445, 20)

Dim descLeg As PointF = New PointF(390, 16)



For i = 0 To arrValueNames.L ength - 1

objGraphics.Fil lRectangle(New SolidBrush(GetC olor(i)), symbolLeg.X, symbolLeg.Y, 20, 10)

objGraphics.Dra wRectangle(Pens .Black, symbolLeg.X, symbolLeg.Y, 20, 10)



objGraphics.Dra wString(arrValu eNames(i).ToStr ing, New Font("Tahoma", 10), Brushes.Black, descLeg)

symbolLeg.Y += 15

descLeg.Y += 15

Next i





'Loop through the values to create the Pie Chart.

Dim sglCurrentAngle As Single = 0

Dim sglTotalAngle As Single = 0

i = 0



For i = 0 To arrValues.Lengt h - 1

'Current Value / (sum of all the Values) * 360 degree angle

sglCurrentAngle = arrValues(i) / 705 * 360



objGraphics.Fil lPie(New SolidBrush(GetC olor(i)), 120, 95, 400, 400, sglTotalAngle, sglCurrentAngle )

objGraphics.Dra wPie(Pens.Black , 120, 95, 400, 400, sglTotalAngle, sglCurrentAngle )



sglTotalAngle += sglCurrentAngle

Next i



objBitMap.Save( Response.Output Stream, ImageFormat.Gif )

End Sub
Private Function GetColor(ByVal itemIndex As Integer) As Color

Dim objColor As Color



Select Case itemIndex

Case 0

objColor = Color.Blue

Case 1

objColor = Color.Red

Case 2

objColor = Color.Yellow

Case 3

objColor = Color.Purple

Case 4

objColor = Color.Orange

Case 5

objColor = Color.Brown

Case 6

objColor = Color.Gray

Case 7

objColor = Color.Maroon

Case Else

objColor = Color.Green

End Select



Return objColor



End Function

</script>