逐帧动画学案

1、第二章第四节 逐帧动画 学案一、任务一：补充代码，练一练。达到效果：点击“奔跑吧！兔子”按钮，兔子会向左移动一次。（5分）二、任务二：修改代码，查看动画效果（5分）观察参考案例中“运用Timer控件的一种效果”，在对比任务一中的移动，建立timer控件的功能的初步印象。仔细理解代码，为下一个任务做好铺垫。(在英文字符 后面的红色字是注释语句)Private Sub cmdStart_Click() 事件：单击一次名称为“Cmdstart”的按钮 tmrRun.Enabled = True 名称为“tmrRun”的时钟控件的Enabled 属性的值 为true tmrRun.Interval =

2、 500 名称为“tmrRun”的时钟控件的Interval属性值为500End SubPrivate Sub tmrRun_Timer() imgRabbit.Left = imgRabbit.Left - 100 让名称为“imgRabbit”的Image控件对象的left属性值减少100End SubPrivate Sub cmdStop_Click()tmrRun.Enabled = False 名称为“tmrRun”的时钟控件的Enabled 属性的值为falseEnd Sub序号修改前修改后动画效果变化1PrivateSubcmdStart_Click() tmrRun.Enabl

3、ed=True EndSubPrivateSubcmdStart_Click() tmrRun.Enabled=False EndSub2PrivateSubcmdStart_Click() tmrRun.Interval=500 End SubPrivateSubcmdStart_Click() tmrRun.Interval=100 EndSub3PrivateSubtmrRun_Timer() imgRabbit.Left=imgRabbit.Left-500 EndSubPrivateSubtmrRun_Timer() imgRabbit.Left=imgRabbit.Left-100

4、 EndSub3、知识点：VB中Timer控件在工具箱中的图标是，其作用是有规律地每间隔一段时间执行一组代码，它的响应是随时间的流逝而执行，Timer控件有两个重要的属性，即Interval属性Enabled属性。（1）Interval属性Interval属性是以千分之一秒为单位指定Timer事件之间的间隔，具体的设置方式是在窗体中先增加Timer控件图标，然后在属性面板中设置Interval属性值，如图2-4-3所示。 图2-4-3 Timer控件和Interval属性（2）Enabled属性和其他控件的Enabled属性一样，Timer控件的Enabled属性值为True时，才触发Time

5、r事件，否则停止或不启动Timer事件。4、更改文件夹“班级+姓名”为自己的班级和名字，按照参考案例，完成代码编写。三、任务三：optionbutton控件应用1、理解optionbutton控件的应用并将任务3中的程序补充完整,实现兔子用快、中、慢三种不同速度的变速奔跑。完成加5分。（代码参考：Private Sub cmdStart_Click() 事件：单击一次名称为“cmdstart”的按钮 tmrRun.Enabled = True 名称为“tmrRun”的时钟控件的Enabled 属性的值 为trueEnd SubPrivate Sub cmdStop_Click() tmrRun

6、.Enabled = False 名称为“tmrRun”的时钟控件的Enabled 属性的值 为FalseEnd SubPrivate Sub optFast_Click() tmrRun.Interval = 100 名称为“tmrRun”的时钟控件的Interval属性值为100End SubPrivate Sub optMid_Click() tmrRun.Interval = 300 名称为“tmrRun”的时钟控件的Interval属性值为300End SubPrivate Sub optSlow_Click() tmrRun.Interval = 500 名称为“tmrRun”的时

7、钟控件的Interval属性值为500End SubPrivate Sub tmrRun_Timer() imgRabbit.Left = imgRabbit.Left - 100 让名称为“imgRabbit”的Image控件对象的left属性值减少100End Sub）四、任务四：实现兔子形态变化的分支结构（5分）回忆逐帧动画的原理是“连续的关键帧”中分解动画动作，如何在VB中实现两张图片变化？载入第（ ）张图片载入第（ ）张图片载入第二张图片是否a=1a=2a= 1、完成流程图的填写根据流程图的提示，完成代码编辑If 条件 Then 语句组1 ： Else 语句组2： End If拓展任务：让兔子不断奔跑的If语句（8分）怎样让小兔子消失在左边后又从最右边开始重新跑动呢？1、Width属性可以帮助我们读取“窗体最右边的位置”，从而得知窗体的宽度。2、使用 If 语句设置条件：如果兔子已经到了“窗体最左边的位置”，即Left属性等于0，则移动兔子至“窗体最右边的位置。参考代码： Privat