《VB打字游戏课程设计报告.doc》由会员分享，可在线阅读，更多相关《VB打字游戏课程设计报告.doc（3页珍藏版）》请在三一办公上搜索。
1、打字程序设计报告学院 动力学院 班级 能动01 学号 1101180145 姓名 张柯 成绩 一、功能 编织一个打字练习游戏程序，使用户在游戏过程中进行指法练习。1程序设计的思想和方法。编写控制菜单，实现主要功能；两个产生字母的Label放置在Frame上在标签上随机出现字母，字母位置必须在Frame或Picture内根据级别的不同，产生的字母类型（大写、小写、数字、上档键）也不同，下落的速度随着级别而增加；通过敲击键盘，将相应字母从屏幕上消失，同时在Frame或Picture上重新产生新的字母；计算出在规定的时间内打字的分数，并给用户提示信息打字练习可连续进行，当没到规定时间时也可以停止练习
2、，显示的时间、分数恢复到初始状态并给出提示信息。练习的时间可以自由设定可以改变字体的属性在练习开始时，需要输入用户的姓名并在窗体上显示出来二、课程设计的详细设计（在源代码中已指出，不做详细说明）三、调试程序的过程（遇到的问题及解决办法）于随机字母的生成，此过程需要完成的工作有几个：字母的生成方法Label1.Caption = Chr(Int(Rnd * 26) + 48)设定Label1随机显示的字母；设定显示字母的速度speed=75，也可以随机设定速度speed=Int(Rnd*100+100)；设定字母出现的左边位置Label1.Left = Int (Rnd * Frame1.Wid
3、th)；设定字母出现的顶部位置Label1.Top = Frame1.Top。字母下落和记时，两个Timer控件的工作。Timer1用于控制字母的下落，采用的方法Label1.top=Label1.top+speed。并检查字母是否超出Frame范围，超出则重新调用生成字母的过程。Timer2用于控制练习的时间，每秒触发一次时间减1。当时间为0时停止生成新的字母，计算出打字的正确率，并通过MsgBox通知用户。检验字母是否和键盘键如一样，通过KeyPress事件实现。如果正确则重新生成新的字母，并且给记录打字正确个数的变量加1。背景和字体的改变，使用一个通用对话框，挺容易解决。随等级不同，下落
4、字母增多以及下落速度加快，使用3个LABEL，定义3个过程，再改变timer控件的interave属性，实现速度不同。 1设计方案要完善的地方 不用三个独立的label,而用控件数组，这样可以简化代码。 实现排行榜功能，能每次看到最高分 建立个人档案，随时能查看个人练习资料2. 目前存在的问题由于添加了通用对话框，当打开.frm窗口是加载错误，但打开.vbp文件没问题没能建立起排行榜建立的以往记录查询太简单了四、输入输出数据五、课程设计总结我非常喜欢VB课程设计，让我感受到了动手的乐趣，成功运用课本知识的满足感，通过这次机会，我们增强了我们实践能力，运用知识的能力，它再一次证实光有课本知识是远
5、远不够的，我要提高的是综合素质，而非仅是课本知识。1. 对该题目的意见和建议打字程序入门简单，容易下手做，但要完善他还是有一定的难度， 我们有很大的创新空间，能发挥每个同学的潜能，而且它是一个非常常见的程序，所以，容易使人理解，编写目的明确。综上所述，本题木是个很不错的课题2对本次设计的意见和建议本次活动培养我们综合利用VB语言进行程序设计的能力，培养了我们利用系统提供的标准函数和标准控件进行创新设计。现在虽然要求素质教育，但我们实践的机会还是很少，像这样好的火动更少，所以，搞这种实践活动是非常有必要的希望学校常搞这种活动六、附件Sub Cer()Label3.Caption = Chr(Ro
6、und(Rnd * 28) + 62) 实现字母随机产生Label3.Left = Int(Rnd * F2.Width) 下落位置随机产生Label3.Top = F2.TopEnd Sub 定义过程 Private Sub VBcolor_Click()CommonDialog2.Flags = vbCCRGBInitCommonDialog2.Color = BackColorCommonDialog2.Action = 3F2.BackColor = CommonDialog2.ColorLabel3.BackColor = CommonDialog2.ColorLabel4.Back
7、Color = CommonDialog2.ColorLabel5.BackColor = CommonDialog2.ColorEnd Sub 设置背景颜色字体同理 Open out.txt For Input As #1Input #1, scoreClose #1Cls 打开记事本，并写如记录Print score Again:a = InputBox(请输入游戏时间)If a 0 Then Label3.Top = Label3.Top + 100 要是达到要求，下落 If Label3.Top F2.Height Then Text3.Text = Val(Text3.Text) + 1 Cer 落完后，调用过程，实现字母产生，以达到徇环 End If
