vb打字游戏课程设计报告

《vb打字游戏课程设计报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、.功能描述…………………………………………32.概要设计…………………………………………33.详细设计…………………………………………44.效果及存在问题…………………………………95.心得体会…………………………………………12小组成员……………………………………………12参考文献……………………………………………12151．功能描述本程序是利用vb编写的一个打字游戏，游戏可以选择难易程度，选择简单时上方掉落的是单个字符，选择困难时上方掉落的是单词，当正确按键时可以将其击掉，成绩相应增加一分，开始前可以选择游戏速度，点击加减按钮可以调节游戏速度。本程序还有许多实用功能，可以将游戏

3、暂停、继续、从来、结束等。2．概要设计打字游戏简单方框图：屏幕上方掉落单个字符时键盘输入对应的单个字符屏幕上的单个字符消失与单词最比较相同时单词消失屏幕上方掉落为单词时键盘输入对应的单词单词存在在标签label8的caption上153．详细设计(1)界面设计在窗体上添加6个命令按钮command1、command2、command3、command4、Command5command6、8个标签Label1、Label2、Label3、Label4、Label5、Label6、Label7、Label8、2个定时器time1、time2、1个文本框text1和2个单选按钮optio

4、n1、option2按表修改它们的属性，如图所示。对象属性值Command1Caption加Command2Caption减Command3Caption开始Command4Caption结束Command5Caption暂停/继续Command6Caption重来Label1CaptionLabel2CaptionLabel3Caption成绩Label4Caption速度Label5Caption18Label6CaptionLabel7CaptionLabel8Captiontime1Interval0Time2Interval015Option1Caption简单Optio

5、n2Caption困难Text1text(2)编写程序代码如下：PrivateSubCommand1_Click()'曾加速度Label5.Caption=Label5.Caption+1EndSub'减小速度PrivateSubCommand2_Click()Label5.Caption=Label5.Caption-1EndSub'开始游戏PrivateSubCommand3_Click()IfOption1.ValueThenTimer1.Interval=1Timer2.Interval=0Label7.Caption=""Label1.Top=8760Label6.Top

6、=8760Label1.Visible=TrueLabel6.Visible=TrueEndIfIfOption2.ValueThenTimer2.Interval=1Timer1.Interval=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=FalseCom

7、mand2.Enabled=FalseLabel7.Top=0Label7.Visible=TrueEndIfText1.SetFocus15EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)'判断简单时是否打中，并使成绩加一IfOption1.ValueThenTimer1.Interval=1IfKeyAscii=Asc(Label1.Caption)ThenLabel1.Top=0Label1.Left=Rnd()*