pasta.aspx

<%@ Page Language="VB" %>

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

<script runat="server">
Private Sub Page_Load(ByVal Sender As System.Object, ByVal E As System.EventArgs)

Dim BMP As System.Drawing.Bitmap
Dim Resim As System.Drawing.Graphics
Dim Yazi As System.Drawing.Font

Dim Deger() As String
Dim Sayi As String
Dim Gorun As String

Dim Ibare() As String
Dim Metin As String

Dim Toplam As Single
Dim DegerOran As Single
Dim YuzdeOran As Single

Dim yiX As Integer
Dim y1B As Single
Dim y1S As Single

Sayi=Request.QueryString("sayi")
Deger=Split(Sayi,"-")

Metin=Request.QueryString("metin")
Ibare=Split(Metin,"-")

Gorun=Request.QueryString("gorun")

BMP=New Bitmap(360, 110)
Resim=System.Drawing.Graphics.FromImage(BMP)
Yazi=New Font("Verdana", 8, FontStyle.Regular)
Resim.Clear(Color.White)

For yiX=0 To UBound(Deger)
    Toplam = Toplam + Deger(yiX)
Next

DegerOran=360/Toplam
YuzdeOran=10000/Toplam

For yiX=0 To UBound(Deger)
    y1B=y1B + y1S
    y1S=Deger(yiX) * DegerOran
    If Gorun="yuzde"
        Ibare(yiX)=Ibare(yiX) & " (% " & CInt(Deger(yiX) * YuzdeOran)/100 & ")"
    End If
    If Gorun="deger"
        Ibare(yiX)=Ibare(yiX) & " (" & Deger(yiX) & ")"
    End If
    
    Select Case yiX
        Case 0
            Resim.FillPie(Brushes.Red, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Red, 115, (13*yiX)+5, 9, 9)
        Case 1
            Resim.FillPie(Brushes.Green, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Green, 115, (13*yiX)+5, 9, 9)
        Case 2
            Resim.FillPie(Brushes.Blue, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Blue, 115, (13*yiX)+5, 9, 9)
        Case 3
            Resim.FillPie(Brushes.Brown, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Brown, 115, (13*yiX)+5, 9, 9)
        Case 4
            Resim.FillPie(Brushes.Yellow, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Yellow, 115, (13*yiX)+5, 9, 9)
        Case 5
            Resim.FillPie(Brushes.Gray, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Gray, 115, (13*yiX)+5, 9, 9)
        Case 6
            Resim.FillPie(Brushes.Magenta, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Magenta, 115, (13*yiX)+5, 9, 9)
        Case 7
            Resim.FillPie(Brushes.Orange, 5, 5, 100, 100, y1B, y1S)
            Resim.FillRectangle(Brushes.Orange, 115, (13*yiX)+5, 9, 9)
    End Select
    
    Resim.DrawRectangle(Pens.Black, 115, (13*yiX)+5, 9, 9)
    Resim.DrawString(Ibare(yiX), Yazi, Brushes.Black, 127, (13*yiX)+3)
Next

Response.ContentType="image/bmp"
BMP.Save(Response.OutputStream, ImageFormat.Gif)

Resim.Dispose()
BMP.Dispose()

End Sub

</script>

Örnekler;

http://www.ufukyayla.com/0szpnet/pasta.aspx?gorun=yuzde&sayi=4-10-8-5&metin=He-Yo-Gibi-Ne?


http://www.ufukyayla.com/0szpnet/pasta.aspx?gorun=deger&sayi=4-10-8-5&metin=He-Yo-Gibi-Ne?


http://www.ufukyayla.com/0szpnet/pasta.aspx?gorun=yok&sayi=4-10-8-5&metin=He-Yo-Gibi-Ne?


Bunu bir servis olarak kullanmayın ha

yukarıdaki grafik yapısını c#'a çevirdim, boyutlarıyla oynadığımdan biraz daha büyük gözükecektir, değiştirirsiniz. Bununla beraber c#'ta nasıl herhangi bir veri kaynağından data alarak bunu piechart'a doldurabileceğimizle ilgili bir örnek yapıp buraya koymayı planlıyorum. Umarım şimdilik bu işinize yarar.

Ufuk yayla'ya da teşekkürler.

protected void Page_Load(object sender, EventArgs e)
            {
                  
                  Bitmap BMP;
                  Graphics Resim;
                  Font Yazi;

                  string[] Deger, Ibare;
                  string Sayi, Gorun, Metin;

                  int DegerOran = 0, YuzdeOran = 0;
                  int Toplam = 0, y1B = 0, y1S= 0;
                  
                  Sayi = Request.QueryString["sayi"];
                  Deger = Sayi.Split('-');

                  Metin = Request.QueryString["metin"];
                  Ibare = Metin.Split('-');

                  Gorun = Request.QueryString["gorun"];

                  BMP = new Bitmap(800,600);
                  Resim = Graphics.FromImage(BMP);
                  Yazi = new Font("Verdana",8,FontStyle.Regular);
                  Resim.Clear(Color.White);

                  for (int yiX = 0; yiX < Deger.Length; yiX++)
{
                        
      Toplam += Convert.ToInt32(Deger[yiX]);
}

                  DegerOran = 360 / (int)Toplam;
                  YuzdeOran = 10000 / (int)Toplam;



                  for (int yiX = 0; yiX < Deger.Length; yiX++)
{
      y1B += y1S;
                        y1S = Convert.ToInt32(Deger[yiX]) * DegerOran;
                        if(Gorun == "yuzde")
                              Ibare[yiX] = Ibare[yiX] + " (% " + Convert.ToInt32(Deger[yiX]) * YuzdeOran / 100 + ")";
                        if(Gorun == "deger")
                              Ibare[yiX] = Ibare[yiX] + " (" +Deger[yiX] + ") ";
                        switch (yiX)
                  {
                              case 0:
                                    Resim.FillPie(Brushes.Red,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.Red, 115, (13*yiX) + 5 , 9, 9);
                                    break;
                              case 1:
                                    Resim.FillPie(Brushes.Green,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.Green,115,(13*yiX) + 5, 9, 9);
                                    break;
                              case 2:
                                    Resim.FillPie(Brushes.Wheat, 5, 5, 400, 400, y1B, y1S);
                                    
                                    Resim.FillRectangle(Brushes.Wheat, 115, (13 * yiX) + 5, 9, 9);
                                    break;
                              case 3:
                                    Resim.FillPie(Brushes.Blue,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.Blue, 115, (13*yiX) + 5,9,9);
                                    break;
                              case 4:
                                    Resim.FillPie(Brushes.Yellow,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.Yellow,115,(13*yiX) + 5, 9, 9);
                                    break;
                              case 5:
                                    Resim.FillPie(Brushes.Orange,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.Orange, 115, (13*yiX) + 5,9,9);
                                    break;
                              case 6:
                                    Resim.FillPie(Brushes.SkyBlue,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.SkyBlue,115,(13*yiX) + 5, 9, 9);
                                    break;
                              case 7:
                                    Resim.FillPie(Brushes.WhiteSmoke,5,5,400,400,y1B,y1S);
                                    Resim.FillRectangle(Brushes.WhiteSmoke, 115, (13*yiX) + 5,9,9);
                                    break;
                  }

                        
                        Resim.DrawRectangle(Pens.Black,115,(13*yiX)+5,9,9);
                        Resim.DrawString(Ibare[yiX],Yazi,Brushes.Black,127,(13*yiX)+3);


}
      
                  Response.ContentType = "image/bmp";
                  BMP.Save(Response.OutputStream, ImageFormat.Gif);
                  Resim.Dispose();
                  BMP.Dispose();
               
            }