2.4 逐帧动画 课件（13张PPT）
文档属性
| 名称 | 2.4 逐帧动画 课件（13张PPT） |  | |
| 格式 | pptx | ||
| 文件大小 | 5.8MB | ||
| 资源类型 | 教案 | ||
| 版本资源 | 粤教版 | ||
| 科目 | 信息技术（信息科技） | ||
| 更新时间 | 2021-03-22 10:12:40 | ||
图片预览
文档简介
逐帧动画
广东教育出版社 八年级下册 第二单元 第四节
逐帧动画是利用视觉暂留原理，在“连续的关键帧”中分解动画动作，也就是在时间轴的每帧上逐个地绘制不同的内容，使其连续播放而成动画。
兔子跑的任务分析
小兔子从右至左，位置发生了变化，而且跑步的过程中，姿势在变化。另外，当我们选择不同的速度选项时，它的跑动速度明显不同。因此，兔子跑的任务我们可以从形态、位置和速度三个方面进行分析。
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语句的格式来书写造成的。
小结
说说本节课的收获？
谢 谢
广东教育出版社 八年级下册 第二单元 第四节
逐帧动画是利用视觉暂留原理，在“连续的关键帧”中分解动画动作，也就是在时间轴的每帧上逐个地绘制不同的内容，使其连续播放而成动画。
兔子跑的任务分析
小兔子从右至左，位置发生了变化，而且跑步的过程中，姿势在变化。另外，当我们选择不同的速度选项时，它的跑动速度明显不同。因此，兔子跑的任务我们可以从形态、位置和速度三个方面进行分析。
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语句的格式来书写造成的。
小结
说说本节课的收获？
谢 谢