資源簡介

移動的坦克游戲教學設計
一、課程信息
（一）學科：信息技術
（二）課題：移動的坦克游戲
（三）年級：八年級第二章第五節
二、教學內容與學情分析
本節課學習的內容是初二下冊第二章程序設計入門第五節移動的坦克游戲，主要學習的是多分支語句，屬于分支結構，它是計算三種結構之一，在教材里起到承上啟下，因此，本節課在課程中的作用非常重要。
在此之前，學生已經學了程序的順利結構和分支結構，學生已經基本理解了基本的程序設計概念，以及掌握了簡單的編程方法。但是，由于學生剛剛接觸VB程序設計，加上程序設計本身有一定的難度，因此，為了更好地落實本節課教學目標，除了任務驅動，我還設計了一些環節，如：朗讀和畫圖，讓編程可視化，讓學生更容易理解。
三、教學目標
（一）知識與技能
1、了解KeyDown鍵盤事件；
2、掌握PictureBox控件和Image控件的使用方法；
3、理解多分支結構的概念；
（二）過程與方法
通過編寫坦克游戲程序，讓學生學會程序設計的一般方法；
（三）情感態度與價值觀
通過實踐操作，進一步提高學生的信息素養，培養學生動手能力，
培養學生勇于探究的科學精神。
四、教學重難點
教學重點：掌握PictureBox控件和Image控件的使用方法；
教學難點：理解多分支結構的概念；
五、教學策略
編程可視化，用朗讀和畫圖的方式，讓學生動起來，從而使編程簡單化，避免枯燥。
六、教學過程
環節
教師
學生
設計意圖
創設情境
1、播放老師玩《坦克大戰》游戲視頻；
2、引出本課主題：能否使用VB編程控制坦克方向和移動？
觀看
激趣導入，貼近學生課余生活，拉近師生距離
知識講解
1、設計思路
使用鍵盤的方向鍵代表坦克的上、下、左、右四種狀態；
2、鍵盤事件
KeyDown的屬性：
（1）KeyCode識別按鍵
（2）SHIFT
任務1：編寫程序獲取上、下、左、右四個方向的KeyCode，并完成書本表2-5
3、控件的使用
設問：如何呈現坦克？
（1）PictureBox
PictureBox控件：它是一個容器，可以容納多個控件，并允許程序對這些控件進行控制。
（2）Image控件的使用
①Pictrue屬性
②Stretch屬性
任務2：在書本上對這兩個控件的屬性做好記錄.
4、多分支語句
問題：如何使坦克移動?
（1）格式
Select
Case
數值表達式
Case
數值1
語句組1
Case
數值2
語句組2
Case數值3
語句組3
……
End
Select
（2）流程圖
（3）畫移動的坦克游戲多分支語句流程圖
（4）編寫移動坦克游戲代碼
操作演示，并解釋代碼含義，如：
①顯示向左坦克圖片；
②坦克移動，改變坦克坐標位置；
5、完善坦克游戲程序
方法：增加Image控件的Left和Top屬性判斷坦克是否到達邊界。
認真聽講
思考
完成任務
1、任務驅動突破重難點
2、讓編程可視化
小結
1、通過KeyDown事件識別按鍵KeyCode值；
2、學會PictureBox控件的使用；
3、多分支語句格式、流程圖，并運用多分支語句編寫程序。
4、利用Image控件的Left和Top屬性解決實際程序運行時的問題。
認真聽講
總結歸納
練習
1、以下是KeyDown事件用來識別按鍵參數的是（）
A、Alt
B、KeyCode
C、Shift
D、Ctrl
2、向上方向鍵的KeyCode值是（）
A、37
B、38
C、39
D、40
3、不屬于計算機程序三種基本結構的是（）
A、順序結構
B、分支結構
C、循環結構
D、邏輯結構
4、計算機根據不同的情況執行不同的任務，需要用到的（）語句
A、順序語句
B、分支語句或多分支語句
C、循環語句
D、邏輯語句
5、判斷坦克是否走出了左邊界，使用Image控件的（）屬性進行判斷。
A、Left
B、Right
C、Top
D、Bottor
思考，作答
鞏固知識
拓展
在VB鍵盤事件中,除了KeyDown事件外,還有KeyPress和KeyUp事件,請使用其他的鍵盤事件修改移動的坦克游戲
思考，操作
發散思維(共14張PPT)
移動的坦克游戲
問題分析
設想:
通過按鍵盤的上、下、左、右方向鍵，使坦克呈現不同的方向（上、下、左、右）的圖片，并使坦克向前方移動。
問題：如何通過VB編程控制坦克方向和移動?
KeyDown事件
識別按鍵KeyCode
PictrueBox控件
Image控件
運用多分支語句編寫程序
完善坦克游戲程序
1
2
3
4
任務1：
編寫程序,并把KeyCode值填寫到書本表2-5
任務2：
在書本上做好兩個控件屬性設置的筆記。
任務3：
1、朗讀多分支語句格式；
2、畫多分支語句流程圖；
3、實踐編寫程序
任務4：
思考如何完善程序。
目標分解
四步
一、KeyDown事件，識別按鍵值
1、KeyDown有兩個參數，分別是KeyCode和Shift，
KeyCode是用來識別按鍵；
2、鍵盤左、上、右、下的KeyCode值分別是37、38、39、40
任務1
二、使用控件，完成界面設置
1、PictureBox控件（PicGrand）：它是一個容器，可以容納多個控件，并允許程序對這些控件進行控制。
問題：如何呈現坦克界面?
2、Image控件（ImgTank）
①Pictrue屬性-----添加圖片并設置路徑
②Stretch屬性-----圖片縮放
任務2：大家在書本上對這兩個控件的屬性做好筆記。
三、認識多分支語句及流程圖
能否使用上一節課的分支語句?
問題：如何使方向鍵控制坦克進行移動?
If
條件
T
語句組1
Else
語句組2
EndIf
分支結構格式
三、認識多分支語句及流程圖
不能簡單的重復分支語句，因為坦克有四個方向，意味著按鍵控制坦克也有四種不同的可能，因此，我們選擇另一種更加簡單，邏輯更清晰的語句。
任務3：朗讀多分支語句格式
Select
Case
數值表達式
Case
數值1
語句組1
Case
數值2
語句組2
Case
數值3
語句組3
Case
數值4
語句組4
……
End
Select
多分支結構格式
三、認識多分支語句及流程圖
流程圖對比
三、認識多分支語句及流程圖
任務4：根據多分支語句流程圖，請同學們具體畫出移動的坦克游戲多分支語句流程圖。
三、認識多分支語句及流程圖
移動的坦克游戲多分支語句流程圖。
KeyCode值?
1、顯示向左坦克圖片；
2、坦克移動，改變坦克坐標位置
37
1、顯示向右坦克圖片；
2、坦克移動，改變坦克坐標位置
39
38
40
1、顯示向上坦克圖片；
2、坦克移動，改變坦克坐標位置
1、顯示向下坦克圖片；
2、坦克移動，改變坦克坐標位置
37
38
39
40
39
三、認識多分支語句及流程圖
實踐:編寫程序
移動的坦克游戲
Image控件的Left和Top屬性解決實際程序運行時的問題
多分支語句的格式、流程圖，并運用多分支語句編寫程序
PictureBox控件的使用；
通過KeyDown事件,識別按鍵KeyCode值；
總結
練習
1、以下是KeyDown事件用來識別按鍵參數的是（
）
A、Alt
B、KeyCode
C、Shift
D、Ctrl
2、向上方向鍵的KeyCode值是（
）
A、37
B、38
C、39
D、40
3、不屬于計算機程序三種基本結構的是（
）
A、順序結構
B、分支結構
C、循環結構
D、邏輯結構
4、計算機根據不同的情況執行不同的任務，需要用到的（
）語句
A、順序語句
B、分支語句或多分支語句
C、循環語句
D、邏輯語句
B
B
D
B
在VB鍵盤事件中,除了KeyDown事件外,還有KeyPress和KeyUp事件,請使用其他的鍵盤事件修改移動的坦克游戲.
提示:
拓展Select
Case
KeyCode
Case
37
Imgtank.Picture
=
LoadPicture(App.Path
&
"\pic\tankleft.jpg")
If
Imgtank.Left
-
20
<
0
Then
Imgtank.Left
=
0
Else
Imgtank.Left
=
Imgtank.Left
-
20
End
If
Case
39
Imgtank.Picture
=
LoadPicture(App.Path
&
"\pic\tankright.jpg")
If
(Imgtank.Left
+
Imgtank.Width)
+
20
>
Picgrand.Width
Then
Imgtank.Left
=
Picgrand.Width
-
Imgtank.Width
Else
Imgtank.Left
=
Imgtank.Left
+
20
End
If
Case
38
Imgtank.Picture
=
LoadPicture(App.Path
&
"\pic\tankup.jpg")
If
Imgtank.Top
-
20
<
0
Then
Imgtank.Top
=
0
Else
Imgtank.Top
=
Imgtank.Top
-
20
End
If
Case
40
Imgtank.Picture
=
LoadPicture(App.Path
&
"\pic\tankdown.jpg")
If
(Imgtank.Top
+
Imgtank.Height)
+
20
>
Picgrand.Height
Then
Imgtank.Top
=
Picgrand.Height
-
Imgtank.Height
Else
Imgtank.Top
=
Imgtank.Top
+
20
End
If
End
SelectSelect
Case
KeyCode
Case
37
Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukleft.jpg")
Imgtank.Left=Imgtand.Left-20
Case
39
Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukright.jpg")
Imgtank.Left=Imgtand.Left+20
Case
38
Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukup.jpg")
Imgtank.Top=Imgtand.Top-20
Case
40
Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukdown.jpg")
Imgtank.Top=Imgtand.Top+20
End
Select

展開更多......

收起↑