ASP.NET: приклад побудови кругової діаграми

Христофоров Юрій

Нижче буде показано, як можна в ASP.NET додатку, використовуючи графічні методи GDI +, намалювати кругову діаграму. Це може бути корисно, наприклад, для наочного представлення даних.

Файл pie.aspx (написаний на VB.NET):        

<% @   Page Language = "VB" ContentType = "image/jpeg"%>   

<% @   Import Namespace = "System.Drawing"%>   

<% @   Import Namespace = "System.Drawing.Imaging"%>   

<% @   Import Namespace = "System.Drawing.Drawing2D"%>   

<%      

Response.Clear ()      

Dim   height As Integer = 200   

Dim   width As Integer = 320   

Dim   x As Integer   

Dim   i As Integer   

Dim   start_angle As Integer   

Dim   pie_size As Integer   

Dim   sub_total As Integer   

Dim   offset As Integer   

Dim   diameter As Integer   

Dim   arrData () As Integer = (75, 45, 19, 10, 55) 'значення   

Dim   arrProcent (4) As Integer   

Dim   total As Integer   

Dim   arrColor () As Object = (Color.Salmon, Color.SeaGreen, Color.Gold,   Color.Maroon, Color.Orchid)   

Dim   arrTitle () As String = ( "Пункт1", "Пункт2", "Пункт3", "Пункт4", "Пункт5")   

Dim   rect As Object   

sub_total   = 0   

start_angle   = 0   

offset   = 20   

diameter   = 170   

total   = 0   

Dim   bmp As New Bitmap (width, height, PixelFormat.Format32bppArgb)   

Dim   g as Graphics = Graphics.FromImage (bmp)   

Dim   fnt As New Font ( "Arial", 8)   

Dim   sb As New SolidBrush (Color.Blue)   

g.Clear (Color.White)      

g.SmoothingMode   = SmoothingMode.HighQuality   

'сума значень у масиві   

For   i = 0 To arrData.GetUpperBound (0)   

total   = Total + arrData (i)   

Next      

'відсотки   

For   i = 0 To arrData.GetUpperBound (0)   

arrProcent (i)   = Math.Round ((arrData (i)/total) * 100)   

Next      

For   i = 0 To arrProcent.GetUpperBound (0)   

sub_total   = Sub_total + arrProcent (i)   

pie_size   = Sub_total * 360/100 - start_angle   

g.FillPie (New   SolidBrush (arrColor (i)), offset, offset, diameter, diameter, start_angle,   pie_size)   

start_angle   = Start_angle + pie_size   

rect   = New Rectangle (offset + diameter + 10, offset + i * 20, 15, 15)   

g.FillRectangle (New   SolidBrush (arrColor (i)), rect)   

g.DrawString (arrTitle (i)   & "- [" & ArrProcent (i) & "%]", fnt, sb,   offset + diameter + 10 + 20, offset + i * 20)   

Next      

bmp.Save (Response.OutputStream,   ImageFormat.Jpeg)   

g.Dispose ()      

bmp.Dispose ()      

Response.End ()      

%>     

Результат роботи скрипта:

Список літератури

Для підготовки даної роботи були використані матеріали з сайту http://www.activex.net.ru/