第二节 设计打地鼠游戏,粤教版 八年级下,粤教版初中信息技术,课件,新知导入,打地鼠，商场里经常看到。游戏规则比较简单，打中随机出现的地鼠就能得分，那么，VB能否设计一个打地鼠游戏呢？,新知导入,若想用VB设计打地鼠游戏，需思考以下3个问题： 1、打地鼠的核心功能是什么？ 2、如何从核心的功能开始增加游戏的复杂度和可玩性？ 3、做的打地鼠游戏能吸引其他同学来玩吗？,新知讲解,1、功能分析,一、打地鼠游戏初级版,你认为打地鼠游戏程序应该包含哪些基本功能？,打地鼠程序最核心的角色是：地鼠和锤子 地鼠：动作交替出现或隐藏。 锤子：动作就是移动和击打地鼠，击打就是单击鼠标。,新知讲解,2、界面分析,初级版打地鼠界面中，涉及控件对象：Image、Timer和Form。,新知讲解,3、代码分析,地鼠的出现与隐藏，由Timer事件控制，地鼠出现与隐藏交替变换代码： ds.Visible=False,4、调试程序,新知导入,关于软件的版本号,主版本号：功能模块有大变动。 次版本号：次版对应的只是局部变动。局部变动造成和以前版本不能兼容。 修订版本号：局部变动，主要是局部函数的功能改进，或者bug的修正，或者功能的扩充。,新知讲解,二、打地鼠游戏升级版,1、1.1.0版本打地鼠游戏,1.1.0版本：打中地鼠可以得到1分。 计分变量Sum。当击中地鼠中，加一个计数器语句: Sum=Sum+1 并在Label控件将分数显示出来。,新知讲解,（1）根据李鸣的想法，完成1.1.0版本的打地鼠游戏。,新知讲解,（2）根据自己的想法，增加一些控件游戏的控件，使游戏功能更加多一些。完成1.x.x版本的打地鼠游戏。,新知讲解,方法一： 通过ds控件的Left和Top属性值的修改，使地鼠能在不同的地方出现。,2、2.0.0版本打地鼠游戏,新知讲解,方法二： 在12个地洞上分别建立12个image控件，命名为dd(0)dd(11)，然后，地鼠出现的代码也从原来的ds.Visible=True变成 dd(x).picture=ds.Picture 而隐藏则变成了dd(x).Picture=em.Picture。增加了一个em控件，Picture属性为空白。,新知讲解,同时出现多只地鼠，方法就是在出现打地鼠的代码中增加一个记次循环，通过循环执行随机地鼠出现的语句。以达到出现多只地鼠的效果。,3、2.1.0版本打地鼠游戏,新知讲解,（1）在连续击中地鼠时，如何实现奖励分数翻倍？,将a=a+1改为a=a*a,新知讲解,（2）你还能想到一些什么新的功能来增加游戏的趣味性？,添加询问语句，如：,课后习题,（1）以下叙述中错误的是 (C) A）Visual Basic 是事件驱动型可视化编程工具 B）Visual Basic应用程序不具有明显的开始和结束语句 C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性 D）Visual Basic中控件的某些属性只能在运行时设置,课后习题,2、将定时器的时间间隔设置为1秒，那定时器的Interval属性值应为(A)。 A1000B1C100D10 3、当设置了定时器的有关属性后，使窗体自动向下移动的语句是Move（C）。 ALeft，Top+100BTop+100 CTop-100 DTop=Top+100,课堂总结,1、打地鼠程序最核心的角色是：地鼠和锤子。,2、地鼠出现与隐藏交替变换代码:ds.Visible=False,板书设计,一、打地鼠游戏初级版。 二、打地鼠游戏升级版。 1、1.1.0版本打地鼠游戏 2、2.0.0版本打地鼠游戏 3、2.1.0版本打地鼠游戏