张昭琪VB课设报告摘要.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
沈 阳 航 空 航 天 大 学 课程设计 学 号 _2013040601460 班 级 _ 姓 名 张昭琪____ __ 指导教师 _ 杨煦__ __ 2013年 10 月 24 日 沈阳航空航天大学 课程设计任务书 学院: 机电工程学院 专业:机械设计自造及其自动化 班级 学号:2013040601460 题目:打字练习应用程序 一、课程设计时间 2014~2015第1学期第8周,共计1周,20学时。 二、课程设计内容 用VB设计一个程序,在屏幕上随机出现一些字母并直线下落,然后操作者通过键盘按相应出现的字母,如果按对相应出现的字母,则对应字母消失(如有动画和声音更好),否则字母下落,并到一水平线上消失,自行设计得失分数功能。 要求可随机产生大、小写字母;可选择练习(字母下落)的速度;可选择练习的时间;可以进行得分统计;显示当前玩家最高分。 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课设结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 五、成绩 六、教师评语 目 录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 8 总结 9 完整的源程序 10 参考文献文献 21 需求分析 需求: 需要设计一个打字练习应用程序,使随机产生26个英文字母的大小写,并且按键盘的相同字母按键会消失。 该应用程序就是本着娱乐和对键盘熟悉程度的原则设计的 ,希望用户可以在熟悉键盘按键的同时,享受游戏的乐趣。 设计分析 概述: 主要对keypress事件的编写,正确恰当地使用timer控件。整个运行过程中各个事件的协调。 总体设计: (3)详细设计: 技术要点 下边的代码是核心代码: 1.主要运用了窗体的keypress事件。当每一次字母下落时,就敲击相应字母并且让字母(label3)的top为-800 ,这样就重置了字母的位置,实现可循环。与此同时,在敲击的同时利用media控件,实现了声音的插入。分数的设置也是在敲击的同时,让text3的值逐渐加十,实现了分数的统计,判断两个值得大小,再让text2与text3相等,这样最高分得到了实现。 Private Sub Form_KeyPress(KeyAscii As Integer) 核心 Dim a%, b%, c%, d!, e%, f As Integer If Chr(KeyAscii) = Label3.Caption Then WMP1.URL = 按键.mp3 Text3.Text = Text3 + 10 Label3.Top = -800 Randomize Label3.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 100)) d = Int(Rnd * 5000 + 20) Label3.Left = d c = Int(Rnd * 2 + 1) If c = 1 Then a = Int(Rnd * 26 + 65) Label3.Caption = Chr(a) Else a = Int(Rnd * 26 + 97) Label3.Caption = Chr(a) End If End If If Label3.Top = -800 Then Timer1.Enabled = True End If If Val(Text2) Val(Text3) Then e = e - 10 Text3.Text = Text3 + 10 + e Else Text2 = Text3 End If End Sub 2.对要求同一水平线消失,并且计时模式的实现。采用inputbox来实现,时间的依次减小,用一个timer控件即可成功解决。利用减小timer的时间值,可以让字母下降速度逐渐增大,实现了难易程度的调整。 3.在符合所有要求的基础上,又添加了一些个人喜好,比如背景音乐和背景图片的添加,背景画面的渲染,游戏规则的添加。是的应用程序更加感性化。 主要界面截图 总结 经过一个星期的VB课设的思考、编写、运行,我深深地体会到这样一句话:不吃苦中,苦难为人上人。 首先是对VB的熟悉和了解,然后利用已有的知识对题目要求的思考和分析,然后设置最

文档评论(0)

风凰传奇 + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档