第十四课 抓球游戏 教案

第十四课 抓球游戏 教案 1．进一步熟悉逻辑运算符“and”的使用方法。 2．进一步熟悉事件驱动程序的编写方法。 抓球游戏的算法比较简单，不需要流程图，学生可以直接编写程序代码。 小球跳动的位置坐标由下面的命令随机产生： x=Math.GetRandomNumber(GraphicsWindow.Width)、 y=Math.GetRandomNumber(GraphicsWindow.Height) 在上面的命令中，随机函数的参数是GraphicsWindow.Width和 GraphicsWindow.Height，这样就保证了不管在程序的运行过程中如何改变图形 窗口的大小，小球的位置坐标始终在图形窗口中。21·cn·jy·com 1、抓球游戏： ball=shapes.AddEllipse(20,20) GraphicsWindow.BrushColor="red" GraphicsWindow.MouseDown = OnMD While ("true") x=Math.GetRandomNumber(GraphicsWindow.Width) y=Math.GetRandomNumber(GraphicsWindow.Height) Shapes.Move(ball,x ,y) Program .Delay (1000) EndWhile Sub OnMD xMS = GraphicsWindow.MouseX yMS = GraphicsWindow.MouseY If xMS>=x and xMS<=x+20 and yMS>=y and yMS<=y+20 then 21世纪教育网版权所有 GraphicsWindow.FillEllipse(x, y, 20, 20) GraphicsWindow.ShowMessage ("点中了!","你真棒!") EndIf EndSub 2、编写一个拉幕布的程序。点击鼠标把幕布拉上，再点鼠标把幕布拉开。 GraphicsWindow.MouseDown=onMD i=1 Sub onMD If i=1 Then For x=0 To GraphicsWindow.Width GraphicsWindow.PenColor =GraphicsWindow.GetRandomColor() GraphicsWindow.DrawLine(x,0,x,GraphicsWindow.Height) 21cnjy.com Program.Delay(10) EndFor i=0 Else GraphicsWindow.PenColor ="white" For x=0 To GraphicsWindow.Width GraphicsWindow.DrawLine(x,0,x,GraphicsWindow.Height) 21教育网 Program.Delay(10) EndFor i=1 EndIf EndSub