2.4逐帧动画-粤高教版（B版）八年级信息技术下册课件(共21张PPT)

逐帧动画 第二章 第四节 学习目标 1、理解逐帧动画的原理 2、掌握Timer控件和OptionButton控件的运用 3、掌握分支结构的运用 第二章 第四节 逐帧动画 逐帧动画是利用视觉暂留原理，在“连续的关键帧”中分解动画动作，也就是在时间轴的每帧上逐个地绘制不同的内容，使其连续播放而成动画。 逐帧动画 1、形态变化 逐帧动画 1.gif 2.gif 2、位置变化 让小兔子向左运动，可以每间隔一定时间让兔子图片的Left属性减少。 imgrabbit.Left = imgrabbit.Left - 200 逐帧动画 3、速度变化 要改变兔子的移动速度，我们可以通过改变频率来实现。就是让它在相同的周期内多跑几次，这个可以通过Timer控件来实现。 逐帧动画 二、Timer控件 Timer控件有两个重要的属性：Interval和Enabled。 【Interval】属性是以千分之一秒为单位制定Timer事件之间的间隔。值越大，频率就越慢。 【Enabled】属性值为ture时候才会触发Timer事件，属性值为false的时候停止执行Timer事件。 Timer控件 三、OptionButton 控件 OptionButton控件 OptionButton控件 OptionButton控件的图标为 ，作用是显示一个可以打开或者关闭的选项。我们通常设置一个选项组，用OptionButton来显示选项，每个选项代表一种选择，用户只能选择其中一项。 例如： 四、分支结构 If 条件 then 语句组1 Else 语句组2 End If 分支结构 语句组1 语句组2 是 否 条件 12 分支结构 载入第一张图片 载入第二张图片 是 否 a=1 a=2 a=1 1.gif 2.gif 13 代码分析 Dim a As Integer Private Sub cmdstop_Click(Index As Integer) tmrrun.Enabled = False End Sub Private Sub cmdstart_Click(Index As Integer) tmrrun.Enabled = True End Sub Private Sub Form_Load() a = 1