vb课程设计报告《打字游戏》

《vb课程设计报告《打字游戏》》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《VB程序设计》课程设计任务书题目：打字游戏任务与要求：编制一个打字练习游戏程序，使用户在游戏过程中进行指法练习。要求程序能完整运行。时间：2012年2月15日至2012年3月18日共4周学生姓名：王凯学号：1103860333专业：化工与制药大类指导教师：宋斌2012年4月14日第一章课程设计目的根据课堂讲授内容，学生做相应的自主练习，消化课堂所讲解的内容；通过做课程设计积累调试VB程序的经验；通过完成课程设计中的编程题，逐渐培养学生的编程能力、用计算机解决实际问题的能力。本程序设计主要锻炼了对于控件数组，多模块程序设计，键盘事件

2、处理，随机数的生成，文本文件读写，声音的播放。第二章课程设计的要求题目介绍：在计算机普及的今天，人们使用键盘已变的更加频繁，为了使打字变得更加熟悉和进一步提高打字速度。本题目要求编写一个打字练习游戏程序，使用户在游戏过程中进行执法练习。课程设计功能要求：<1>程序开始时在‘打字游戏设置’窗口中输入用户名，并根据设置窗口调整练习难度与打字速度。在未输入姓名时单击查看成绩可查询历史成绩。<2>选择好速度与难度之后，单击‘开始练习’按钮。屏幕会随机产生并落下各种字符。在落到屏幕底部之前，击中字符消失同时产生爆炸声，程序根据速度和难度的设置

3、自动记录分数并显示在窗口顶部。<3>为增加趣味性，在程序中增加背景音乐和打中时打击声。并BackMusic.mid文件作为控制打字练习的时间长度，<4>打字练习过程中，屏幕的顶部显示已用的时间和当前的分数，如果按F1功能键，弹出键盘布局窗口,音乐暂停；关闭此窗口，游戏继续进行。.第三章课程设计报告内容一．打字游戏界面主窗体及自述文件界面：打字游戏的部分代码：产生随机大小写字母编写代码PublicSubLetter(nAsInteger)'根据选择产生英文字母IffrmSet.Lowercase.ValueThenj=Int(Rnd*

4、26+97)'产生小写字母ElseIffrmSet.Uppercase.ValueThenIfnMod2=0Then'产生大小写混合字母j=Int(Rnd*26+65)Elsej=Int(Rnd*26+97)EndIfElseIffrmSet.Mixcase.ValueThenj=Int(Rnd*79+48)'产生混合字母EndIffrmGame.lblLetter.Item(n).Caption=Chr(j)frmGame.lblLetter.Item(n).ForeColor=RGB(Rnd*254,Rnd*254,Rnd*25

5、4)EndSub根据不同难度产生不同下降速度PublicSubSpeed(nAsInteger)'根据选择产生不同的速度IffrmSet.LSpeed.ValueThenfrmGame.lblLetter.Item(n).Top=frmGame.lblLetter.Item(n).Top+40ElseIffrmSet.MSpeed.ValueThenfrmGame.lblLetter.Item(n).Top=frmGame.lblLetter.Item(n).Top+80'选择不同速度ElseIffrmSet.HSpeed.Valu

6、eThenfrmGame.lblLetter.Item(n).Top=frmGame.lblLetter.Item(n).Top+120EndIfIffrmGame.lblLetter.Item(n).Top>frmGame.HeightThen'遗漏扣除分数frmGame.lblLetter.Item(n).Top=0TotalScore=TotalScore-10Letter(n)EndIfEndSub窗体加载PrivateSubCommand1_Click()frmSet.ShowUnloadMeEndSub文本的读写编码Pr

7、ivateSubcmdScore_Click()Dimpd1AsPersonDataDimpd2AsPersonDataDimstrAsStringDimstrFindAsBooleanpd1.name=txtName.TextIfDir(App.Path&"Score.txt")=""ThenMsgBox"文件不存在！",48,"成绩查看"ExitSubElseOpenApp.Path&"Score.txt"ForInputAs#1IftxtName.Text=""ThenDoWhileNotEOF(1)'判断文件号是否为文件

8、尾Input#1,pd2.name,pd2.score,pd2.timestrFind=TruefrmGrade.Text1.Text=frmGrade.Text1.Text&pd2.name&Space(2)&pd2.score&"