VB打字游戏.docVIP

Visual Basic程序设计课程设计 打字游戏 系别： 专业： 班级： 姓名： 学号： 指导老师： 内容摘要 本程序设计从窗体上随机方掉落英文字母，使用者可按键盘进行对应的输入。在累计游戏中字母出现的个数时，程序会对使用者正确的输入进行统计，计算出使用者在一分钟的打字命中率，从而测试使用者的打字效率。其中有速度选择和成绩提示等功能！ 目录 内容摘要 2 正文 3 1.功能描述 3 2.概要设计 3 3.详细设计 3 3．1 程序中使用到的控件 3 3．2 命令按钮运行代码 4 3．3 时间控件运行代码 4 3．4 文本框运行代码 6 3．5 键盘事件运行代码 6 4.效果及存在问题 7 效果截图： 7 存在的问题： 8 5.心得 8 参考文献 8 正文 1.功能描述 设计一个打字游戏程序，能够实现随机产生英文字母，统计英文字母出现的个数和使用者的正确打字个数，最后计算并显示出使用者打字的命中率。时间自动设置为一分钟，游戏开始时有速度选择。游戏进行中或结束时，使用者可以选择重新开始或退出游戏。 2.概要设计 3.详细设计 3．1 程序中使用到的控件 命令按钮（Commandbutton） 3个 标签（Label） 13个 文本框（Text） 1个 选项按钮（Optionbutton） 3个 时间控件（Timer） 2个 3．2 命令按钮运行代码 Private Sub Command1_Click() 游戏开始 Timer1.Interval = 1 Command1.Enabled = False Command3.Enabled = True Label5.Caption = 0 Label9.Caption = 0 Label10.Caption = 0 % Label13.Caption = Text1.Text = 60 Timer2.Interval = 1000 End Sub Private Sub Command2_Click() ‘退出 End End Sub Private Sub Command3_Click() 重新挑战 Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = Label1.Top = 8760 Label2.Top = 8760 Label3.Top = 8760 Label4.Top = 8760 Label5.Caption = 0 Label9.Caption = 0 Label10.Caption = 0 % Text1.Text = 60 时间恢复为初始值 Label13.Caption = Timer1.Enabled = True Timer2.Enabled = True End Sub 3．3 时间控件运行代码 Private Sub Timer1_Timer() Randomize 快速时游戏速度 If Option1.Value Then Label1.Top = Label1.Top + 70 Label2.Top = Label2.Top + 80 Label3.Top = Label3.Top + 90 Label4.Top = Label4.Top + 100 End If 中速时游戏速度 If Option2.Value Then Label1.Top = Label1.Top + 50 Label2.Top = Label2.Top + 55 Label3.Top = Label3.Top + 60 Label4.Top = Label4.Top + 65 End If 慢速时游戏速度 If Option3.Value Then Label1.Top = Label1.Top + 25 Label2.Top = Label2.Top + 30 Label3.Top = Label3.Top + 35 Label4.Top = Label4.Top + 40 End If 设置程序随机产生英文字母 If Label1.Top 8760 Then Label1.Top = 0 Label1.Left = Rnd() * 108