逐幀動(dòng)畫學(xué)案

1、第二章第四節(jié) 逐幀動(dòng)畫 學(xué)案一、任務(wù)一：補(bǔ)充代碼，練一練。達(dá)到效果：點(diǎn)擊“奔跑吧！兔子”按鈕，兔子會(huì)向左移動(dòng)一次。（5分）二、任務(wù)二：修改代碼，查看動(dòng)畫效果（5分）觀察參考案例中“運(yùn)用Timer控件的一種效果”，在對(duì)比任務(wù)一中的移動(dòng)，建立timer控件的功能的初步印象。仔細(xì)理解代碼，為下一個(gè)任務(wù)做好鋪墊。(在英文字符 后面的紅色字是注釋語(yǔ)句)Private Sub cmdStart_Click() 事件：?jiǎn)螕粢淮蚊Q為“Cmdstart”的按鈕 tmrRun.Enabled = True 名稱為“tmrRun”的時(shí)鐘控件的Enabled 屬性的值 為true tmrRun.Interval =

2、 500 名稱為“tmrRun”的時(shí)鐘控件的Interval屬性值為500End SubPrivate Sub tmrRun_Timer() imgRabbit.Left = imgRabbit.Left - 100 讓名稱為“imgRabbit”的Image控件對(duì)象的left屬性值減少100End SubPrivate Sub cmdStop_Click()tmrRun.Enabled = False 名稱為“tmrRun”的時(shí)鐘控件的Enabled 屬性的值為falseEnd Sub序號(hào)修改前修改后動(dòng)畫效果變化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、知識(shí)點(diǎn)：VB中Timer控件在工具箱中的圖標(biāo)是，其作用是有規(guī)律地每間隔一段時(shí)間執(zhí)行一組代碼，它的響應(yīng)是隨時(shí)間的流逝而執(zhí)行，Timer控件有兩個(gè)重要的屬性，即Interval屬性Enabled屬性。（1）Interval屬性Interval屬性是以千分之一秒為單位指定Timer事件之間的間隔，具體的設(shè)置方式是在窗體中先增加Timer控件圖標(biāo)，然后在屬性面板中設(shè)置Interval屬性值，如圖2-4-3所示。 圖2-4-3 Timer控件和Interval屬性（2）Enabled屬性和其他控件的Enabled屬性一樣，Timer控件的Enabled屬性值為True時(shí)，才觸發(fā)Time

5、r事件，否則停止或不啟動(dòng)Timer事件。4、更改文件夾“班級(jí)+姓名”為自己的班級(jí)和名字，按照參考案例，完成代碼編寫。三、任務(wù)三：optionbutton控件應(yīng)用1、理解optionbutton控件的應(yīng)用并將任務(wù)3中的程序補(bǔ)充完整,實(shí)現(xiàn)兔子用快、中、慢三種不同速度的變速奔跑。完成加5分。（代碼參考：Private Sub cmdStart_Click() 事件：?jiǎn)螕粢淮蚊Q為“cmdstart”的按鈕 tmrRun.Enabled = True 名稱為“tmrRun”的時(shí)鐘控件的Enabled 屬性的值 為trueEnd SubPrivate Sub cmdStop_Click() tmrRun

6、.Enabled = False 名稱為“tmrRun”的時(shí)鐘控件的Enabled 屬性的值 為FalseEnd SubPrivate Sub optFast_Click() tmrRun.Interval = 100 名稱為“tmrRun”的時(shí)鐘控件的Interval屬性值為100End SubPrivate Sub optMid_Click() tmrRun.Interval = 300 名稱為“tmrRun”的時(shí)鐘控件的Interval屬性值為300End SubPrivate Sub optSlow_Click() tmrRun.Interval = 500 名稱為“tmrRun”的時(shí)

7、鐘控件的Interval屬性值為500End SubPrivate Sub tmrRun_Timer() imgRabbit.Left = imgRabbit.Left - 100 讓名稱為“imgRabbit”的Image控件對(duì)象的left屬性值減少100End Sub）四、任務(wù)四：實(shí)現(xiàn)兔子形態(tài)變化的分支結(jié)構(gòu)（5分）回憶逐幀動(dòng)畫的原理是“連續(xù)的關(guān)鍵幀”中分解動(dòng)畫動(dòng)作，如何在VB中實(shí)現(xiàn)兩張圖片變化？載入第（ ）張圖片載入第（ ）張圖片載入第二張圖片是否a=1a=2a= 1、完成流程圖的填寫根據(jù)流程圖的提示，完成代碼編輯If 條件 Then 語(yǔ)句組1 ： Else 語(yǔ)句組2： End If拓展任務(wù)：讓兔子不斷奔跑的If語(yǔ)句（8分）怎樣讓小兔子消失在左邊后又從最右邊開始重新跑動(dòng)呢？1、Width屬性可以幫助我們讀取“窗體最右邊的位置”，從而得知窗體的寬度。2、使用 If 語(yǔ)句設(shè)置條件：如果兔子已經(jīng)到了“窗體最左邊的位置”，即Left屬性等于0，則移動(dòng)兔子至“窗體最右邊的位置。參考代碼： Privat