vb定時器

1、1課題課題：定時器循環(huán)定時器循環(huán)教學(xué)要求教學(xué)要求：了解VB中的定時器，并會利用定時器實現(xiàn)循環(huán)結(jié)構(gòu)。教學(xué)重點(diǎn)與難點(diǎn)教學(xué)重點(diǎn)與難點(diǎn)：定時器的兩個重要屬性教學(xué)方法教學(xué)方法：教師操作演示，學(xué)生觀察總結(jié)。任務(wù)驅(qū)動、啟發(fā)式教學(xué)、邊講解邊操作。教學(xué)過程教學(xué)過程：【新課導(dǎo)入新課導(dǎo)入】電腦的屏幕保護(hù)程序。運(yùn)行桌面上的幾個小例子后，大家有沒有發(fā)現(xiàn)有一個共同的特征？【新課教學(xué)新課教學(xué)】VB的工具箱中有一個定時器定時器控件可以幫助我們實現(xiàn)這種循環(huán)。定時器循環(huán)定

2、時器循環(huán)PPT首先，在定時器對象中存放需要重復(fù)執(zhí)行的程序，定時器工作時，每經(jīng)過一定時間間隔就觸發(fā)存放在定時器對象中的程序而形成循環(huán)。定時器的兩個重要屬性是“EnabledEnabled”和“IntervalInterval”。當(dāng)“Enabled”的屬性為“True”時，定時器開始工作；屬性為“False”時，定時器停止工作。“Interval”屬性決定了定時器對象中程序的時間間隔，，它的取值范圍為0~65535（單位：毫秒）。一、一、“

3、倒計時倒計時”程序程序（1）程序功能）程序功能運(yùn)行“倒計時”程序。在文本框中輸入開始倒計時的秒值，再單擊“開始”按鈕，開始倒計時。下面，我們就利用定時器來完成這個“倒計時”程序。（把教材翻到39頁，圖3.37，定時器的界面）（2）分析界面和原理）分析界面和原理程序界面上有哪些對象？有一個文本框（TextBox）用來輸入要倒計時的秒數(shù)、一個標(biāo)簽（Label）顯示單位，兩個按鈕（CommButton）用來開始倒計時和結(jié)束整個程序。這個程序的

4、主角是誰呢？定時器（Timer）（下面我們就要讓這個主角上場了）（打開半成品）向窗體中添加一個定時器對象“Timer1”（在工具箱的哪里可以找到？忘記的話可以看書本39頁）。先將定時器處于關(guān)閉狀態(tài)，檢查“Enabled”屬性是否為False”。（還有一個屬性是什么？時間間隔）將“Timer1”的“Interval”屬性設(shè)置為“1000”（什么意思？）單擊“開始”按鈕，就將文本框中的值存入變量i，再將定時器對象“Timer1”的“Enab

5、led”屬性設(shè)置為“True”，定時器開始工作。定時器每隔1秒，就使變量i中的值減少1，可以用什么表達(dá)式來表示數(shù)字的逐一遞減？（i=i1）。也就是定時器每隔1秒，執(zhí)行一次i=i1。并將變量i中的值顯示在文本框中，怎么表示？（Text1.Text=i）。當(dāng)變量i中的值減到0時，將對象“Timer1”的“Enabled”屬性設(shè)置為“False”，定時器停止工作。（2）程序源碼）程序源碼DimiAsInteger定義一個存放倒計時開始秒數(shù)的整

6、型變量定義一個存放倒計時開始秒數(shù)的整型變量PrivateSubComm1_Click()i=Text1.Text將文本框?qū)ο笾休斎氲拿胫蒂x給變量iTimer1.Enabled=True使定時器開始工作EndSubRem定時器對象中的程序段PrivateSubTimer1_Timer()i=i1秒數(shù)遞減Text1.Text=i將遞減后的數(shù)值顯示在文本框中（如果不打以下語句會怎樣？用倒計時3秒演示）Ifi=0ThenTimer1.Enabl

7、ed=False當(dāng)秒值遞減到0時，關(guān)閉定時器，結(jié)束循環(huán)。2EndSubPrivateSubComm2_Click()EndEndSub學(xué)生練習(xí)：學(xué)生練習(xí)：下發(fā)“倒計時半成品”，學(xué)生完成。PPT（倒計時程序的關(guān)鍵點(diǎn)）。程序做完了，大家對定時器有了一定的認(rèn)識了吧。像這種每隔一段時間需要自動運(yùn)行的并且重復(fù)執(zhí)行的程序段，我們可以把它們放進(jìn)定時器，讓定時器來幫我們掌握時間、控制循環(huán)。下面我們再來另外一個例子。二、二、“動畫動畫”程序程序運(yùn)行“動畫

8、”程序。思考以下問題：明明給了30張靜止的圖片，為什么單擊“開始”按鈕里面的人就會動起來呢？（每隔0.2秒切換一張圖片，利用人眼的“視覺暫留”原理，形成連續(xù)的動態(tài)效果）誰來控制這0.2秒的時間間隔呢？（定時器）準(zhǔn)備知識：Image1.Picture=LoadPicture(“tiger.jpg“)Image1.Picture=LoadPicture(x&“.jpg“)將序號為x的圖形送入Image對象Timer1中的循環(huán)體：x=x1If

9、x30Thenx=1Image1.Picture=LoadPicture(x&“.jpg“)打開“動畫”程序工程，分析界面和代碼。其中Image1好像凹進(jìn)去的，這種邊緣樣式在哪里設(shè)置？（教材翻到41頁BderStyle設(shè)置屬性值為1）做好程序后，有些同學(xué)會發(fā)現(xiàn)提示“未找到1.jpg”這是為什么？（必須把所有圖片放在與工程的相同目錄下）最后提醒大家，千萬別忘記設(shè)置定時器的“Interval”屬性（時間間隔）。好了，給大家30張圖片你可以編

10、寫一個“動畫”程序了，那如果我給你110張圖片你也會利用定時器讓動畫動起來嗎？需要在程序的哪里修改一下呢？“一周表情”exe文件。學(xué)生練習(xí)：學(xué)生練習(xí)：下發(fā)“一周表情半成品”，參考教材P.40“動畫”程序，完成“一周表情”程序。點(diǎn)評作業(yè)點(diǎn)評作業(yè)【小結(jié)小結(jié)】本節(jié)課了解了VB中的定時器，并會利用定時器實現(xiàn)循環(huán)結(jié)構(gòu)。在定時器對象中存放需要重復(fù)執(zhí)行的程序，定時器工作時，每經(jīng)過一定時間間隔就觸發(fā)存放在定時器對象中的程序而形成循環(huán)。定時器的兩個重要屬