《第五节 移动的坦克游戏》参考课件

第五节移动的坦克游戏问题分析

这是一款坦克大战游戏；想一想，VB进行能不能编写一个这样的游戏呢？如何通过编程来控制坦克的方向和移动呢？问题分析设想:通过按键盘的上、下、左、右方向键，使坦克呈现不同的方向（上、下、左、右）的图片，并使坦克向前方移动。问题：如何通过VB编程控制坦克方向和移动?目标分解KeyDown事件识别按键KeyCodePictrueBox控件Image控件运用多分支语句编写程序完善坦克游戏程序1234任务1：编写程序,并把KeyCode值填写到书本表2-5任务2：在书本上做好两个控件属性设置的笔记。任务3：1、朗读多分支语句格式；2、画多分支语句流程图；3、实践编写程序

任务4：思考如何完善程序。一、KeyDown事件，识别按键值1、KeyDown有两个参数，分别是KeyCode和Shift，KeyCode是用来识别按键；2、键盘左、上、右、下的KeyCode值分别是37、38、39、404个方向键的键盘代码方向键KeyCode值←键↑键→键↓键任务1：完善表格内容二、使用控件，完成界面设置1、PictureBox控件（PicGrand）：它是一个容器，可以容纳多个控件，并允许程序对这些控件进行控制。问题：如何呈现坦克界面?2、Image控件（ImgTank）①Pictrue属性-----添加图片并设置路径②Stretch属性-----图片缩放任务2：大家在书本上对这两个控件的属性做好笔记。三、认识多分支语句及流程图能否使用上一节课的分支语句?问题：如何使方向键控制坦克进行移动?If条件T语句组1Else语句组2EndIf分支结构格式三、认识多分支语句及流程图不能简单的重复分支语句，因为坦克有四个方向，意味着按键控制坦克也有四种不同的可能，因此，我们选择另一种更加简单，逻辑更清晰的语句。任务3：朗读多分支语句格式SelectCase数值表达式Case

数值1语句组1Case

数值2语句组2Case

数值3语句组3Case

数值4语句组4……EndSelect多分支结构格式三、认识多分支语句及流程图流程图对比三、认识多分支语句及流程图任务4：根据多分支语句流程图，请同学们具体画出移动的坦克游戏多分支语句流程图。三、认识多分支语句及流程图移动的坦克游戏多分支语句流程图KeyCode值?1、显示向左坦克图片；2、坦克移动，改变坦克坐标位置371、显示向右坦克图片；2、坦克移动，改变坦克坐标位置3938401、显示向上坦克图片；2、坦克移动，改变坦克坐标位置1、显示向下坦克图片；2、坦克移动，改变坦克坐标位置3738394039三、认识多分支语句及流程图实践:编写程序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三、认识多分支语句及流程图实践:编写程序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三、认识多分支语句及流程图实践:编写程序超出边界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三、认识多分支语句及流程图超出边界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移动的坦克游戏Image控件的Left和Top属性解决实际程序运行时的问题多分支语句的格式、流程图，并运用多分支语句编写程序PictureBox控件的使用；通过KeyDown事件,识别按键KeyCode值；总结练习1、以下是KeyDown事件用来识别按键参数的是（

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

）A、37B、38C、39D、40BB3、不属于计算机程序三种基本结构的是（

）A、顺序结构B、分支结构C、循环结构D、逻辑结构4、计算机根据不同的情况执行不