初中信息技术粤教版 (B版)八年级下册第二章 程序设计入门第五节 移动的坦克游戏集体备课课件ppt

这是一份初中信息技术粤教版 (B版)八年级下册第二章 程序设计入门第五节 移动的坦克游戏集体备课课件ppt，共18页。PPT课件主要包含了问题分析，目标分解，任务1，实践编写程序等内容，欢迎下载使用。
这是一款坦克大战游戏；想一想，VB进行能不能编写一个这样的游戏呢？如何通过编程来控制坦克的方向和移动呢？
设想:通过按键盘的上、下、左、右方向键，使坦克呈现不同的方向（上、下、左、右）的图片，并使坦克向前方移动。
问题：如何通过VB编程控制坦克方向和移动?
任务1：编写程序,并把KeyCde值填写到书本表2-5
任务2：在书本上做好两个控件属性设置的笔记。
任务3：1、朗读多分支语句格式；2、画多分支语句流程图；3、实践编写程序
任务4：思考如何完善程序。
一、KeyDwn事件，识别按键值
1、KeyDwn有两个参数，分别是KeyCde和Shift， KeyCde是用来识别按键；2、键盘左、上、右、下的KeyCde值分别是37、38、39、40
二、使用控件，完成界面设置
1、PictureBx控件（PicGrand）：它是一个容器，可以容纳多个控件，并允许程序对这些控件进行控制。
问题：如何呈现坦克界面?
2、Image控件（ImgTank）①Pictrue属性-----添加图片并设置路径②Stretch属性-----图片缩放
任务2：大家在书本上对这两个控件的属性做好笔记。
三、认识多分支语句及流程图
能否使用上一节课的分支语句?
问题：如何使方向键控制坦克进行移动?
If 条件 T语句组1Else语句组2EndIf
不能简单的重复分支语句，因为坦克有四个方向，意味着按键控制坦克也有四种不同的可能，因此，我们选择另一种更加简单，逻辑更清晰的语句。
任务3：朗读多分支语句格式
Select Case 数值表达式Case 数值1语句组1Case 数值2语句组2Case 数值3语句组3Case 数值4语句组4……End Select
任务4：根据多分支语句流程图，请同学们具体画出移动的坦克游戏多分支语句流程图。
移动的坦克游戏多分支语句流程图。
1、显示向左坦克图片；2、坦克移动，改变坦克坐标位置
1、显示向右坦克图片；2、坦克移动，改变坦克坐标位置
1、显示向上坦克图片；2、坦克移动，改变坦克坐标位置
1、显示向下坦克图片；2、坦克移动，改变坦克坐标位置
Select Case KeyCdeCase 37Imgtank.Picture=LadPicture(App.Path&"\pic\tarukleft.jpg")Imgtank.Left=Imgtand.Left-20Case 39Imgtank.Picture=LadPicture(App.Path&"\pic\tarukright.jpg")Imgtank.Left=Imgtand.Left+20
Case 38Imgtank.Picture=LadPicture(App.Path&"\pic\tarukup.jpg")Imgtank.Tp=Imgtand.Tp-20Case 40Imgtank.Picture=LadPicture(App.Path&"\pic\tarukdwn.jpg")Imgtank.Tp=Imgtand.Tp+20End Select
超出边界Select Case KeyCde Case 37 Imgtank.Picture = LadPicture(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 = LadPicture(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 = LadPicture(App.Path & "\pic\tankup.jpg") If Imgtank.Tp - 20 < 0 Then Imgtank.Tp = 0 Else Imgtank.Tp = Imgtank.Tp - 20 End If Case 40 Imgtank.Picture = LadPicture(App.Path & "\pic\tankdwn.jpg") If (Imgtank.Tp + Imgtank.Height) + 20 > Picgrand.Height Then Imgtank.Tp = Picgrand.Height - Imgtank.Height Else Imgtank.Tp = Imgtank.Tp + 20 End If End Select
Image控件的Left和Tp属性解决实际程序运行时的问题
多分支语句的格式、流程图，并运用多分支语句编写程序
PictureBx控件的使用；
通过KeyDwn事件,识别按键KeyCde值；
1、以下是KeyDwn事件用来识别按键参数的是（ ）A、Alt B、KeyCde C、Shift D、Ctrl2、向上方向键的KeyCde值是（ ）A、37 B、38 C、39 D、403、不属于计算机程序三种基本结构的是（ ）A、顺序结构 B、分支结构 C、循环结构 D、逻辑结构4、计算机根据不同的情况执行不同的任务，需要用到的（ ）语句A、顺序语句 B、分支语句或多分支语句C、循环语句 D、逻辑语句