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

内容摘要： 本程序是利用vb编写的一个打字游戏，游戏具有功能：上方有文字掉下，按键可将其击掉，有速度选择，难度选择，难度低时为单个字符，难度高时为单词。本游戏，可以让用户从零开始逐步变为打字高手，短时间内运指如飞！48小时成为打字高手寓教于乐…………………………………………3 概要设计…………………………………………3 详细设计…………………………………………4 效果及存在问题…………………………………9 心得体会…………………………………………12 小组成员……………………………………………12 参考文献……………………………………………12 1．功能描述 本程序是利用vb编写的一个打字游戏，游戏可以选择难易程度，选择简单时上方掉落的是单个字符，选择困难时上方掉落的是单词，当正确按键时可以将其击掉，成绩相应增加一分，开始前可以选择游戏速度，点击加减按钮可以调节游戏速度。本程序还有许多实用功能，可以将游戏暂停、继续、从来、结束等。 2．概要设计 打字游戏简单方框图： 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 Command2.Enabled = False Label7.Top = 0 Label7.Visible = True End If Text1.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) 判断简单时是否打中，并使成绩加一 If Option1.Value Then Timer1.Interval = 1 If KeyAscii = Asc(Label1.Caption) Then Label1.Top = 0 Label1.Left = Rnd() * 10800 Label1.Caption = Chr$(Rnd() * 26 + 97) Label2.Caption = Label2.