第十二课 活动的靶子 教案

文档属性

名称 第十二课 活动的靶子 教案
格式 zip
文件大小 194.6KB
资源类型 教案
版本资源 新世纪版
科目 信息技术(信息科技)
更新时间 2017-12-27 09:43:17

图片预览

文档简介

第十二课 活动的靶子 教案
一、教学目标:
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)-200www.21-cn-jy.com
如果上面的条件成立,则表示靶子出界了,靶子的移动要改变方向,用命令来表示就是: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