VB课程设计报告---打字程序设计报告.doc

VB课程设计报告---打字程序设计报告.doc打字程序设计报告
学院 机械学院 班级机设054 学号 050382 姓名 刘晓刚 成绩
一、 设计思路
要达到的目的
编写控制菜单，实现主要功能；
两个产生字母的Label放置在Frame上
在标签上随机出现字母，字母位置必须在Frame或Picture内
根据级别的不同，产生的字母类型(大写、小写、数字、上档键)也不同，下落的速度随着 级别而增加；
通过敲击键盘，将相应字母从屏幕上消失，同时在Frame或Picture上重新产生新的字母；
计算出在规定的时间内打字的正确率，并给用户提示信息
打字练****可连续进行，当没到规定时间时也可以停止练****显示的时间、分数恢复到初始状 态并给出提示信息。
练****的时间可以自由设定可以改变字体的属性
在练****开始时，可以输入用户的姓名并在窗体上显示出来
关键问题的解决
于随机字母的生成，此过程需要完成的工作有几个：字母的生成方法Labell. Caption = Chr (Int (Rnd * 26) + 48)设定Labell随机显示的字母；设定显示字母的速度speed=75,也可以 随机设定速度speed=Int (Rnd*100+100)；设定字母出现的左边位置Labell. Left = Int (Rnd * Framel. Width)；设定字母出现的顶部位置 Labell. Top = Frame 1. Top0
字母下落和记时，两个Timer控件的工作。Timerl用于控制字母的下落，采用的方法 Labell .top=Label1 .top+speedo并检查字母是否超出Frame范围，超出则重新调用生成字母的过 程。Timer2用于控制练****的时间，每秒触发一次时间减1。当时间为0时停止生成新的字母，计 算出打字的正确率，并通过Msg Box通知用户。
检验字母是否和键盘键如一样，通过KeyPress事件实现。如果正确则重新生成新的字母， 并且给记录打字正确个数的变量加1o
背景和字体的改变，使用一个通用对话框，挺容易解决。
随等级不同，下落字母增多以及下落速度加快，使用3个LABEL,定义3个过程，再改变timer控件的 interave属性，实现速度不同。
二、 模块之间的调用关系，或程序流程图
三、 部分程序关键源代码及注释
Sub Cer()
= Chr(Round(Rnd * 28) + 62) = Int(Rnd * )
=
End Sub
Private Sub VBcolor_Click()
= vbCCRGBInit
CommonDialog2. Color = BackColor
CommonDialog2. Action = 3
F2. BackColor =
= = Label5 .BackColor = End Sub
Open "ou