2.4 逐帧动画 课件（13张PPT）

逐帧动画 广东教育-出卷网- 八年级下册 第二单元 第四节 逐帧动画是利用视觉暂留原理，在“连续的关键帧”中分解动画动作，也就是在时间轴的每帧上逐个地绘制不同的内容，使其连续播放而成动画。 兔子跑的任务分析 小兔子从右至左，位置发生了变化，而且跑步的过程中，姿势在变化。另外，当我们选择不同的速度选项时，它的跑动速度明显不同。因此，兔子跑的任务我们可以从形态、位置和速度三个方面进行分析。 1、形态变化 两幅大小相同、动作不同的小兔子的图片，它们间隔一定时间交替显示，不断重复就形成了小兔子跑步动态效果。 2、位置变化 小兔子图片向左移动，具体来说，就是兔子图片的left属性减少一定的数值。 3、速度变化 加快兔子跑动的速度，我们可以通过增加步幅和加快频率两种方式来实现。 Timer控件作用是有规律地每间隔一段时间执行一组代码，直到被禁止为止。 有两个重要的属性：Interval属性、Enabled属性。 时间宝石———计时器Timer 1、Interval属性是以千分之一秒为单位指定Timer事件之间的间隔。小兔子在Interval属性值所设定的时间范围内显示其中的一幅图片，下一周期则显示另一张图片；另外，小兔子速度的变化就是通过Interval属性来实现，将Interval属性值改小，小兔子变化的频率快，就跑得快一些，反之，则跑得慢一些。 2、Enabled属性值为True时，才触发Timer事件，否则停止或不启动Timer事件。其默认值为True时；当需要停止执行Timer事件，需要把Enabled属性设为False。 时间宝石———计时器Timer 开关———Enable属性 间�———Interval属性 OptionButton控件 OptionButton控件作用是显示一个可以打开或者关闭的选项。可以设置一个选项组，用OptionButton来显示选项，每个选项代表一种选择，用户只能选择其中一项。 分支结构 要让计算机根据不同的情况执行不同的任务时，需要用到分支语句。 VB中最常用的分支结构是IF语句，它的格式如下： If 条件 Then 语句组1 Else 语句组2 End If 表示当“条件”成立时，执行语句组1，否则执行语句组2. 分支结构 否 是 a=1? 载入第1张图片 将a 的值改为2 载入第2张图片 将a 的值改为1 兔子形态变化流程图 界面设置 Timer控件 按钮控件 optionButton控件 打开 “未完善逐帧动画.Vbp”文件，按要求完善界面设置,更改Time控件的Enabled属性为False、Interval属性为500；更改Image的Stretch属性为True,加载picture属性；更改其它控件的名称、caption等属性。 Image控件 添加脚本 Dim a As Integer Private Sub cmdtz_Click() Timer1.Enabled = False End Sub Private Sub cmdks_Click() Timer1.Enabled = True End Sub Private Sub optks_Click() Timer1.Interval = 100 End Sub Private Sub optms_Click() Timer1.Interval = 800 End Sub Private Sub optzs_Click() Timer1.Interval = 400 End Sub Private Sub Timer1_Timer() If a = 1 Then Image1.Picture = LoadPicture(App.Path & "\1.gif") a = 2 Else Image1.Picture = LoadPicture(App.Path & "\2.gif") a = 1 End If Image1.Left = Image1.Left - 200 If Image1.Left < 0 Then Image1.Left = Form1.Width End If End Sub 单击停止按钮时，不启动Timer事件 单击开始按钮时，启动Timer事件 单击快速时， 小兔子变化频率快 单击慢速时， 小兔子变化频率慢 图片和程序文件需要放在同一个文件夹额，运行前，请先保存。 Timer控件启动时 当a=1时，加载第一幅图；a=2时，加载第二幅图 图像向左移动，就是图像left值减少 当图片的left值<0时，图片的left值等于窗体的宽度 定义a为整型数据 调试程序 出现下图所示的程序错误，应该如何修改？ 在VB的语句中，If 和End If是配对出现的，这类错误，是由于没有按照If ... ...