的電腦你別動！
（1）培養學生的合作精神；
（2）學生間互相幫助，共同進步，培養互助人格；
（3）作品互評，互相借鑒，取長補短。
2.教學重點
利用定時器實現簡單動畫的控制。
3.教學難點
根據不同任務，完成定時器timer事件的程序編寫。
四、教學過程設計
教
學
過
程
設
計
教師活動
學生活動
設計意圖
［引入］
我們知道，一臺電腦如果較長時間不用但又不想關機，可以設置屏幕保護程序來保護顯示器，而且windows操作系統也提供了屏幕保護程序。
在我們學習了程序設計之后，能不能利用vb編寫一個真正屬于自己的屏幕保護程序呢？
下面大家先看一個老師做的屏幕保護程序──一個從右至左移動的文字屏保實例。
［新授課］
任務一：制作一個文字從右至左移動的屏幕保護效果，背景為黑色不顯示標題欄，運行時以最大化顯示。
步驟：
1.設置窗體布局：在窗體上添加一個標簽控件。
2.設置相關屬性
控件
屬性名
設置值
窗體
backcolor
borderstyle
windowstate
黑
0-none
2-maxinized
標簽
caption
backcolor
font
left
“我的電腦你別動！”
黑
定義大小、字體、字形
15000
學生觀看演示，對屏幕保護程序有一個初步的認識。
進入vb編程環境，按要求設置窗體布局。
通過觀察，激發學生的學習興趣，調動學生的動手欲望。
讓學生明確任務，自己動手設置窗體布局。
3.編寫程序，實現文字的從右至左移動，并單擊窗體退出屏保。
（1）退出程序：
private sub form_click()
end
end sub
（2）啟發學生：利用已學知識如何實現文字的移動效果──利用循環語句控制標簽的left屬性值的變化。學生自己編寫并調試程序。
教師展示程序代碼：
for i=1 to 20
label1.left=label1.left-100
next i
提問：
我們怎樣控制循環次數使文字能夠移出屏幕？
答：可以修改循環次數。
教師調整程序并演示，發現單靠試驗是很難得出要循環多少次才能讓文字移出屏幕。
為此，我們今天要學習一個新控件──定時器，用它來控制標簽的移動就簡單多了，并且不用擔心循環次數。
方法：
在窗體上添加一個定時器（timer）控件。
定時器的相關屬性：
enabled──定時器開關
interval──定時器工作頻率，單位為毫秒，必須設置此值，否則定時器不工作。
定時器時間──timer事件，將循環語句的循環體放入timer事件，即可實現文字的移動。
這樣，只要定時器工作，文字就一直向左移動。
學生編寫程序代碼，并進行調試，在調試過程中發現問題，并適當調整程序。
學生思考并回答老師提問。
學生修改程序，利用定時器控制文字的移動。調整interval值，以控制文字移動速度。
利用已學知識完成任務，可以起到復習舊知識的作用。
引導學生發現問題并積極解決問題。
引出新知識。
初步了解定時器的使用。
任務二：修改程序，實現文字移出屏幕后能夠自動回到屏幕右端重復移動。
提示：如何知道文字移出了屏幕？
移出屏幕后如何再讓文字回到原位置？
教師巡視，參與到學生的討論中加以引導。
引導學生注意判斷條件：
label1.left<0 與
label1.left + label1.width<0的區別
任務三：發揮想像，制作一個真正屬于自己的屏幕保護程序。
教師提出幾種方案供參考：
1.利用隨機函數使文字在不同的位置交替出現。