《第五節(jié) 移動(dòng)的坦克游戲》參考課件

第五節(jié)移動(dòng)的坦克游戲問(wèn)題分析

這是一款坦克大戰(zhàn)游戲；想一想，VB進(jìn)行能不能編寫(xiě)一個(gè)這樣的游戲呢？如何通過(guò)編程來(lái)控制坦克的方向和移動(dòng)呢？問(wèn)題分析設(shè)想:通過(guò)按鍵盤的上、下、左、右方向鍵，使坦克呈現(xiàn)不同的方向（上、下、左、右）的圖片，并使坦克向前方移動(dòng)。問(wèn)題：如何通過(guò)VB編程控制坦克方向和移動(dòng)?目標(biāo)分解KeyDown事件識(shí)別按鍵KeyCodePictrueBox控件Image控件運(yùn)用多分支語(yǔ)句編寫(xiě)程序完善坦克游戲程序1234任務(wù)1：編寫(xiě)程序,并把KeyCode值填寫(xiě)到書(shū)本表2-5任務(wù)2：在書(shū)本上做好兩個(gè)控件屬性設(shè)置的筆記。任務(wù)3：1、朗讀多分支語(yǔ)句格式；2、畫(huà)多分支語(yǔ)句流程圖；3、實(shí)踐編寫(xiě)程序

任務(wù)4：思考如何完善程序。一、KeyDown事件，識(shí)別按鍵值1、KeyDown有兩個(gè)參數(shù)，分別是KeyCode和Shift，KeyCode是用來(lái)識(shí)別按鍵；2、鍵盤左、上、右、下的KeyCode值分別是37、38、39、404個(gè)方向鍵的鍵盤代碼方向鍵KeyCode值←鍵↑鍵→鍵↓鍵任務(wù)1：完善表格內(nèi)容二、使用控件，完成界面設(shè)置1、PictureBox控件（PicGrand）：它是一個(gè)容器，可以容納多個(gè)控件，并允許程序?qū)@些控件進(jìn)行控制。問(wèn)題：如何呈現(xiàn)坦克界面?2、Image控件（ImgTank）①Pictrue屬性-----添加圖片并設(shè)置路徑②Stretch屬性-----圖片縮放任務(wù)2：大家在書(shū)本上對(duì)這兩個(gè)控件的屬性做好筆記。三、認(rèn)識(shí)多分支語(yǔ)句及流程圖能否使用上一節(jié)課的分支語(yǔ)句?問(wèn)題：如何使方向鍵控制坦克進(jìn)行移動(dòng)?If條件T語(yǔ)句組1Else語(yǔ)句組2EndIf分支結(jié)構(gòu)格式三、認(rèn)識(shí)多分支語(yǔ)句及流程圖不能簡(jiǎn)單的重復(fù)分支語(yǔ)句，因?yàn)樘箍擞兴膫€(gè)方向，意味著按鍵控制坦克也有四種不同的可能，因此，我們選擇另一種更加簡(jiǎn)單，邏輯更清晰的語(yǔ)句。任務(wù)3：朗讀多分支語(yǔ)句格式SelectCase數(shù)值表達(dá)式Case

數(shù)值1語(yǔ)句組1Case

數(shù)值2語(yǔ)句組2Case

數(shù)值3語(yǔ)句組3Case

數(shù)值4語(yǔ)句組4……EndSelect多分支結(jié)構(gòu)格式三、認(rèn)識(shí)多分支語(yǔ)句及流程圖流程圖對(duì)比三、認(rèn)識(shí)多分支語(yǔ)句及流程圖任務(wù)4：根據(jù)多分支語(yǔ)句流程圖，請(qǐng)同學(xué)們具體畫(huà)出移動(dòng)的坦克游戲多分支語(yǔ)句流程圖。三、認(rèn)識(shí)多分支語(yǔ)句及流程圖移動(dòng)的坦克游戲多分支語(yǔ)句流程圖KeyCode值?1、顯示向左坦克圖片；2、坦克移動(dòng)，改變坦克坐標(biāo)位置371、顯示向右坦克圖片；2、坦克移動(dòng)，改變坦克坐標(biāo)位置3938401、顯示向上坦克圖片；2、坦克移動(dòng)，改變坦克坐標(biāo)位置1、顯示向下坦克圖片；2、坦克移動(dòng)，改變坦克坐標(biāo)位置3738394039三、認(rèn)識(shí)多分支語(yǔ)句及流程圖實(shí)踐:編寫(xiě)程序SelectCaseKeyCodeCase37Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukleft.jpg")Imgtank.Left=Imgtand.Left-20Case39Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukright.jpg")Imgtank.Left=Imgtand.Left+20三、認(rèn)識(shí)多分支語(yǔ)句及流程圖實(shí)踐:編寫(xiě)程序Case38Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukup.jpg")Imgtank.Top=Imgtand.Top-20Case40Imgtank.Picture=LoadPicture(App.Path&"\pic\tarukdown.jpg")Imgtank.Top=Imgtand.Top+20EndSelect三、認(rèn)識(shí)多分支語(yǔ)句及流程圖實(shí)踐:編寫(xiě)程序超出邊界SelectCaseKeyCodeCase37Imgtank.Picture=LoadPicture(App.Path&"\pic\tankleft.jpg")IfImgtank.Left-20<0ThenImgtank.Left=0ElseImgtank.Left=Imgtank.Left-20EndIfCase39Imgtank.Picture=LoadPicture(App.Path&"\pic\tankright.jpg")If(Imgtank.Left+Imgtank.Width)+20>Picgrand.WidthThenImgtank.Left=Picgrand.Width-Imgtank.WidthElseImgtank.Left=Imgtank.Left+20EndIf三、認(rèn)識(shí)多分支語(yǔ)句及流程圖超出邊界Case38Imgtank.Picture=LoadPicture(App.Path&"\pic\tankup.jpg")IfImgtank.Top-20<0ThenImgtank.Top=0ElseImgtank.Top=Imgtank.Top-20EndIfCase40Imgtank.Picture=LoadPicture(App.Path&"\pic\tankdown.jpg")If(Imgtank.Top+Imgtank.Height)+20>Picgrand.HeightThenImgtank.Top=Picgrand.Height-Imgtank.HeightElseImgtank.Top=Imgtank.Top+20EndIfEndSelect移動(dòng)的坦克游戲Image控件的Left和Top屬性解決實(shí)際程序運(yùn)行時(shí)的問(wèn)題多分支語(yǔ)句的格式、流程圖，并運(yùn)用多分支語(yǔ)句編寫(xiě)程序PictureBox控件的使用；通過(guò)KeyDown事件,識(shí)別按鍵KeyCode值；總結(jié)練習(xí)1、以下是KeyDown事件用來(lái)識(shí)別按鍵參數(shù)的是（

）A、AltB、KeyCodeC、ShiftD、Ctrl2、向上方向鍵的KeyCode值是（

）A、37B、38C、39D、40BB3、不屬于計(jì)算機(jī)程序三種基本結(jié)構(gòu)的是（

）A、順序結(jié)構(gòu)B、分支結(jié)構(gòu)C、循環(huán)結(jié)構(gòu)D、邏輯結(jié)構(gòu)4、計(jì)算機(jī)根據(jù)不同的情況執(zhí)行不