第一次作业示例：设计一个美术图案.docVIP

设计一个美术图案 ——模仿模板绘制图案 班级：XXXXX-X 姓名：XXX 学号：XXXXXXXX 一、题目来源和思路： 由以前使用模板绘制图案想到的。使用手工绘图模板使小圆在大圆内滚动，小圆在滚动的过程中始终与大圆相切，小圆上任意一点的运动轨迹构成一幅图案。 二、设计分析： 小圆在大圆内滚动，小圆上任意一点P，若P点为圆心，则P点的运动轨迹是圆；若P点是非圆心的任意点，则P点的运动轨迹为各种旋转图案。 图案的形状与下述因素有关： 大圆和小圆的半径的相对大小 P点距离小圆圆心的距离 注：小圆的半径不能大于大圆的半径 三、数据计算： 小圆圆心从O1滚到O2，小圆上的P点从P滚到P1。由于大、小两圆滚动的弧长应相等，因此有： 大圆圆心坐标：（x0, y0） 当小圆圆心滚到O2处，其坐标为： 此时P点转到了P1，P1点的坐标： 四、程序说明： 为了能够绘制更多的形状，在程序中加入了输入参数，分别为小圆半径R2、P点距离小圆圆心的距离R3和循环次数N。 在界面上使用了四个文本框用于输入R1、R2、R3和N 在界面上使用了三个命令按钮分别控制程序的画图、清除图形区和退出。 在画图按钮中绘制图形。首先读取输入参数，计算曲线起点（P点）坐标，然后使用循环控制图形绘制。在循环体中计算P点的动点(P1)坐标（xp1,yp1），并画出与前一点的连线，最后将P1点的坐标赋予P点，进行下一次循环。 五、源程序清单 Dim R1, R2, R3 As Single Private Sub Command2_Click() Picture1.Cls End Sub Private Sub Command3_Click() Unload Form1 End Sub Private Sub Command1_Click() Dim xp, yp, xp1, yp1 As Single Dim n As Integer x0 = 2800 y0 = 2200 R1 = Val(Text1.Text) R2 = Val(Text2.Text) R3 = Val(Text3.Text) n = Val(Text4.Text) angle = 0 xp = x0 + (R1 - r2) * Cos(angle) - R3 * Cos(angle * R1 / R2) yp = y0 - (R1 - r2) * Sin(angle) - R3 * Sin(angle * R1 / R2) For I = 0 To n angle = angle + pi / 23 xp1 = x0 + (R1 - R2) * Cos(angle) - R3 * Cos(angle * R1 / R2) yp1 = y0 - (R1 - R2) * Sin(angle) - R3 * Sin(angle * R1 / R2) Picture1.Line (xp, yp)-(xp1, yp1), vbRed xp = xp1: yp = yp1 Next I End Sub Private Sub Form_Load() Picture1.Width = 5655：Picture1.Height = 4575 Picture1.ScaleWidth = 5896：Picture1.ScaleHeight = 4515 六、程序界面及运行结果 将程序中的： yp = y0 - (R1 - r2) * Sin(angle) - R3 * Sin(angle * R1 / R2)改为 yp = y0 + (R1 - r2) * Sin(angle) - R3 * Sin(angle * R1 / R2) yp1 = y0 - (R1 - R2) * Sin(angle) - R3 * Sin(angle * R1 / R2)改为 yp1 = y0 + (R1 - R2) * Sin(angle) - R3 * Sin(angle * R1 / R2) 程序运行结果为： 改变文本框中的参数，可以得到各种不同的图案。 xp = xp1: yp = yp1) Line (xp, yp)-(xp1, yp1) 计算P点坐标xp，yp Angle=Angle+pi/36 计算P1点坐标xp1，yp1 End IN? For I=0 to N x0,y0,R1,R2,R3,N 开始