最新VB课程设计报告-打字练习(1).doc

《最新VB课程设计报告-打字练习(1).doc》由会员分享，可在线阅读，更多相关《最新VB课程设计报告-打字练习(1).doc（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateVB课程设计报告-打字练习(1)课程设计题目 打字练习 VISUAL BASIC 课程设计报告题目：打字练习姓名 ：* 学号： 班级： 1题目介绍在计算机及其它数码产品日益普及的今天，人们使用键盘应像使用笔写字一样熟练。进行打字练习是熟悉键盘并提高打字速度的豪放法。本题目要求编制一个打字练习游戏，是用户在游戏过程中练习指法。2设计过程中用到的知识点（1） 控件数组 （

2、2）键盘事件处理 （3）文本文件的读写 （4）多模块程序设计 （5） 随机值的生成 3课题要求和承担的任务（1） 游戏开始时出现“打字设置”窗口，在“您的姓名”文本框中输入用户名。若未输入名字，就点击“开始练习”与“查看成绩”按钮，则提示用户输入姓名。若未输入时间，就点击“开始练习”与“查看成绩”按钮，则提示用户输入时间。在“打字设置”窗口可以设置打字速度和难度，速度决定字母下落的快慢，共分高，中，低速三档。难度等级也分为三档：小写字母，大写字母，所有混合（字母，数字和符号）（2） 选择速度和难度之后，单击“开始练习”按钮后，主页面以全屏方式显示。根据难度的设置，屏幕上随即产生并落下各种字符。

3、若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”后消失，击中时在字符位置上显示一个爆炸的效果。程序根据速度和难度的不同自动进行计分，分数实时地显示在主界面的顶部。计分标准为：1， 慢速+小写字母：打中一个1分2， 慢速+大写字母：打中一个2分3， 慢速+混合字符：打中一个3分4， 中速+小写字母：打中一个4分5， 中速+大写字母：打中一个5分6， 中速+混合字符：打中一个6分7， 高速+小写字母：打中一个7分8， 高速+大写字母：打中一个8分9， 高速+混合字符：打中一个9分 （3） 打字前可以选择打字的时间，时间一到弹出消息框显示用户本次练习得分，并提示是否继续练习，如果选

4、“否”，返回“打字设置”窗口。用户的成绩被保存在“SCORE.TXT”文件中，供以后查询。（4） 当下落字符中有相同字符时，一次只能打掉一个（5） 在打字过程中，可以按ESC键中止游戏，返回打字设置窗口。但游戏的成绩并不保存。（6） 打字过程中如果按F1功能键，弹出键盘布局窗口供用户参考，显示该窗口时主窗口的字符暂停下落，关闭此窗口游戏继续进行。（7） 在“打字设置”窗口中，点击“查看成绩”按钮，显示当前用户的历次练习的成绩和时间。（8） 要求程序运行时将各个字符均匀地分布占满屏幕宽度。4 程序关键代码 frmSet界面代码 Option Explicit 强制变量声明Private Sub

5、Form_Load() Label2.Caption = Now()End SubPrivate Sub cmdPlay_Click() If txtName.Text = Then MsgBox 您还没有输入姓名。, 32, 打字设置 txtName.SetFocus Exit Sub End If If Text1.Text = Then MsgBox 您还没有输入时间。, 32, 打字设置 Text1.SetFocus Exit Sub End If games.Show games.deadtime = Val(Text1.Text) * 60 Me.Hide End SubPriva

6、te Sub cmdScore_Click() Dim pd1 As PersonData Dim pd2 As PersonData Dim str As String Dim strFind As Boolean pd1.name = txtName.Text If Dir(App.Path & Score.txt) = Then 测试一个指定的路径下是否有指定的文件或文件夹 MsgBox 文件不存在！, 48, 成绩查看 Exit Sub Else Open App.Path & Score.txt For Input As #1 If txtName.Text = Then 读取成绩

7、Do While Not EOF(1) Input #1, pd2.name, pd2.score, pd2.time 读入值赋给相应的变量 strFind = True Grade.Text1.Text = Grade.Text1.Text & pd2.name & Space(2) & pd2.score & 分 & Space(2) & pd2.time & Chr(13) & Chr(10) Loop Else Do While Not EOF(1) Input #1, pd2.name, pd2.score, pd2.time If pd2.name = pd1.name Then

8、strFind = True Grade.Text1.Text = Grade.Text1.Text & pd2.name & Space(2) & pd2.score & 分 & Space(2) & pd2.time & Chr(13) & Chr(10) End If Loop End If Close #1 If strFind = True Then Grade.Show Me.Hide Else MsgBox 没有您的成绩记录！, 48, 成绩查看 End If End IfEnd SubPrivate Sub cmdExit_Click() Unload MeEnd SubPri

9、vate Sub Form_Unload(Cancel As Integer) Unload gamesEnd SubPrivate Sub Frame2_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 Sub Form_KeyDown(KeyCode As Integer, Shift As Int

10、eger) If KeyCode = vbKeyF1 Then Timer1.Enabled = False frmKB.Show 1 Timer1.Enabled = True End If End SubPrivate Sub Form_Load() Dim i As Integer For i = 1 To 9 Load lblLetter(i) Next For i = 0 To 9 lblLetter(i).Left = Screen.Width / 11 * (i + 1) lblLetter(i).Top = 0 lblLetter(i).Visible = True Next

11、StartEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Dim i As Integer For i = 0 To lblLetter.Count - 1 If Chr(KeyAscii) = lblLetter.Item(i).Caption Then 有匹配字符 ScoreCount imgExplode.Left = lblLetter.Item(i).Left imgExplode.Top = lblLetter.Item(i).Top imgExplode.Visible = True Timer2.Enabled = T

12、rue lblLetter.Item(i).Top = 0 Letter (i) Label2.Caption = frmSet.txtName.Text & ， 你现在的得分是： & TotalScore & 分 Exit Sub End If Next If KeyAscii = 27 Then If MsgBox(真的要结束练习吗?, vbYesNo + vbQuestion, 打字练习) = vbYes Then Unload Me frmSet.Visible = True End If End If TotalScore = TotalScore - 1 Label2.Captio

13、n = frmSet.txtName.Text & ， 你现在的得分是： & TotalScore & 分 End SubPrivate Sub Image1_Click()End SubPrivate Sub Timer1_Timer() Dim i As Integer For i = 0 To lblLetter.Count - 1 Randomize Speed (i) Next Label2.Caption = frmSet.txtName.Text & ， 你现在的得分是： & TotalScore & 分 End SubPrivate Sub Timer2_Timer() Dim

14、 i As Integer For i = 0 To lblLetter.Count - 1 If lblLetter.Item(i).Top Me.Height Then Letter (i) End If Next imgExplode.Visible = False Timer2.Enabled = FalseEnd SubPrivate Sub Timer3_Timer() Dim person As PersonData second = second + 1 lblTime = second 60 & : & second Mod 60 If second = deadtime T

15、hen person.name = frmSet.txtName.Text person.score = TotalScore person.time = frmSet.Label2.Caption Open App.Path & Score.txt For Append As #1 Write #1, person.name, person.score, person.time Close 1 If MsgBox(frmSet.txtName.Text & , 本次练习您的得分是 & TotalScore & 分。 & Chr(13) & Chr(10) & 游戏结束，继续吗？, vbYes

16、No + vbQuestion, 打字练习) = vbYes Then TotalScore = 0 second = 0 Label2.Caption = frmSet.txtName.Text & ， 你现在的得分是： & TotalScore & 分 Start Else Unload Me frmSet.Visible = True End If End IfEnd SubGrade界面代码 Private Sub Command1_Click() frmSet.Show Unload MeEnd Sub模块代码 Type PersonData name As String score

17、 As String time As StringEnd TypePublic TotalScore As Integer 游戏总得分Public Sub ScoreCount() 计算总分数 If frmSet.LSpeed.Value And frmSet.Lowercase.Value Then TotalScore = TotalScore + 1 ElseIf frmSet.LSpeed.Value And frmSet.Uppercase.Value Then TotalScore = TotalScore + 2 ElseIf frmSet.LSpeed.Value And fr

18、mSet.Mixcase.Value Then TotalScore = TotalScore + 3 ElseIf frmSet.MSpeed.Value And frmSet.Lowercase.Value Then TotalScore = TotalScore + 4 ElseIf frmSet.MSpeed.Value And frmSet.Uppercase.Value Then TotalScore = TotalScore + 5 ElseIf frmSet.MSpeed.Value And frmSet.Mixcase.Value Then TotalScore = Tota

19、lScore + 6 ElseIf frmSet.HSpeed.Value And frmSet.Lowercase.Value Then TotalScore = TotalScore + 7 ElseIf frmSet.HSpeed.Value And frmSet.Uppercase.Value Then TotalScore = TotalScore + 8 ElseIf frmSet.HSpeed.Value And frmSet.Mixcase.Value Then TotalScore = TotalScore + 9 End IfEnd SubPublic Sub Letter

20、(n As Integer) 根据选择产生英文字母 If frmSet.Lowercase.Value Then j = Int(Rnd * 26 + 97) 产生小写字母 ElseIf frmSet.Uppercase.Value Then If n Mod 2 = 0 Then 产生大小写混合字母 j = Int(Rnd * 26 + 65) Else j = Int(Rnd * 26 + 97) End If ElseIf frmSet.Mixcase.Value Then j = Int(Rnd * 79 + 48) 产生混合字母 End If games.lblLetter.Item

21、(n).Caption = Chr(j) games.lblLetter.Item(n).ForeColor = RGB(Rnd * 254, Rnd * 254, Rnd * 254)End SubPublic Sub Speed(n As Integer) 根据选择产生不同的速度 If frmSet.LSpeed.Value Then games.lblLetter.Item(n).Top = games.lblLetter.Item(n).Top + 50 ElseIf frmSet.MSpeed.Value Then games.lblLetter.Item(n).Top = game

22、s.lblLetter.Item(n).Top + 90 ElseIf frmSet.HSpeed.Value Then games.lblLetter.Item(n).Top = games.lblLetter.Item(n).Top + 130 End If If games.lblLetter.Item(n).Top games.Height Then games.lblLetter.Item(n).Top = 0 TotalScore = TotalScore - 10 Letter (n) End IfEnd SubPublic Sub Start() With games 调用会反

23、复出现的对象名 .Label2.Caption = frmSet.txtName.Text & , 您现在的得分是： & TotalScore & 分 .imgExplode.Visible = False Dim i As Integer For i = 0 To .lblLetter.Count - 1 .lblLetter.Item(i).Top = 1000 Next For i = 0 To .lblLetter.Count - 1 Randomize 为随机数生成器生成一个随机数省略EXPN1则用系统时钟返回值作为“种子”值 Letter (i) Next End WithEnd

24、Sub5课程设计中的一些问题以及解决的方法（1） 在编frmSet中的程序时，为了让没输入名字和时间都要提示玩家输入，我为两个都编写了语句，但却发现，当两者都没输入的时候，它是先后跳出两个对话框来提示，这显然是没有必要的。所以，一直在那想该怎么达到好的效果，后来才想到应该在对名字文本框确认后如不符合就应强制退出，这样就不会重复。（2） 最令我头疼的还是那个更上一层楼的要求。怎么样才能使在游戏过程中碰到相同并符合的字符时，最先击打最靠近底部的字符呢？我已开始的时候就是把从左往右十列建立一个变量数组，用for next语句来依次实行，这样就程序在每一回查找相同字符时都是呆板地从左往右扫描一遍，一旦

25、找到合适字符就引发击中事件，并返回最左端重新开始扫描。但是怎么样才能达到更上一层楼的效果呢？我想了很多方法，并查找了相关的资料，并觉得这种方法可行，那就是先把所有的相同的符合的字符先全都找出来，并继续在这些满足条件的字符中再挑选出top值最大的一个字符，即是最靠近屏幕底端的字符，再击中就可以了。（3） 还一个 问题就是设计在同意屏幕中弄出不同的速度，这一点我就没有做到，深表遗憾。6对游戏改进的建议以及一些控件的其它设置方法（1） 觉得游戏的查成绩部分有值得完善的地方，成绩被保存在指定的文件中，但是如果玩的次数多了会有一大堆成绩保存在里面显得很乱而且不便于成绩查询。因此我建议在成绩查询界面加一个

26、清除成绩的控件，点击控件已有的成绩被清除。（2）我觉得控制下落速度除了可以加控件的TOP值之外，还可以在TOP值一定的情况下用TIMER的INTERVAL属性，不同的下落速度使用不同的属性值。如低速300，中速200，高速100也可实现此功能。（3）在记分时，难度不同得分不同，在此程序中我用最笨的方法就是把所有情况的用文字列出来，其实用它们的INDEX属性值更简单。如低速1，中速2，高速3，小写字母4，大小写字母7，所有字符10，设置一个变量INTNUM=SPEED.INDEX+CASE.INDEXSELECT CASE INTNUMCASE 5 TOTALSCORE=TOTALSCORE+1

27、CASE 8 TOTALSCORE=TOTALSCORE+2（4） 能中要求按下F1键弹出键盘布局来供参考，除了用IMAGE控件外还可以用PICTUREBOX控件。然后用它的CLICK事件，点击键盘后键盘布局画面自动隐藏。7设计感想虽然在自己的不懈努力以及老师和同学的帮助下我终于完成了此程序的设计，但是通过此次设计我发现了一些自己以前不知道的错误认识和不足，并且把它们改正。因此对VB水平的提高以及以后计算机的学习有很大的帮助。同时也使我认识到自己的水平确实和有些同学有很大的差距，感觉自己上学期的VB学得确实不怎么样，还有很多地方要提高。所以以后要更加努力的学习VB为即将到来的计算机等级考试做好

28、充分的准备。还有，我亲身体验感觉到在整个编程的所有步骤中，最难的不是编写程序而是调试程序。编写程序前要经过缜密的思考理请思路然后就可以到计算机上编写，但是在编写过程中难免会有些编写错误。因此最后还要对程序进行调试和修改，这也是让我最头疼的地方。有些小的错误能发现错误的所在还好，可能修改调试修改一下就好了；还有些小的错误可能导致在调试时程序不能运行，可是你就是找不到到底哪里错了，实在找不到就只能问同学老师了。不过也有些大的错误就更难修改了。我在编的过程中就遇到了几次这种情况，反复的修改然而调试还是不行，有时一调就是一个多小时调的头都大了。所以我感觉在编程过程中，除了要有扎实的基本知识和活跃的思维，更要有足够的耐心和毅力，只有二者都做到了才能最终完成程序设计。-