- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
vb打字游戏课程设计报告fmirocix
PAGE
《VB程序设计》
课程设计报告
课程设计题目:
打字游戏
姓 名 : 肖婷
专 业 : 统计
班 级 : 093242
学 号 指导老师 : 王敏
2011年1月4号
内容摘要:
本程序是利用vb编写的一个打字游戏,游戏具有功能:上方有文字掉下,按键可将其击掉,有速度选择,难度选择,难度低时为单个字符,难度高时为单词。本游戏,让人在体验趣味的同时也提高了自己的打字速度,尤其使用于初学打字的朋友们!可以让用户从零开始逐步变为打字高手,短时间内运指如飞!48小时成为打字高手,寓教于乐。
本设计报告包括初始的设计想法,概要设计和详细设计。详细设计包括界面设计和所需代码,及其运行后的结果图,以便具体使用。
目 录
功能描述…………………………………………3
概要设计…………………………………………3
详细设计…………………………………………4
效果及存在问题…………………………………9
心得体会…………………………………………12
小组成员……………………………………………12
参考文献……………………………………………12
1.功能描述
本程序是利用vb编写的一个打字游戏,游戏可以选择难易程度,选择简单时上方掉落的是单个字符,选择困难时上方掉落的是单词,当正确按键时可以将其击掉,成绩相应增加一分,开始前可以选择游戏速度,点击加减按钮可以调节游戏速度。本程序还有许多实用功能,可以将游戏暂停、继续、从来、结束等。
2.概要设计
打字游戏简单方框图:
屏幕上方
屏幕上方掉落单个字符时
键盘输入对应的单个字符
屏幕上的单个字符消失
与单词最比较相同时单词消失屏幕上方掉落为单词时
与单词最比较相同时单词消失
屏幕上方掉落为单词时
键盘输入对应的单词
键盘输入对应的单词
单词存在在标签label8的caption上
单词存在在标签label8的caption上
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按表修改它们的属性,如图所示。
对象
属性
值
Command1
Caption
加
Command2
Caption
减
Command3
Caption
开始
Command4
Caption
结束
Command5
Caption
暂停/继续
Command6
Caption
重来
Label1
Caption
Label2
Caption
Label3
Caption
成绩
Label4
Caption
速度
Label5
Caption
18
Label6
Caption
Label7
Caption
Label8
Caption
time1
Interval
0
Time2
Interval
0
Option1
Caption
简单
Option2
Caption
困难
Text1
text
(2)编写程序代码如下:
Private Sub Command1_Click()
曾加速度
Label5.Caption = Label5.Caption + 1
End Sub
减小速度
Private Sub Command2_Click()
Label5.Caption = Label5.Caption - 1
End Sub
开始游戏
Private Sub Command3_Click()
If Option1.Value Then
Timer1.Interval = 1
Timer2.Interval = 0
Label7.Caption =
Label1.Top = 8760
Label6.Top = 8760
Label1.Visible = True
Label6.Visible = True
End If
If Option2.Value Then
Timer2.Interval = 1
Timer1.Interval = 0
Label1.Caption =
Label6.Caption =
Randomize
Cls
a = Array(one, two, three, free, feel, fly, lacking, the, power, that)
x = Int(Rnd * (UBound(a) + 1))
Label7.Caption = a(x)
Command1.Enabled = False
Co
您可能关注的文档
- ss4g型电力机车控制电路分析毕业设计2nd2awyw.doc
- spss软件进行t检验方法cgw_tqja.ppt
- sp平台建设方案1rx5azn6.doc
- spss数据分析实例详解hhgzy7fz.ppt
- staad结构建模及分析_x_5pi8n.doc
- sp咨询1月恒大地产集团绩效管理体系设计方案nax5dwga.ppt
- stg 核心数据库联机事务处理erp系统工作负载支撑系统 方案建议书v10100312yqj0qlol.doc
- st段抬高心肌梗死并发心律失常治疗指南ypenpujp.ppt
- svti 704规范高压开关的压力容器输送管路6s3_tabd.doc
- swot分析最好的swot模板ai5ygyjz.ppt
文档评论(0)