VB打字游戏.doc

Visual Basic程序设计课程设计打字游戏系别： 专业：班级： 姓名： 学号： 指导老师：内容摘要本程序设计从窗体上随机方掉落英文字母，使用者可按键盘进行对应的输入。在累计游戏中字母出现的个数时，程序会对使用者正确的输入进行统计，计算出使用者在一分钟的打字命中率，从而测试使用者的打字效率。其中有速度选择和成绩提示等功能！目录内容摘要2正文31.功能描述32.概要设计33.详细设计331 程序中使用到的控件332 命令按钮运行代码433 时间控件运行代码434 文本框运行代码635 键盘事件运行代码64.效果及存在问题7效果截图：7存在的问题：85.心得8参考文献8正文1.功能描述设计一个打字游戏程序，能够实现随机产生英文字母，统计英文字母出现的个数和使用者的正确打字个数，最后计算并显示出使用者打字的命中率。时间自动设置为一分钟，游戏开始时有速度选择。游戏进行中或结束时，使用者可以选择重新开始或退出游戏。2.概要设计随即产生字母并下落并进行命中率的计算和倒计时（自动设置60秒）游戏进行时可选择重新开始速度选择（默认慢速）重新挑战或选择退出开始游戏用键盘敲击字母游戏结束并显示命中率 3.详细设计31 程序中使用到的控件命令按钮（Commandbutton） 3个标签（Label） 13个文本框（Text） 1个选项按钮（Optionbutton） 3个时间控件（Timer） 2个32 命令按钮运行代码Private Sub Command1_Click() 游戏开始Timer1.Interval = 1Command1.Enabled = FalseCommand3.Enabled = TrueLabel5.Caption = 0Label9.Caption = 0Label10.Caption = 0 & %Label13.Caption = Text1.Text = 60Timer2.Interval = 1000End SubPrivate Sub Command2_Click()退出EndEnd SubPrivate Sub Command3_Click() 重新挑战Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = Label1.Top = 8760Label2.Top = 8760Label3.Top = 8760Label4.Top = 8760Label5.Caption = 0Label9.Caption = 0Label10.Caption = 0 & %Text1.Text = 60 时间恢复为初始值Label13.Caption = Timer1.Enabled = TrueTimer2.Enabled = TrueEnd Sub33 时间控件运行代码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 + 100End If中速时游戏速度If Option2.Value Then Label1.Top = Label1.Top + 50 Label2.Top = Label2.Top + 55 Label3.Top = Label3.Top + 60 Label4.Top = Label4.Top + 65End If慢速时游戏速度If Option3.Value Then Label1.Top = Label1.Top + 25 Label2.Top = Label2.Top + 30 Label3.Top = Label3.Top + 35 Label4.Top = Label4.Top + 40End If设置程序随机产生英文字母If Label1.Top 8760 Then Label1.Top = 0 Label1.Left = Rnd() * 10800 Label1.Caption = Chr$(Rnd() * 26 + 96) Label5.Caption = Label5.Caption + 1End IfIf Label2.Top 8760 Then Label2.Top = 0 Label2.Left = Rnd() * 10800 Label2.Caption = Chr$(Rnd() * 26 + 96) Label5.Caption = Label5.Caption + 1End IfIf Label3.Top 8760 Then Label3.Top = 0 Label3.Left = Rnd() * 10800 Label3.Caption = Chr$(Rnd() * 26 + 96) Label5.Caption = Label5.Caption + 1End IfIf Label4.Top 8760 Then Label4.Top = 0 Label4.Left = Rnd() * 10800 Label4.Caption = Chr$(Rnd() * 26 + 96) Label5.Caption = Label5.Caption + 1End IfIf Label5.Caption 0 Then Label10.Caption = Val(Label9.Caption) * 100) Val(Label5.Caption) & %计算游戏命中率End IfEnd SubPrivate Sub Timer2_Timer()实现倒计时Text1.Text = Text1.Text - 1End Sub34 文本框运行代码Private Sub Text1_Change()If Text1.Text = 0 Then Label1.Caption = Label2.Caption = Label3.Caption = Label4.Caption = Label13.Caption = 您的游戏命中率为： & Label10.Caption 输出结果 Timer1.Enabled = False Timer2.Enabled = False Form1.KeyPreview = FalseEnd IfEnd Sub35 键盘事件运行代码Private Sub Form_KeyPress(KeyAscii As Integer)键盘事件If KeyAscii = Asc(Label1.Caption) Then Label1.Top = 8000 Label9.Caption = Label9.Caption + 1End IfIf KeyAscii = Asc(Label2.Caption) Then Label2.Top = 8000 Label9.Caption = Label9.Caption + 1End IfIf KeyAscii = Asc(Label3.Caption) Then Label3.Top = 8000 Label9.Caption = Label9.Caption + 1End IfIf KeyAscii = Asc(Label4.Caption) Then Label4.Top = 8000 Label9.Caption = Label9.Caption + 1End If4.效果及存在问题效果截图：存在的问题：（1） 无法随即产生英文单词进行英文单词敲击练习;（2） 无法让玩家自行设置游戏持续时间;（3） 速度选择过于局限以及简单;5.心得 通过本次VB课程设计的实验操作，不仅实现了属于自己的第一个VB程序，而且在本次实验操作中，对于VB程序设计的知识有了更进一步的熟悉，提高了对理论知识的实践水平。以后应该自己多进行这方面知识的实践操作，不断提高实践经验，更好地发挥理论知识。参考文献【1】Visual Basic程序设计 莫德举 北京邮电大学出版社【2】Visual Basic程序设计综合教程 朱从旭 清华大学出版社【3】Visual Basic程序设计 王晓敏 中国铁道出版社【4】Visual Basic程序设计 白康生 清华大学出版社东华理工大学长江学院课程设计评分表专业： 姓名： 班级： 学号：课程设计题目： 打字游戏项目内容满分实 评选题能结合所学课程知识、有一定的能力训练。符合选题要求（5人一题）10工作量适中，难易度合理10能力水平能熟练应用所学知识，有一定查阅文献及运用文献资料能力10理论依据充分，数据准确，公式推导正确10能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等1