- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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的熟悉和了解,然后利用已有的知识对题目要求的思考和分析,然后设置最
您可能关注的文档
最近下载
- 八年级上名著《红岩》第10章(讲练测).docx VIP
- 表面处理技术在高端装备制造中的应用与挑战报告2025.docx
- 汪曾祺《钓鱼大夫》阅读答案试题解析理解 .pdf VIP
- 家庭反暴强制报告制度及服务流程.docx VIP
- 聚醚多元醇企业标准.pdf VIP
- 八年级上名著《红岩》第11章(讲练测).docx VIP
- T_CIATCM 093—2020_基层医疗卫生机构中医诊疗区(中医馆)团体标准远程会诊系统建设指南中国中医药信息学会.pdf VIP
- 八年级上名著《红岩》第12章(讲练测).docx VIP
- 2025国投生物制造创新研究院有限公司招聘(31人)考试备考试题及答案解析.docx VIP
- 边坡位移监测记录表.xlsx VIP
文档评论(0)