VB课程设计报告-打字练习

VISUAL BASIC课程设计报告标题：打字练习名称：* * *学号：类：1标题简介在计算机和其他数字产品日益普及的今天，人们必须像使用键盘一样熟练地使用笔。打字练习是熟悉键盘，提高打字速度的好方法。这个主题需要制作打字练习游戏，用户在游戏过程中练习了手指。2设计过程中使用的知识点(1)控制阵列(2)键盘事件处理(3)文本文件的读写(4)多模块编程(5)生成随机值3挑战要求和挑战(1)如果在游戏开始时出现“打字设置”窗口，请在“用户名”文本框中输入用户名。如果未输入名称，则在单击“开始练习”和“查看绩效”按钮时，系统会提示您输入名称。如果未输入时间，则在单击开始练习和查看绩效按钮时，系统会提示您输入时间。在“打字设置”窗口中，您可以设置打字速度和难度，速度决定文字下落的速度，并确定总分割高度、中、低速三档。难度级别分为小写、大写和所有混合(字母、数字和符号)三个文件(2)选择速度和难度后，单击“开始练习”按钮以全屏显示主页。根据困难的设置，屏幕上将生成并放置各种字符。如果用户在下降到屏幕底部之前按相应的键盘键，字符将“点击”后消失，点击时字符位置将显示爆炸。程序会根据速度和难度自动评分，分数会实时显示在主界面的顶部。评分标准如下：1，小写慢：1分命中2，慢大写：1，2分命中3，慢速混合文字：1，3点4，中速小写：1，4点5，中速大写：1至5分6，中速混合文字：1.6点7，高速小写：1.7分命中8，高速大写字母：1，8分命中9，快速混合文字：9点(3)打字前可以选择打字的时间。到了时间，弹出消息框就会出现，显示练习得分，并询问是否继续练习，如果选择否，则会返回击球手设置窗口。用户的成绩为“SCORE .TXT”文件中。(4)如果放置字符包含相同的字符，则每次只能放置一个(5)打字的时候，可以按ESC键停止游戏，返回打字设定窗口。但是游戏的成绩不会被保存。(6)打字时按F1功能键，会弹出键盘布局窗口供用户参考，显示窗口时主窗口中的字符会暂停，即使关闭此窗口，游戏也会继续。(7)单击“打字设置”窗口中的“查看成绩”按钮，显示当前用户上一次练习的成绩和时间。(8)程序运行时，必须在全屏宽度上均匀分布每个字符。4程序密钥代码FrmSet接口代码声明Option Explicit强制变量Private Sub Form_Load()Label2 .Caption=Now()End SubPrivate Sub cmdPlay_Click()If txtName。Text= ThenMsgBox“您尚未输入名称”，32，“打字设置”TxtName。SetFocusExit SubEnd IfIf Text1。Text= ThenMsgBox“您还没有输入时间”，32，“打字设置”Text1 .SetFocusExit SubEnd IfGames。Showgames . dead time=val(text 1 . text)* 60Me .HideEnd SubPrivate Sub cmdScore_Click()Dim pd1 As PersonDataDim pd2 As PersonDataDim str As StringDim strFind As BooleanP=txtName。Textif dir(app . path score . txt )= then测试指定路径下是否存在指定的文件或文件夹MsgBox“文件不存在！”48、“查看成绩”Exit SubElseopenapp . path score . txt for inputas # 1If txtName。Text= Then读取分数Do While Not EOF(1)将Input # 1、、pd2.score和pd2.time读取值分配给相应变量StrFind=Truegrad . text 1 . text=grade . text 1 . text pd2 . name Space(2)pd2 . score 分钟 Space(2) pd2.time Chr(13) Chr(回路ElseDo While Not EOF(1)Input # 1、、pd2.score、pd2.timeIf = ThenStrFind=Truegrad . text 1 . text=grade . text 1 . text pd2 . name Space(2)pd2 . score 分钟 Space(2) pd2.time Chr(13) Chr(End If回路End If关闭#1If strFind=True Then灰色。秀Me .HideElseMsgBox“没有成绩单！”48、“查看成绩”End IfEnd IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd Subprivate sub form _ unload(cancel as integer)卸载游戏End Subprivate subframe 2 _ dragdrop(source as control，x as single，y as single)End SubPrivate Sub Label2_Click()End SubGames接口代码Option ExplicitDim second As IntegerPublic deadtime As Integerprivate subform _ key down(keycode as integer，shift as integer)If KeyCode=vbKeyF1 ThenTimer1 .Enabled=FalseFrmKB。显示1Timer1 .Enabled=TrueEnd IfEnd SubPrivate Sub Form_Load()Dim I As IntegerFor I=1 To 9Loadlbletter (I)下一个For I=0 To 9Lbletter (I)。left=screen.width/11 * (I 1)Lbletter (I)。top=0Lbletter (I)。visible=true下一个StartEnd Subprivate subform _ key press(key ascii as integer)Dim I As IntegerFor I=0 To lblLetter。Count-1if chr(key ascii)=lbletter . item(I)。caption then包含匹配的字符ScoreCountimg explode . left=lbletter . item(I)。leftImg explode.top=lbletter.item (I)。topImgExplode。Visible=TrueTimer2 .Enabled=TrueLbletter.item (I)。top=0Letter (i)label 2 . caption=frm set . txt name . text ，当前分数为“TotalScore”点Exit SubEnd If下一个If KeyAscii=27 ThenIf MsgBox(“真的要结束练习吗？”，vbYesNo vbQuestion，打字练习)=vbYes ThenUnload MeFrmSet .Visible=TrueEnd IfEnd IfTotalScore=TotalScore-1label 2 . caption=frm set . txt name . text ，当前分数为“TotalScore”点End SubPrivate Sub Image1_Click()End SubPrivate Sub Timer1_Timer()Dim I As IntegerFor I=0 To lblLetter。Count-1Randomize速度(I)下一个label 2 . caption=frm set . txt name . text ，当前分数为“TotalScore”点End SubPrivate Sub Timer2_Timer()Dim I As IntegerFor I=0 To lblLetter。Count-1If lbletter.item (I)。top 0 or lbletter.item (I)。top me.height thenLetter (i)End If下一个ImgExplode。Visible=FalseTimer2 .Enabled=FalseEnd SubPrivate Sub Timer3_Timer()Dim person As PersonDataSecond=second 1LBL time=second 60 : second mod 60If second=deadtime Thenperson . name=frmt set . txt name . textPerson.score=TotalScoreperson . time=frm set . label 2 . captionopenapp . path score . txt for appendas # 1Write # 1、、person.score、person.time闭合1If M