- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
- 快速成型总结报告..doc
- 快速成型技术和并联机床的功用比较..doc
- 快速成型技术综述..doc
- 快速成型综述..doc
- 快速成形工艺的合理选择..doc
- 快速把office2007运用到2003同样的熟练程度..doc
- 快速掌握VMwareWorkstation(虚拟机)的使用方法..docx
- 快速发展的中国磷肥工业面临的问题和发展建议..doc
- 快速排序算法的两种实现思路(附源代码)..docx
- 快速提升你的工作效率PS中的文档管理(下)..doc
- 七章货物的保险.pptx
- 三章国际间接投资.pptx
- 人性假设理论.pptx
- 外研高一英语必修三ModuleIntroduction汇总市公开课获奖课件省名师示范课获奖课件.pptx
- 月相成因优质获奖课件.pptx
- 小学二年级语文课件《狐假虎威》省名师优质课赛课获奖课件市赛课一等奖课件.pptx
- 养羊业概况专题知识讲座.pptx
- 微生物的实验室培养市公开课获奖课件省名师示范课获奖课件.pptx
- 人教版六年级下册式与方程整理与复习市公开课获奖课件省名师示范课获奖课件.pptx
- 必威体育精装版高中精品语文教学:第二单元-第7课-诗三首:涉江采芙蓉、-短歌行、归园田居市公开课获奖课件省名师.pptx
文档评论(0)