第十一课 可移动的风车 课件

课件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获取鼠标的坐标将风车的叶子和基座移动到点击鼠标的地方