第十一课 可移动的风车 课件
文档属性
| 名称 | 第十一课 可移动的风车 课件 |  | |
| 格式 | zip | ||
| 文件大小 | 601.3KB | ||
| 资源类型 | 教案 | ||
| 版本资源 | 新世纪版 | ||
| 科目 | 信息技术（信息科技） | ||
| 更新时间 | 2017-12-26 11:14:25 | ||
图片预览
文档简介
课件6张PPT。信息技术 八年级 下册第十一课 可移动的风车风车的效果图可移动的风车第一步 画静止的风车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旋转i度延时5毫秒可移动的风车第四步 编写子程序onKDGraphicsWindow.MouseDown=onKDSub onKD
x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY
Shapes.Move(leaf,x-100,y)
Shapes.Move(base,x-10,y)
EndSub获取鼠标的坐标将风车的叶子和基座移动到点击鼠标的地方
While "true"
Shapes.Rotate(leaf,i)
Program.Delay(5)
i=i+1
EndWhile旋转i度延时5毫秒可移动的风车第四步 编写子程序onKDGraphicsWindow.MouseDown=onKDSub onKD
x=GraphicsWindow.MouseX
y=GraphicsWindow.MouseY
Shapes.Move(leaf,x-100,y)
Shapes.Move(base,x-10,y)
EndSub获取鼠标的坐标将风车的叶子和基座移动到点击鼠标的地方