可视化编程应用——Visual Basic 6.0 第二版 教学课件 作者 杜秋华 康慧芳 第9章 综 合 案 例.ppt

《可视化编程应用——Visual Basic 6.0 第二版 教学课件 作者 杜秋华 康慧芳 第9章 综 合 案 例.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第9章综合案例制作摘红苹果游戏9.1VisualBasic6.0数据库编程9.29.1制作摘红苹果游戏设计一个图9-1所示的摘红苹果游戏，游戏玩法如下：游戏开始后，红苹果便会在窗体上闪现一段时间，在这段时间内，如果单击鼠标的位置刚好在红苹果出现的位置，则该红苹果就被摘了；如果单击鼠标的位置不在红苹果出现的位置，则该苹果没被摘，并且红苹果出现的位置是不定的，另外红苹果总共只有15个，随着时间的推移，红苹果的个数不断减少，直到为零，游戏也便结束。在整个过程，单击鼠标正确的次数便是摘的红苹果个数。游戏所要实现的功能如下，具体设计过程

2、见教材。图9-1游戏界面选择【游戏】/【开始游戏】命令或直接按F2键，便可开始游戏。选择【游戏】/【暂停】命令或直接按F3键，暂停游戏，选择【游戏】/【开始游戏】命令继续游戏。选择【游戏】/【重新开始】命令或直接按F4键，重新开始游戏。选择【游戏】/【英雄榜】命令，察看以前别人留下的记录，如图9-2所示，单击“确定”按钮，返回游戏界面；单击“重新计分”按钮，清除记录。图9-2英雄榜选择【游戏】/【退出】命令，退出游戏。选择【设置】/【难度】命令，设置游戏的难度。如果破记录了，在游戏结束时，弹出图9-3所示的提示框，

3、单击“确定”按钮，弹出图9-4所示的对话框，在文本框中输入名字，然后选择性别，单击“确定”按钮，返回游戏。图9-3破纪录提示框图9-4【输入你的大名】对话框【案例小结】在本案例中，使用VisualBasic6.0设计了一个简单游戏，进一步熟悉了控件使用、图象处理，菜单栏设计、文件操作以及错误处理等知识，基本上综合了以前所学的大部分基础知识，主要用到以下知识：控件的使用，包括常用基本控件属性（命令按钮、单选按钮、图像框、列表框、文本框、定时器等）的设置以及常用事件的添加；列表框列表项添加的方法；对话框的使用，主要是消息对话

4、框的使用；菜单栏设计以及菜单事件的使用；文件的打开、关闭以及随机文件的读写操作；实时错误的预防。9.2VisualBasic6.0数据库编程利用数据库编程建立一个用来浏览、查询的数据库系统，其浏览编辑窗口如图9-7所示，查询窗口如图9-8所示。图9-7浏览编辑窗口图9-8查询窗口其代码如下所示：PrivateSubcmdAdd_Click()Data1.Recordset.AddNewEndSubPrivateSubcmdDelete_Click()'如果删除记录集的最后一条记录'记录或记录集中唯一的记录Data1.Re

5、cordset.DeleteData1.Recordset.MoveNextEndSubPrivateSubcmdRefresh_Click()'这仅对多用户应用程序才是需要的Data1.RefreshEndSubPrivateSubcmdUpdate_Click()Data1.UpdateRecordData1.Recordset.Bookmark=Data1.Recordset.LastModifiedEndSubPrivateSubcmdClose_Click()EndEndSubPrivateSubComsel_Cli

6、ck()FrmSel.ShowFrmEide.HideEndSubPrivateSubData1_Error(DataErrAsInteger,_ResponseAsInteger)'这就是放置错误处理代码的地方'如果想忽略错误，注释掉下一行代码'如果想捕捉错误，在这里添加错误处理代码MsgBox"数据错误事件命中错误："_&Error$(DataErr)Response=0'忽略错误EndSubPrivateSubData1_Reposition()Screen.MousePointer=vbDefaultOnErrorRe

7、sumeNext'这将显示当前记录位置'为动态集和快照Data1.Caption="记录："&_(Data1.Recordset.AbsolutePosition+1)'对于Table对象，当记录集创建后并使用下面的行时，'必须设置Index属性Data1.Caption="记录："&(Data1.Recordset.RecordCount_*(Data1.Recordset.PercentPosition*0.01))+1EndSubPrivateSubData1_Validate(ActionAsInteger,SaveA

8、sInteger)'这是放置验证代码的地方'当下面的动作发生时，调用这个事件SelectCaseActionCasevbDataActionMoveFirstCasevbDataActionMovePreviousCasevbDataActionMoveNextCasevbD