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

实验名称：绘制图形的程序设计 实验目的 1）掌握GDI+的画图三步曲；熟悉画布、画笔的定义，以及各种绘图方法。 2）掌握GDI+的书写三步曲，熟悉画刷、字体的定义，以及书写方法和各种填充方法。 3）掌握绘制函数图形的基本步骤和方法（圆点法、线点法、折线法），熟悉坐标变换和坐标系变换的计算公式。 实验环境 Visual Studio 2008 实验内容 1）绘制简单函数图形 在400×250的窗体上，选用Label作为画布。单击画布，绘制坐标轴和Cos x 函数在-2π～2π的图形，如图1所示。 控件的主要属性：（ 要求列出所有控件） 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）绘制参数方程曲线 在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, -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