- 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
您可能关注的文档
最近下载
- 第一章 2.2 水量平衡.ppt
- 《GB/T 19326-2022锻制支管座》.pdf
- 2022年11月陕西省从优秀村社区干部中考试录用200名乡镇街道机关公务员上岸冲刺卷I含答案详解版(3套).docx VIP
- 2020年银行业从业人员职业操守和行为准则.pdf VIP
- 转预备党员思想汇报【银行】.pdf VIP
- 【新教材】人教版(2024)七年级上册英语Unit 4 My Favourite Subject教案.docx
- 米厂恒温仓库工程设计方案.docx
- 2024年党校入党积极分子培训考试必考重点知识汇编(共160题).doc VIP
- 《世界经典神话与传说故事》 测试题及答案.pdf
- 智能制造设备安装与调试职业技能等级标准(2021年).pdf
文档评论(0)