VB绘制图形的程序设计.doc

实 验 报 告姓名 唐宇伟 班级 0914111 学号 26 实验日期 课程名称 VB 程序设计 指导教师 张晓梅 成绩实验名称：绘制图形的程序设计实验目的1）掌握GDI+的画图三步曲；熟悉画布、画笔的定义，以及各种绘图方法。2）掌握GDI+的书写三步曲，熟悉画刷、字体的定义，以及书写方法和各种填充方法。3）掌握绘制函数图形的基本步骤和方法（圆点法、线点法、折线法），熟悉坐标变换和坐标系变换的计算公式。实验环境Visual Studio 2008实验内容1）绘制简单函数图形在400250的窗体上，选用Label作为画布。单击画布，绘制坐标轴和Cos(x)函数在-22的图形，如图1所示。 图1绘制Cos(x)函数图形 控件的主要属性：（ 要求列出所有控件）Label:Text 程序代码：Public Class Form1 Const pi As Double = 3.1415926 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim g As Graphics = Label1.CreateGraphics Dim p As New Pen(Color.Black) Dim x0, y0, x2, y2, delt As Single Dim ampx, ampy As Integer ampx = 25 : ampy = 50 x0 = Label1.Width / 2 : y0 = Label1.Height / 2 g.TranslateTransform(x0, y0) g.DrawLine(p, 0, -y0, 0, y0) g.DrawLine(p, -x0, 0, x0, 0) delt = 0.01 For x = -2 * pi To 2 * 2 * pi Step delt x2 = x * ampx y2 = -Math.Cos(x) * ampy g.DrawEllipse(p, x2, y2, 1, 1) Next x p.Dispose() : g.Dispose() End Su Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class2）绘制参数方程曲线 图2绘制参数方程曲线在300300的窗体上，选用Label作为画布。单击画布，先绘制坐标轴，再绘制参数方程：的曲线。n（范围120）与放大系数（范围1099）分别由两个滚动条控制，运行界面如图2所示。单击“清屏”按钮，清除画布上的图形和文字。 控件的主要属性：Label:Text 程序代码：Imports System.MathPublic Class Form1 Const pi As Double = 3.1415926 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim g As Graphics = Label1.CreateGraphics Dim p As Pen = New Pen(Color.Black) Dim x0, y0, t, x, y As Single Dim amp As Integer, n As Integer, delt As Single n = 1 amp = 80 x0 = Label1.Width / 2 y0 = Label1.Height / 2 g.TranslateTransform(x0, y0) g.DrawLine(p, -x0, 0, x0, 0) g.DrawLine(p, 0, -y0, 0, y0) delt = 0.001 For t = 0 To 2 * pi Step delt x = -Sin(n * t / 2) * Cos(2 * t) * amp y = -Sin(n * t / 2) * Sin(2 * t) * amp g.DrawLine(p, x, y, x + 1, y) Next t g.Dispose() : p.Dispose() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g As Graphics = Label1.CreateGraphics g.Clear(Label1.BackColor) Label1.Text = End SubEnd Class实验小结 (1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。 （2)通过此次实验，你有什么体会、有哪些收获。总体来说，这次的两个实验设计都是非常成功的。不过还是有许多的问题。在绘制简单函数图形的实验中，要选用Label作为画布。单击画布，绘制坐标轴和Cos(x)函数在-22的图形。但是在做的过程中还有许多的问题的，比如比较容易输错函数的正负号，这值得我以后慢慢的改正。当然，在这节课上我还体会到了许多东西。我还知道了在设计程序一定要定义一些量，这样才会便于设计和操作。当然，我还明白了做事要仔细，不能粗细大意，要注意细节，这样才能做好自己的事。此外我还发现了许多的问题和困惑。对于我来说，程序循环和赋值， 加都是难点，很难理解，这就需要我