《可移动的风车》参考教案.doc
PAGE2/NUMPAGES4
可移动的风车
【学情分析】
本部分的教学对象是八年级的学生，并且是对smallbasic有了一定的基础。学生对于动态的编程有浓厚的兴趣，这一节课是学生第一次动手编辑动态动画，以前都是静止的。以任务递进的驱动方式来引导学生，降低了程序的难度，也让学生更容易完成任务，轻松理解本课的重、难点。在教学过程中极大的挖掘学生的探究、创新、合作的能力。同时通过展示评比学生作品、提高学生运用信息的能力,自我表现以及赏析作品的能力,提升信息技术有效课堂教学效率。
【\t/Health/cuxx/_blank教学目标】
1.知识与技能
了解Shapes对象；
了解Program对象；
巩固学习While……Endwhile循环语句；
加强GraphicsWindow对象的了解。
2.过程与方法
能用Shapes对象编写简单的动画程序；
能用Program对象优化动画程序的运行效果；
能用GraphicsWindow对象的优化程序的颜色；
继续学习编写事件驱动程序。
3.情感态度与价值观
通过动态程序的学习,培养学生团队协作精神和创新、探究的能力,激发学习程序的热情和兴趣
【教学重难点】
1.了解Shapes对象，并学会简单的运用
2.了解Program对象，学会Program.Delay优化程序
【教学过程】
一、引入主题—可移动的风车
提问：怎么样制作移动风车，要用什么命令？
直接导入本课重点—Shapes对象，使用Shapes.AddRectangle来画风车的叶子
任务一：画一个不断旋转的风车叶
leaf=shapes.AddRectangle(200,10)
Shapes.Move(leaf,200,200)
i=1
Whiletrue
Shapes.Rotate(leaf,i)
i=i+1
EndWhile
这个任务主要是讲解，学生直接输入，leaf=shapes.AddRectangle(200,10)这个参数可以试着更改
二、发现问题
大家已经发现风车叶旋转的速度太快，如何控制风车叶旋转的速度？
引入Program.Delay(milliSeconds)让程序暂停一会儿
任务二：让风车的速度慢下来
在上个程序中加入Program.Delay(5)
三、提出质疑
如何才能有完整的风车呢？分三个片段来解析这个程序
画静止风车
leaf=shapes.AddRectangle(200,10)
GraphicsWindow.BrushColor=green
base=shapes.AddRectangle(20,130)
Shapes.Move(leaf,200,200)
Shapes.Move(base,290,200)
响应鼠标事件命令，让风车叶片旋转
GraphicsWindow.MouseDown=onkd
i=1
Whiletrue
Shapes.Rotate(leaf,i)
Program.Delay(5)
i=i+1
EndWhile
编写子程序
SubonKD
x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY
Shapes.Move(leaf,x-100,y)
Shapes.Move(base,x-10,y)
EndSub
任务三：个性风车(小组合作)
（1）将完整的风车程序输入电脑运行，点击鼠标移动风车
（2）修改程序中Program.Delay的参数，控制风车旋转的速度
（3）修改程序，改变风车和背景的颜色
这个任务，教师帮助学生，学生小组团队合作。尽量挖掘学生的潜质
四、成果展示
向全班展示学生的作品，请学生逐一来解决上述三个问题。通过评价激励手段,在展示中,让学生学会找出他人或自己的错误和不足,学会欣赏他人作品,提高鉴赏能力。
五、提升巩固
任务四：加强篇:画一个下落的方块
DD=Shapes.AddRectangle(100,100)
Shapes.Move(DD,200,10)
i=1
Whiletrue
Shapes.______(DD,200,10+___)
Program.Delay(5)
i=i+1
EndWhile
让学生动手完成这个缺失的程序，加强shapes对象的理解
六、总结
Shapes对象(AddRectangle、move、rotate)
Program对象（program.delay）
回顾While……Endwhile/sub……Endsub/GraphicsWindow
【教学反思】
本节课教学：引导学生通过“探”这个过程，“悟”出Shapes、Program对象的任用。本节课，我采用了“任务驱动、发现学习、探求知识、深入领悟”的教学模式，学生在