用VB作动画.pptVIP

复习：（上一节课学习了绘图的基础知识以及用之画函数图像） 一、画从小到大的一些圆 画从小到大的一些圆代码： Private Sub Command2_Click() Dim x As Single, Y As Single Scale (-100, 100)-(100, -100) For X = 0 To 60 Step 1 Circle (0, 0), X, RGB(255, 0, 0) Next X End sub 基础练习 一、画从小到大的一些圆，要求这些圆过一个定点 分析定点圆中圆心与半径关系 分析定点圆中圆心与半径关系 分析V字圆中圆心的坐标 解析法 象这种通过分析问题中各要素之间的关系，并使用相关的知识，最终通过一系列的推导得出解决问题所需要的式子，然后设计程序，求解问题的方法称为解析法。 二、一个圆由小变大的动画 基础练习(选作一个，提交作业） 一、做一个过定点的圆由小变到大的动画 总结： 　　　这一节课我们主要学习了用VB制作简单的动画，主要是循环和绘图方法的结合，我们只有灵活地、创造性地运用数学和VB的知识，才能达到你想要的效果。 * * 用VB制作简单的动画 一、两种画图方式 二、自定义坐标系的方法（scale) 三、画点的方法（pset) A、用控件 B、用函数和方法 ［对象.］Scale(x1,y1)-(x2,y2) ［对象.］Pset (x,y) ,［颜色］ 四、画线的方法（line) 五、画圆的方法（circle) ［对象.］Line (x1,y1)-(x2,y2)［,颜色］ ［对象.］Circle (x,y) ,半径，［,颜色］ 六、“画函数图象”作业展示、点评 用VB制作简单的动画 定义变量 自定义坐标系 开始 画圆 达到要求的个数？ 结束 Y N 调试运行 确定算法 界面设计 编写代码 二、画这样效果的一些圆，这些圆组成一个V字 提高练习 O (?,0) X circle (x,0),x,rgb(255,0,0) (?,?) X X0,y0 (?,?)=(x0+x,y0) circle (x0+x,y0),x,rgb(255,0,0) Y=2x circle (x,2*x),r0,rgb(255,0,0) 定义变量 自定义坐标系 清除这个圆 结束 开始 画圆 达到要求的个数？ Y N Private Sub Command1_Click() Dim X As Single, Y As Single Scale (-100, 100)-(100, -100) For X = 0 To 60 Step 1 Circle (0, 0), X For Y = 1 To 1000000 Next Y Cls Next X End Sub 三、做一个由一个圆变两个圆的动画 二、做一个圆由小变到大，跟着又变小的动画 提高练习(提交源文件和EXE文件） *