VB绘制图形程序设计.docVIP

实 验 报 告 姓名 唐宇伟 班级 0914111 学号 26 实验日期 课程名称 VB 程序设计 指导教师 张晓梅 成绩 实验名称：绘制图形的程序设计 实验目的 1）掌握GDI+的画图三步曲；熟悉画布、画笔的定义，以及各种绘图方法。 2）掌握GDI+的书写三步曲，熟悉画刷、字体的定义，以及书写方法和各种填充方法。 3）掌握绘制函数图形的基本步骤和方法（圆点法、线点法、折线法），熟悉坐标变换和坐标系变换的计算公式。 实验环境 Visual Studio 2008 实验内容 1）绘制简单函数图形 在400×250的窗体上，选用Label作为画布。单击画布，绘制坐标轴和Cos(x)函数在-2π～2π的图形，如图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 Sub End Class 2）绘制参数方程曲线 图2绘制参数方程曲线 在300×300的窗体上，选用Label作为画布。单击画布，先绘制坐标轴，再绘制参数方程：的曲线。n（范围1~20）与放大系数（范围10~99）分别由两个滚动条控制，运行界面如图2所示。单击“清屏”按钮，清除画布上的图形和文字。 控件的主要属性： Label:Text 程序代码： Imports System.Math 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 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, -x