VB打字设计报告.docVIP

打字程序设计报告 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ①编写控制菜单，实现主要功能； ②两个产生字母的Label放置在Frame上 ③在标签上随机出现字母，字母位置必须在Frame或Picture内 ④根据级别的不同，产生的字母类型（大写、小写、数字、上档键）Int (Rnd * Frame1.Width)；设定字母出现的顶部位置Label1.Top = Frame1.Top。 ②字母下落和记时，两个Timer控件的工作。Timer1用于控制字母的下落，采用的方法Label1.top=Label1.top+speed。并检查字母是否超出Frame范围，超出则重新调用生成字母的过程。Timer2用于控制练习的时间，每秒触发一次时间减1。当时间为0时停止生成新的字母，计算出打字的正确率，并通过MsgBox通知用户。 ③检验字母是否和键盘键如一样，通过KeyPress事件实现。如果正确则重新生成新的字母，并且给记录打字正确个数的变量加1。 ④背景和字体的改变，使用一个通用对话框，挺容易解决。 ⑤随等级不同，下落字母增多以及下落速度加快，使用3个LABEL，定义3个过程，再改变timer控件的interave属性，实现速度不同。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Sub Cer() Label3.Caption = Chr(Round(Rnd * 28) + 62) 实现字母随机产生 Label3.Left = Int(Rnd * F2.Width) 下落位置随机产生 Label3.Top = F2.Top End Sub 定义过程 Private Sub VBcolor_Click() CommonDialog2.Flags = vbCCRGBInit CommonDialog2.Color = BackColor CommonDialog2.Action = 3 F2.BackColor = CommonDialog2.Color Label3.BackColor = CommonDialog2.Color Label4.BackColor = CommonDialog2.Color Label5.BackColor = CommonDialog2.Color End Sub 设置背景颜色字体同理 Open out.txt For Input As #1 Input #1, score Close #1 Cls 打开记事本，并写如记录 Print score Again: a = InputBox(请输入游戏时间) If a 10 Or Not IsNumeric(a) Then MsgBox 请重新输入10秒以上 GoTo Again 回到对话框 End If 输入时间，实现输入正确后结束 Text2.Text = a Private Sub Timer1_Timer() If Val(Text2.Text) 0 Then Label3.Top = Label3.Top + 100 要是达到要求，下落 If Label3.Top F2.Height Then Text3.Text = Val(Text3.Text) + 1 Cer 落完后，调用过程，实现字母产生，以达到徇环 End If 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 不用三个独立的label,而用控件数组，这样可以简化代码。 ② 实现排行榜功能，能每次看到最高分 ③ 建立个人档案，随时能查看个人练习资料 2. 目前存在的问题 ①由于添加了通用