快速配对游戏VB课程设计..doc

  1. 1、本文档共17页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
快速配对游戏VB课程设计.

沈 阳 航 空 航 天 大 学 课程设计 学 号 班 级 姓 名 指导教师 年 月 日 沈阳航空航天大学 课程设计任务书 学院: 机电工程 专业: 车辆工程 班级:0406030x 学号:20100406030xx 题目:快速配对游戏 一、课程设计时间 2011~12第2学期 第17周,共计1周,20学时。 二、课程设计内容 用VB语言编写一个快速配对的小游戏,程序界面可参考右图。界面上排列16张图片,两两相同,位置随机。程序运行开始,需要输入用户名字,以便记录游戏信息,进入游戏之后所有图片显示3秒,然后隐藏。用户可用鼠标点选各个图片,当连续点击的两张图片相同时,则这两张图片永久显示,若不相同则重新隐藏。当所有图片均显示出来后系统提示整个过程的全部时间。并与游戏记录中的信息比较,提示名次(只需保存前三名的信息,若未进入前三名,只需显示“继续努力!”)。相关图片信息可由教师提供,界面也可自行设计。 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课设结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 五、成绩 六、教师评语 目 录 一、 需求分析 5 二、设计分析 5 三、关键技术 8 四、总结 11 五、完整的源程序 11 六、参考文献 16 需求分析 快速配对游戏是一款适合大众娱乐的益智小游戏,本游戏对于开发青少年智力,提高快速反应时间有很大的帮助。而且本游戏设置有排行榜,可以记录玩家的成绩,有利于提高玩家的积极性,让玩家在突破自我中寻找快乐! 如今的社会,生活压力与日俱增,大家都迫切需要减压。而这款游戏就能达到减压的效果,且不会让人轻易上瘾,可以说这款游戏具有广阔的市场前景! 二、设计分析 基本原理:设计窗体,通过image2和imageback的互换来实现图片的正反面,通过三个时钟控件来分别计时。 总体设计: 图1 总体设计 详细设计: 1.游戏主界面: (1)窗体的顶部要放置“开始”、“排行榜”和“退出”按钮。在放置一个两个重合的图像控件用来显示游戏中 的“笑脸”和“严肃的脸”。再放置一个标签控件来 显示用户所用的时间。加入三个定时器控“Timer1”、“Timer2”和“Timer3”分别来控制展示图片的时间、点击不同图片后图片的展示时间和记录玩家的所用时间。 (2)窗体的中部放置16个图像框控件数组“”来放置游戏中的图片。和一个放置“背面”图片的图像框控件“Imageback”在案安排游戏使用图片时使用的是随机函数Rnd随机的将“Imagepicture()”的Index值赋给数组,然后将这些选中的图片的“Picture”属性赋给“Imageshow()”图像框达到随机安排图片的目的。 (3)窗体的下部放置8个图像框控件“Imagepicture()”来放置8种不同的候选图片。 2.排行榜窗体: (1)加入7个标签控件用来显示“排行榜”。 (2) 添加“返回”按钮,单击按钮时返回游戏主界面。 游戏加载时将“成绩”文件中的已存入的成绩和玩家姓名加载到“排行榜”窗体的相应位置上。在游戏完成时用消息框提示你的成绩,如果你的成绩进入前三名则可以再“Inputbox”里面输入自己的姓名。在游戏程序结束时将“排行榜”窗体上的内容存入成绩文件中。 全程序中使用控件数组和数组使程序的编写简单、明了。 三、关键技术 (1)建立主窗体和排行榜窗体 图2 窗体 (2)用Randomize函数使选出的八张图片随机的成对安排到游戏使用的图片中。程序段如下: FinishedNum = 0 p1 = -1 p2 = -1 Randomize For i = 0 To 15 Arrange(i) = -1 Next For i = 0 To 7 For j = 0 To 1 Do m = Int(Rnd * 16) If Arrange(m) = -1 Then Arran

文档评论(0)

dbtx + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档