《可移动的风车》教学设计
【学情分析】?
??本部分的教学对象是八年级的学生，并且是对small?basic有了一定的基础。学生对于动态的编程有浓厚的兴趣，这一节课是学生第一次动手编辑动态动画，以前都是静止的。以任务递进的驱动方式来引导学生，降低了程序的难度，也让学生更容易完成任务，轻松理解本课的重、难点。在教学过程中极大的挖掘学生的探究、创新、合作的能力。同时通过展示评比学生作品、提高学生运用信息的能力,自我表现以及赏析作品的能力,提升信息技术有效课堂教学效率。?
【教学目标】?
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?
While?"true"
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?
While?"true"?
???Shapes.Rotate(leaf,i)????
Program.Delay(5)?????
i=i+1??
EndWhile?
编写子程序
?Sub? onKD?
?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?
While?"true"?
???????Shapes.______?(DD,200,10+___??)??????
Program.Delay(5)??????
i=i+1??
EndWhile?
??让学生动手完成这个缺失的程序，加强shapes对象的理解?
六、总结?
?Shapes对象(AddRectangle、move、rotate)?
Program对象??（program.delay）?
回顾While???End?while/?sub??End?sub/?GraphicsWindow?
【教学反思】?
本节课教学：引导学生通过“探”这个过程，“悟”出Shapes、?Program对象的任用。本节课，我采用了“任务驱动、发现学习、探求知识、深入领悟”的教学模式，学生在“探”中“悟”，“悟”中探，积极主动地获取知识，体现了学生的主体性。
课件12张PPT。可移动的风车一、Shapes对象使用Shapes.AddRectangle来画风车的叶子和基座
试一试 ：画一个不断旋转的风车叶试一试1 ：画一个不断旋转的风车叶leaf=shapes.AddRectangle(200,10)
Shapes.Move(leaf,200,200)
i=1
While "true"
Shapes.Rotate(leaf,i)
i=i+1
EndWhile二、Program 对象大家已经发现风车叶旋转的速度太快，如何控制风车叶旋转的速度？
Program.Delay(milliSeconds) 让程序暂停一会儿
试一试2：让风车的速度慢下来leaf=shapes.AddRectangle(200,10)
Shapes.Move(leaf,200,200)
i=1
While "true"
Shapes.Rotate(leaf,i)
Program.Delay(5)
i=i+1
EndWhile
三、画风车画静止风车
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
While "true"
Shapes.Rotate(leaf,i)
Program.Delay(5)
i=i+1
EndWhile
三、画风车编写子程序
Sub onKD
x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY
Shapes.Move(leaf,x-100,y)
Shapes.Move(base,x-10,y)
EndSub
(小组合作)试一试3：个性风车1.将完整的风车程序输入电脑运行，点击鼠标移动风车
2.修改程序中Program.Delay的参数，控制风车旋转的速度
3.修改程序，改变风车和背景的颜色 加强篇:画一个下落的方块 DD=Shapes.AddRectangle(100,100)
Shapes.Move(DD,200,10)
i=1
While "true"
Shapes. ____ (DD,200,10+__ )
Program.Delay(5)
i=i+1
EndWhile
movei 总结Shapes对象(AddRectangle、move、rotate)
Program对象 （program.delay）
回顾While ……End while/ sub……End sub
GraphicsWindow谢谢
