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

打字程序课程设计报告（vb） 打字程序设计报告学院 动力学院 班级 能动01 学号 1101180145 姓名 张柯 成绩 一、功能 编织一个打字练习游戏程序，使用户在游戏过程中进行指法练习。1程序设计的思想和方法。编写控制菜单，实现主要功能；两个产生字母的label放置在frame上在标签上随机出现字母，字母位置必须在frame或picture内根据级别的不同，产生的字母类型（大写、小写、数字、上档键）也不同，下落的速度随着级别而增加；通过敲击键盘，将相应字母从屏幕上消失，同时在frame或picture上重新产生新的字母；计算出在规定的时间内打字的分数，并给用户提示信息打字练习可连续进行，当没到规定时间时也可以停止练习，显示的时间、分数恢复到初始状态并给出提示信息。练习的时间可以自由设定可以改变字体的属性在练习开始时，需要输入用户的姓名并在窗体上显示出来二、课程设计的详细设计（在源代码中已指出，不做详细说明）三、调试程序的过程（遇到的问题及解决办法）于随机字母的生成，此过程需要完成的工作有几个：字母的生成方法label1.caption = chr(int(rnd * 26) + 48)设定label1随机显示的字母；设定显示字母的速度speed=75，也可以随机设定速度speed=int(rnd*100+100)；设定字母出现的左边位置label1.left = int (rnd * frame1.width)；设定字母出现的顶部位置label1.top = frame1.top。字母下落和记时，两个timer控件的工作。timer1用于控制字母的下落，采用的方法label1.top=label1.top+speed。并检查字母是否超出frame范围，超出则重新调用生成字母的过程。timer2用于控制练习的时间，每秒触发一次时间减1。当时间为0时停止生成新的字母，计算出打字的正确率，并通过msgbox通知用户。检验字母是否和键盘键如一样，通过keypress事件实现。如果正确则重新生成新的字母，并且给记录打字正确个数的变量加1。背景和字体的改变，使用一个通用对话框，挺容易解决。随等级不同，下落字母增多以及下落速度加快，使用3个label，定义3个过程，再改变timer控件的interave属性，实现速度不同。 1设计方案要完善的地方 不用三个独立的label,而用控件数组，这样可以简化代码。 实现排行榜功能，能每次看到最高分 建立个人档案，随时能查看个人练习资料2. 目前存在的问题由于添加了通用对话框，当打开.frm窗口是加载错误，但打开.vbp文件没问题没能建立起排行榜建立的以往记录查询太简单了四、输入输出数据五、课程设计总结我非常喜欢vb课程设计，让我感受到了动手的乐趣，成功运用课本知识的满足感，通过这次机会，我们增强了我们实践能力，运用知识的能力，它再一次证实光有课本知识是远远不够的，我要提高的是综合素质，而非仅是课本知识。1. 对该题目的意见和建议打字程序入门简单，容易下手做，但要完善他还是有一定的难度， 我们有很大的创新空间，能发挥每个同学的潜能，而且它是一个非常常见的程序，所以，容易使人理解，编写目的明确。综上所述，本题木是个很不错的课题2对本次设计的意见和建议本次活动培养我们综合利用vb语言进行程序设计的能力，培养了我们利用系统提供的标准函数和标准控件进行创新设计。现在虽然要求素质教育，但我们实践的机会还是很少，像这样好的火动更少，所以，搞这种实践活动是非常有必要的希望学校常搞这种活动六、附件sub cer()label3.caption = chr(round(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.backcolor = 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 + 1