VB打字游戏课程设计报告.doc

《VB打字游戏课程设计报告.doc》由会员分享，可在线阅读，更多相关《VB打字游戏课程设计报告.doc（15页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB程序设计课程设计报告课程设计题目：打字游戏姓 名 ： 肖婷专 业 ： 统计班 级 ： 093242学 号 ：09324221指导老师 ： 王敏2011年1月4号内容摘要：本程序是利用vb编写的一个打字游戏，游戏具有功能：上方有文字掉下，按键可将其击掉，有速度选择，难度选择，难度低时为单个字符，难度高时为单词。本游戏，让人在体验趣味的同时也提高了自己的打字速度，尤其使用于初学打字的朋友们！可以让用户从零开始逐步变为打字高手，短时间内运指如飞！48小时成为打字高手，寓教于乐。本设计报告包括初始的设计想法，概要设计和详细设计。详细设计包括界面设计和所需代码，及其运行后的结果图，以便具体使用。目

2、录1. 功能描述32. 概要设计33. 详细设计44. 效果及存在问题95. 心得体会12小组成员12参考文献121功能描述本程序是利用vb编写的一个打字游戏，游戏可以选择难易程度，选择简单时上方掉落的是单个字符，选择困难时上方掉落的是单词，当正确按键时可以将其击掉，成绩相应增加一分，开始前可以选择游戏速度，点击加减按钮可以调节游戏速度。本程序还有许多实用功能，可以将游戏暂停、继续、从来、结束等。2概要设计打字游戏简单方框图：屏幕上方掉落单个字符时键盘输入对应的单个字符屏幕上的单个字符消失与单词最比较相同时单词消失屏幕上方掉落为单词时键盘输入对应的单词单词存在在标签label8的caption

3、上3详细设计(1)界面设计在窗体上添加6个命令按钮command1、command2、 command3 、command4、Command5 command6、8个标签Label1、Label2、Label3、Label4、Label5、Label6、Label7、Label8、2个定时器time1、time2、1个文本框text1和2个单选按钮option1、option2按表修改它们的属性，如图所示。对象属性值Command1Caption加Command2Caption减Command3Caption开始Command4Caption结束Command5Caption暂停/继续Comm

4、and6Caption重来Label1CaptionLabel2CaptionLabel3Caption成绩Label4Caption速度Label5Caption18Label6CaptionLabel7CaptionLabel8Captiontime1Interval0Time2Interval0Option1Caption简单Option2Caption困难Text1text(2)编写程序代码如下：Private Sub Command1_Click()曾加速度Label5.Caption = Label5.Caption + 1End Sub减小速度Private Sub Comman

5、d2_Click()Label5.Caption = Label5.Caption - 1End Sub开始游戏Private Sub Command3_Click()If Option1.Value ThenTimer1.Interval = 1Timer2.Interval = 0Label7.Caption = Label1.Top = 8760Label6.Top = 8760Label1.Visible = TrueLabel6.Visible = TrueEnd IfIf Option2.Value ThenTimer2.Interval = 1Timer1.Interval =

6、0Label1.Caption = Label6.Caption = RandomizeClsa = Array(one, two, three, free, feel, fly, lacking, the, power, that)x = Int(Rnd * (UBound(a) + 1)Label7.Caption = a(x)Command1.Enabled = FalseCommand2.Enabled = FalseLabel7.Top = 0Label7.Visible = TrueEnd IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As

7、 Integer)判断简单时是否打中，并使成绩加一If Option1.Value ThenTimer1.Interval = 1If KeyAscii = Asc(Label1.Caption) Then Label1.Top = 0 Label1.Left = Rnd() * 10800 Label1.Caption = Chr$(Rnd() * 26 + 97) Label2.Caption = Label2.Caption + 1 End IfIf KeyAscii = Asc(Label6.Caption) Then Label6.Top = 0 Label6.Left = Rnd(

8、) * 10800 Label6.Caption = Chr$(Rnd() * 26 + 97) Label2.Caption = Label2.Caption + 1 End If End If 判断困难时是否打中，并使成绩加一If Option2.Value ThenTimer2.Interval = 1End If If KeyAscii = 65 And KeyAscii = 97 And KeyAscii 8760 Then Label1.Top = 0 Label1.Left = Rnd() * 10800 Label1.Caption = Chr$(Rnd() * 26 + 96

9、)End IfIf Label6.Top 8760 Then Label6.Top = 0 Label6.Left = Rnd() * 10800 Label6.Caption = Chr$(Rnd() * 26 + 96) End IfEnd SubPrivate Sub Timer2_Timer()Randomize困难时游戏速度Label7.Top = Label7.Top + Label5.Caption + 10判断是否到底，并随机生成单词，从顶开始If Label7.Top 8760 Then Label7.Top = 0 Label7.Left = Rnd() * 10800Ra

10、ndomizeClsa = Array(one, two, three, free, feel, fly, lacking, the, power, that)x = Int(Rnd * (UBound(a) + 1)Label7.Caption = a(x) Else Label7.Top = Label7.Top + 5End IfEnd Sub4效果及存在问题运行后得到如图界面选择简单模式时，单击开始，上方掉落的是单个字符选择困难模式时，单击开始，上方掉落的是单词存在问题: 1结束时没有提示是否确定结束游戏 2 游戏还缺许多人性化设计 通过本次的VB实验程序设计，使我对VB课程有进一步的

11、了解，使自己的上机能力有大幅度提升，在设计这个程序时，首先我开始构思游戏的内容，再从书本、网上找了一些有关打字游戏设计的资料，但是当把基本的弄好了之后，发现了一些棘手的问题，使我无从下手，经过与同学的商讨和老师的指导后，终于明白了其中的奥妙：其实在打字游戏程序上花费最多事时间是在键盘的输入如何问题，当对应的输入和掉落的单个字符、单词相同时屏幕上的单个字符、单词会消失，最后经过自己的反复尝试以及与同学的讨论，打字游戏最终设计成功。从这一个多星期的设计过程中，使我明白自己动手编程序原来是这么一件快乐的事情 。俗话说得好“熟能生巧”所以不仅是要学会它更加需要会运用它，这次设计程序让我受益良多，我会好

12、好珍惜像这种难得的机会。 小组成员09324221 肖婷参考文献1朱从旭.Visual basic 程序设计综合教程.北京：清华大学出版社，20052 莫德举、夏涛.Visual basic 程序设计.北京：北京邮电大学出版社，20083界面设计与VB实训教程 莫德举 张玉英 编4Visual Basic 程序设计基础教程 黄学平 编东华理工大学长江学院 课程设计评分表学生姓名：肖婷 班级：093242 学号：09324221课程设计题目：打字游戏项目内容满分实 评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10工作量适中，难易度合理10能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论依据充分，数据准确，公式推导正确10能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等10能体现创造性思维，或有独特见解10成果质量总体设计正确、合理，各项技术指标符合要求。10说明书综述简练完整，概念清楚、立论正确、技术用语准确、结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰10设计说明书栏目齐全、合理，符号统一、编号齐全。格式、绘图、表格、插图等规范准确，符合国家标准10有一定篇幅，字符数不少于500010总 分100指导教师评语： 指导教师签名： 年 月 日