第十二课 活动的靶子 教案

第十二课 活动的靶子 教案 一、教学目标： 1．继续熟悉Shapes对象的几个常用操作的使用方法。 2．继续熟悉流程图的画法，根据流程图编写程序。 3．掌握逻辑运算符“or”的使用方法。 二、重点难点 在编写较复杂的程序时，最好是先画一个流程图，然后根据流程图编写程序代码，这样编写程序就不容易出错，因此画流程图是本课的重点。编写判断靶子有没有出界的程序代码是本课的难点。21教育网 很多同学喜欢玩游戏，但都是玩别人设计的游戏，这两节课我们设计游戏，设计用鼠标发射炮弹打活动靶子的游戏。这一节课先设计移动的靶子。21cnjy.com 一、画流程图 目的：在编写复杂的程序时，先设计好算法，画一个流程图，编写程序代码的时候就不容易出错。 靶子左右移动的流程图 靶子的移动用命令x=x+x1表示，其中x1表示移动的速度，x1的值越大，表示移动越快。如果x1为负数，表示向左移动，x1为正数，表示向右移动。21·cn·jy·com 如果靶子的宽度是200，那么靶子出界的判断是用下面的条件来表示的：x<0 Or x>(GraphicsWindow.Width)-200 如果上面的条件成立，则表示靶子出界了，靶子的移动要改变方向，用命令来表示就是：x1=-x1 如果上面的条件不成立，则表示靶子没有出界，靶子继续移动到新的位置，用命令来表示就是：hapes.Move(target,x,y)21世纪教育网版权所有 程序如下： target=Shapes.AddRectangle(200,10) x=0 y=200 x1=1 While "true" x=x+x1 If x<0 Or x>(GraphicsWindow.Width)-200 Then x1=-x1 Else Shapes.Move(target,x,y) EndIf Program.Delay(3) EndWhile 二、边界的判断 如何判断靶子有没有出界？ 根据靶子的横坐标的大小就可以判断靶子有没有出界。 “x<0”或者“x>(GraphicsWindow.Width)-200”是不是“成立”。 如果出界，靶子就改变移动方向：X1=－X1 如果没出界，靶子就移到坐标（x,y）处：Shapes.Move(target,x,y) 用条件语句表示就是： If x<0 Or x>(GraphicsWindow.Width)-200 Then x1=-x1 Else Shapes.Move(target,x,y) EndIf 三、条件“或”关系表达式 四、课外学习 1．小球在地面弹跳的程序（小球每次弹跳一样高） ball=Shapes.AddEllipse(20,20) x=200 y=100 s=0 While "true" s=s+1 y=y+s If y>=(GraphicsWindow.Height-20) Then s=-s y=y+s Else Shapes.Move(ball,x,y) Program.Delay(50) EndIf EndWhile 2．小球在地面弹跳的程序（由于空气阻力等原因，反弹的高度越来越低）。 程序如下： ball=Shapes.AddEllipse(20,20) x=200 y=100 s=0 While "true" s=s+1 y=y+s If y>=(GraphicsWindow.Height-20) Then s=-s EndIf Shapes.Move(ball,x,y) Program.Delay(50) EndWhile