vb课程设计报告-打字练习(共10篇).docxVIP

vb课程设计报告-打字练习(共10篇) 　　VISUALBASIC　　课程设计报告　　题目：打字练习　　姓名：***　　学号：　　班级：　　1题目介绍　　在计算机及其它数码产品日益普及的今天，人们使用键盘应　　像使用笔写字一样熟练。进行打字练习是熟悉键盘并提高打字速度的豪放法。本题目要求编制一个打字练习游戏，是用户在游戏过程中练习指法。　　2设计过程中用到的知识点　　控件数组键盘事件处理文本文件的读写　　多模块程序设计　　随机值的生成　　3课题要求和承担的任务　　游戏开始时出现“打字设置”窗口，在“您的姓名”文本框　　中输入用户名。若未输入名字，就点击“开始练习”与“查　　看成绩”按钮，则提示用户输入姓名。若未输入时间，就点　　击“开始练习”与“查看成绩”按钮，则提示用户输入时间。　　在“打字设置”窗口可以设置打字速度和难度，速度决定字　　母下落的快慢，共分高，中，低速三档。难度等级也分为三　　档：小写字母，大写字母，所有混合　　选择速度和难度之后，单击“开始练习”按钮后，主页面以　　全屏方式显示。根据难度的设置，屏幕上随即产生并落下各　　种字符。若用户在字符落到屏幕底部之前敲击了相应的键盘　　键，则该字符被“击中”后消失，击中时在字符位置上显示　　一个爆炸的效果。程序根据速度和难度的不同自动进行计　　分，分数实时地显示在主界面的顶部。　　计分标准为：　　1，　　2，　　3，　　4，　　5，　　6，　　7，　　慢速+小写字母：打中一个1分慢速+大写字母：打中一个2分慢速+混合字符：打中一个3分中速+小写字母：打中一个4分中速+大写字母：打中一个5分中速+混合字符：打中一个6分高速+小写字母：打中一个7分　　8，　　9，高速+大写字母：打中一个8分高速+混合字符：打中一个9分　　打字前可以选择打字的时间，时间一到弹出消息框显示用户本次练习得分，并提示是否继续练习，如果选“否”，返回“打字设置”窗口。用户的成绩被保存在“”文件中，供以后查询。　　当下落字符中有相同字符时，一次只能打掉一个　　在打字过程中，可以按ESC键中止游戏，返回打字设置窗　　口。但游戏的成绩并不保存。　　打字过程中如果按F1功能键，弹出键盘布局窗口供用户参　　考，显示该窗口时主窗口的字符暂停下落，关闭此窗口游　　戏继续进行。　　在“打字设置”窗口中，点击“查看成绩”按钮，显示当　　前用户的历次练习的成绩和时间。　　要求程序运行时将各个字符均匀地分布占满屏幕宽度。4程序关键代码　　frmSet界面代码　　OptionExplicit强制变量声明　　PrivateSubForm_Load()　　=Now()　　EndSub　　PrivateSubcmdPlay_Click()　　If=Then　　MsgBox您还没有输入姓名。,32,打字设置　　　　ExitSub　　EndIf　　If=Then　　MsgBox您还没有输入时间。,32,打字设置　　ExitSub　　EndIf　　=Val()*60　　EndSub　　PrivateSubcmdScore_Click()　　Dimpd1AsPersonData　　Dimpd2AsPersonData　　DimstrAsString　　DimstrFindAsBoolean　　=　　IfDir(\)=Then测试一个指定的路径下是否有指定的文件或文件夹　　MsgBox文件不存在！,48,成绩查看　　ExitSub　　Else　　Open\ForInputAs#1　　If=Then读取成绩　　DoWhileNotEOF(1)　　Input#1,,,读入值赋给相应的变量　　strFind=True　　=Space(2)分Space(2)Chr(13)Chr(10)　　Loop　　Else　　DoWhileNotEOF(1)　　Input#1,,,　　If=Then　　strFind=True　　=Space(2)分Space(2)Chr(13)Chr(10)　　EndIf　　Loop　　EndIf　　Close#1　　IfstrFind=TrueThen　　　　Else　　MsgBox没有您的成绩记录！,48,成绩查看　　EndIf　　EndIf　　EndSub　　PrivateSubcmdExit_Click()　　UnloadMe　　EndSub　　PrivateSubForm_Unload(CancelAsInteger)　　Unloadgames　　EndSub　　PrivateSubFrame2_Dra