VB程序英文打字训练设计报告-课程设计.doc

VB程序英文打字训练设计报告-课程设计VB程序英文打字训练设计报告本英文打字训练程序，当运行时，不同的英文字符会随机的分布，随机的出现在窗口的顶端，由时钟控件控制英文字母的下落，下落过程中敲击键盘上的按键，限时一分钟。当一分钟时间过后，会弹出一个提示对话框，显示：“哈哈，一分钟这么快就结束了，是否继续？”通过这个程序，可以提高我们的打字速度，提高我们的工作效率。科技的快速发展使得互联网飞速发展，我们生活中由一个很大的变化驾驶越来越多地使用无纸化，我们用电脑写字实际上时靠打字来完成的。写一手漂亮的字似乎不想以前那么重要，打字的速度成了影响我们生活的很重要的一部分。在工作中打字快，我们的工作效率会大大提高。我们的生活中几乎处处都离不开打字，谁打字快，谁就会从中受益多。我还要进一步提高我的打字速度，争取在更少的时间内更快的完成我想表露的想法。通过这个小小的程序无形中练习了我们的打字速度。能让我们在以后的工作和学习中受益匪浅。还可以节省时间，用来做更多实现自我价值的有意义的事，三、设计思路通过这一学期对VB课程的了解和学习，利用VB的集成开发环境提供的基本控件和常用事件，设计一个能提高打字速度、节约时间的程序，对于我来说是非常有用的，同时也是对我这学期学习效果的一个检验。四、详细设计：Dim score As Integer 存放得分 Dim flag As Boolean 判断是否需要生成新的字符 Private Sub Cmd1_Click() If Cmd1.Caption = 开始 Then 开始打字 Tmr1.Enabled = True Tmr2.Enabled = True Cmd1.Caption = 暂停 Else 暂停打字 Cmd1.Caption = 开始 Tmr1.Enabled = False Tmr2.Enabled = False End If End Sub Private Sub Cmd1_KeyPress(KeyAscii As Integer) If Chr(KeyAscii) = Lbl4.Caption Then 判断所按键是否与产生的字符相符 score = score + 10 每正确一个加10分 flag = False Call Tmr1_Timer 重新生成字符 Lbl1.Caption = 得分: & Str(score) & 分 End If End Sub Private Sub Cmd2_Click() Unload Me End Sub Lbl4.Caption = Private Sub Tmr1_Timer() 随机生成字符并控制字符下落 If flag = False Then Lbl4.Caption = Chr(Int(Rnd * 26) + 97) 随机字符 Lbl4.Left = Int(Rnd * Shp3.Width) + Shp3.Left 字符出现的位置 Lbl4.Top = 200 flag = True Else Lbl4.Top = Lbl4.Top + 200 If Lbl4.Top Shp3.Height - 200 Then flag = False End If End If End Sub Private Sub Tmr2_Timer() 倒计时,用尽1分钟则结束 Static i As Integer i = i + 1 Lbl2.Caption = 倒计时: & Str(60 - i) & 秒 If i = 60 Then If MsgBox(哈哈,一分钟练习这么快就结束了,是否继续?, vbYesNo + vbQuestion, 提示) = vbYes Then i = 0 score = 0 Else score = 0 Tmr1.Enabled = False Tmr2.Enabled = False End If End If End Sub五、效果：在运行过程中，界面如下图所示：点击开始按钮，界面如下图所示：当一分钟时间到时，弹出如下图所示的提示对话框： 六、心得体会完成这次VB程序设计的作业，我花了好多时间，也花了不少金钱。我每天一有时间就去电子阅览室编程序，但不是每一次付出多有回报，我一次又一次的编完长长的代码，程序一次又一次的无动于衷。我真有种说不出的感受。VB咋就这么难呢？但由于电子阅览室的机子有限，时间紧，任务重。只得去机房完成这次作业。终于，通过我的不懈努力，功夫不负有心人，达到了我想要的效果，自我感觉还比较满意。心中有重如释重负的感觉。通过完成这次作业，我从中学到好