猪嘟 / stone / ASP.Net生成数据的统计图形

分享

   

ASP.Net生成数据的统计图形

2010-12-28  猪嘟
 在使用Excel处理报表时候,往往要利用系统带的图表工具生成比例示意图,不仅直观,又显专业。当然,在Web应用程序中,也可以使用Office Web Components 功能,但是却很复杂。在.NET框架下,通过简单的编程,就可以轻松地做出地道的比例示意图。在使用GDI+作图的时候,除了要熟练应用.NET提供的类外,还要从整体上把握图形生成的坐标。在GDI+里,最左上角的坐标为(0,0),最右下角的做标值最大。

  本节我们将通过GID+绘制图形。便于实例模拟,我们采用数组数据来模拟公司业务数据。

  新建一个Web窗体,命名为GDI_Sample2.aspx,逻辑代码如下:

  '-----code begin-----

  Imports System.Drawing

  Imports System.Drawing.Bitmap

  Imports System.Drawing.Graphics

  Imports System.Drawing.Imaging

  Public Class GDI_Sample4

  Inherits System.Web.UI.Page

  #Region " Web 窗体设计器生成的代码 "

  '此处省略窗体设计器生成的代码

  #End Region

  '定义公共数组变量,用来存放模拟公司销售额数据

  Public data(5, 1) As String

  Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

  '在此处放置初始化页的用户代码

  Dim i As Int16

  Dim objbitmap As Bitmap

  objbitmap = New Bitmap(400, 300)

  '声明Graphics对象

  Dim objGraphics As Graphics

  '指定画布

  objGraphics = Graphics.FromImage(objbitmap)

  '设置背景色为白色

  objGraphics.Clear(Color.White)

  '画出图形边框,注意留出划线的空间,为一个象素

  objGraphics.DrawRectangle(Pens.Black, 1, 1, 398, 298)

  '生成表头文字

  objGraphics.DrawString("本公司上半年营业额统计图", New Font("宋体", 16, FontStyle.Bold), Brushes.Black, New PointF(60, 5))

  '获取模拟数据

  getdata()

  Dim monthcolor As PointF = New PointF(260, 40)

  Dim fontinfor As PointF = New PointF(285, 36)

  '画出示意颜色图例

  For i = 0 To 5

  '画出填充矩形。

  objGraphics.FillRectangle(New SolidBrush(getcolor(i)), monthcolor.X, monthcolor.Y, 20, 10)

  '画出矩形边框。

  objGraphics.DrawRectangle(Pens.Black, monthcolor.X, monthcolor.Y, 20, 10)

  '画出图例说明文字--data(i, 0)

  objGraphics.DrawString(data(i, 0), New Font("宋体", 10), Brushes.Black, fontinfor)

  '移动坐标位置,只移动Y方向的值即可。

  monthcolor.Y += 15

  fontinfor.Y += 15

  Next i

  '遍历数据源的每一项数据,并根据数据的大小画出矩形图(即柱形图的柱)。

  For i = 0 To 5

  '画出填充矩形。

  objGraphics.FillRectangle(New SolidBrush(getcolor(i)), (i * 25) + 35, 270 - CInt(data(i, 1)), 15, CInt(data(i, 1)))

  '画出矩形边框线。

  objGraphics.DrawRectangle(Pens.Black, (i * 25) + 35, 270 - CInt(data(i, 1)), 15, CInt(data(i, 1)))

  Next

  '画出示意坐标

  objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, 0, 10, 320)

  objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, 270, 200, 270)

  '在示意坐标上添加数值标志,注意坐标的计算

  For i = 0 To 5

  objGraphics.DrawLine(New Pen(Color.Blue, 1), 10, i * 50 + 20, 20, i * 50 + 20)

  objGraphics.DrawString((250 - i * 50).ToString, New Font("宋体", 10), Brushes.Black, 12, i * 50 + 8)

  Next

  ' 统计总销售额

  Dim scount As Integer

  For i = 0 To 5

  scount += CInt(data(i, 1))

  Next

  '定义画出扇形角度变量

  Dim scg As Single = 0

  Dim stg As Single = 0

  For i = 0 To 5

  '计算当前角度值:当月销售额 / 总销售额 * 360,得到饼图中当月所占的角度大小。

  scg = CInt(data(i, 1)) / scount * 360

  '画出填充圆弧。

  objGraphics.FillPie(New SolidBrush(getcolor(i)), _

  220, 150, 120, 120, stg, scg)

  '画出圆弧线。

  objGraphics.DrawPie(Pens.Black, 220, 150, 120, 120, stg, scg)

  '把当前圆弧角度加到总角度上。

  stg += scg

  Next i

  '画出说明文字

  objGraphics.DrawString("柱状图", New Font("宋体", 15, FontStyle.Bold), Brushes.Blue, 50, 272)

  objGraphics.DrawString("饼状图", New Font("宋体", 15, FontStyle.Bold), Brushes.Blue, 250, 272)

  '输入到终端--用户浏览器

  objbitmap.Save(Response.OutputStream, Drawing.Imaging.ImageFormat.Gif)

  End Sub

  '生成模拟数据的过程

  Sub getdata()

  Dim i As Integer

  Dim objrandom As Random

  data(0, 0) = "一月份"

  data(1, 0) = "二月份"

  data(2, 0) = "三月份"

  data(3, 0) = "四月份"

  data(4, 0) = "五月份"

  data(5, 0) = "六月份"

  data(0, 1) = "85"

  data(1, 1) = "135"

  data(2, 1) = "85"

  data(3, 1) = "110"

  data(4, 1) = "130"

  data(5, 1) = "200"

  End Sub

  '获取色彩值的通用函数

  Function getcolor(ByVal i As Int16) As Color

  Dim newcolor As Color

  i += 1

  Select Case i

  Case 1

  newcolor = Color.Blue

  Case 2

  newcolor = Color.ForestGreen

  Case 3

  newcolor = Color.Gainsboro

  Case 4

  newcolor = Color.Moccasin

  Case 5

  newcolor = Color.Indigo

  Case 6

  newcolor = Color.BurlyWood

  End Select

  Return newcolor

  End Function

  End Class

  '----code end -----

  保存编译后,运行效果如图11.4所示。

 
图 11.4 GDI_Sample4.aspx运行结果


  在实际应用中,往往要根据数据库中的数据来生成图形,比较好的实例就是在线投票统计图形,有兴趣的读者可以编写一下。

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    来自: 猪嘟 > 《stone》

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>