记忆力测试 课程设计报告.doc

Visual Basic课 程 设 计 报 告所属课程名称：Visual Basic程序设计课程设计题目：记忆力测试 课程设计难度：2星课程设计时间：2012.2.27 3.23学 号：姓 名：0 南京理工大学机械工程学院二一二年三月一、 程序功能（1）启动程序时显示图1所示的启动界面。单击“开始”按钮，如图2所示，程序一次弹出3个随机生成的大写字母。半秒钟后，字母消失，一个竖线光标提示用户重新输入刚才的字母（图3）图1 启动界面 图2 显示字母 图3 输入字母（2）用户输入3个字母后，程序判断输入的字母是否和随机产生的完全相同。如果相同，程序再随机生成4个字母让用户记忆输入；如果不相同，以图4所示的方式将生成的字母与输入的字母进行对比，用户可以发现自己那个字母输入不正确。（3）在图4所示状态下，用户可以选择“重复本步”让程序再生成相同个数的字母重试；如果选择“从头开始”则从3个字母重新开始。图4 输入错误时的显示内容（4）要求字母以突出的立体效果显示，像是写在有厚度的木板上。（5）用户输入字母时，无论其键盘是否处于大写锁定状态，都以大写形式显示。在用户没有输入完当前要求的字母个数前，可以通过“退格键”逐个删除以输入的字母。（6）窗口上命令按钮的标题文字和有效状态应根据程序的状态不断变化。在用户输入字母时，只有“退出键”可用；当输入错误时，“开始按钮变为重复本步”按钮。在不同阶段，提示文字的内容页不同。知识点：控件数组；Timer定时器控件；Line直线、Shape形状、Label标签控件的使用；键盘事件处理；随机值生成。二、 课程设计的详细设计显示字母时使用随机函数产生字母。定义一个静态变量来控制直线光标的显现与消失。键盘的KeyPress事件是整个程序的主要时事件。使用静态变量来储存游戏进行的关数。用两个数组分别储存程序显示的字母和用户输入的字母，并进行比较。用一个数组来储存成绩，当查看排名时使用比较排序法选出前三名，显示并保存到文件中。三、 程序调试过程【问题1】：可以输入字母的个数超过所要求的（如第一关可以输入8个字母）【解决办法】：If k z Then Exit Do【问题2】：字母无法显示0.5秒【解决办法】：使用一个静态变量x，当x=1时显示字母，当x=2时字母消失。其中x变为2时，该过程是第二次执行，时间间隔为0.5秒（由计时器的Interval属性决定）。四、 更上一层楼新功能：当输入字母错误时，程序会使用红色将其突出显示；增加了成绩的储存及显示成绩排行榜的功能。改进：每通一关就有提醒，完成整个游戏后也有提醒；退出游戏时后会提醒用户是否保存成绩。五、 课程设计总结要灵活使用静态变量和控件数组。适当地使用过程能使程序代码简洁。这次的课程设计让我掌握了键盘的KeyPress事件，明白静态变量的使用一定要注意判断是否需要归零或继续使用，以及计时器控件的使用一定要注意判断和使用Enable属性。在判断两个或多个变量的关系时一定要注意边界值。六、 源程序代码Dim zimushow(0 To 7) As String, zimukey(0 To 7) As StringDim k As Integer, z As IntegerDim order(1 To 4) As Stringzimushow() 用于储存显示了0.5秒的字母，zimukey() 用于储存键入的字母k 主要用在键盘事件中，相当于Index，还在cmdrestart和cmdstart过程中调用z 用于记录游戏进行的关卡数(=z+1)order() 用于成绩保存中=Private Sub cmdstart_Click() Dim index As Integer If cmdstart.Caption = 开始 Then 开始游戏 For index = 0 To 2 lbzimu(index).Visible = True Shapeheng(index).Visible = True Shapeshu(index).Visible = True Next Timershow.Enabled = True cmdstart.Enabled = False cmdrestart.Enabled = False cmdpaiming.Enabled = False z = 2 记录游戏进行到几关 Label2.Caption = 记住下列每个字母 ElseIf cmdstart.Caption = 重复本步 Then 重复本关游戏 For index = 0 To z lbchacuo(index).Caption = ShPheng(index).Visible = False Shpshu(index).Visible = False Next cmdstart.Enabled = False cmdrestart.Enabled = False cmdpaiming.Enabled = FalseLabel3.Caption = k = 0 Call changcolor Timershow.Enabled = True End IfEnd Sub=Private Sub cmdrestart_Click() 重新开始 Dim index As Integer, i As Integer If cmdstart.Caption 重复本步 Then 说明游戏还没开始,点击无效 Exit Sub End If Call saving cmdstart.Caption = 开始 Label3.Caption = k = 0 For index = 0 To z lbzimu(index).Caption = lbchacuo(index).Caption = ShPheng(index).Visible = False Shpshu(index).Visible = False Next For i = 3 To z Shapeheng(i).Visible = False Shapeshu(i).Visible = False Next z = 2 cmdstart.Enabled = False cmdrestart.Enabled = False cmdpaiming.Enabled = False Call changcolor Timershow.Enabled = TrueEnd Sub=Private Sub cmdpaiming_Click() Dim i As Integer Form1.Hide: Form2.Show order(4) = z + 1 Call MingCi Form2.Label1.Caption = 1 & Space(8) & order(1) & Chr(13) & Chr(10) & _ 2 & Space(8) & order(2) & Chr(13) & Chr(10) & _ 3 & Space(8) & order(3) & Chr(13) & Chr(10) Open App.Path & save.txt For Output As #2 将保存成绩 For i = 1 To 3 Print #2, order(i) Next CloseEnd Sub=Private Sub cmdexit_Click() 退出程序 Call saving EndEnd Sub=Private Sub Form_KeyPress(KeyAscii As Integer) Dim i As Integer, p As Integer If (KeyAscii = 65 And KeyAscii = 97 And KeyAscii = 122) Or KeyAscii = 8 Then Else 只有字母和退格键能用 KeyAscii = 0 Exit Sub End If If zimushow(0) = Then 游戏未开始时不能输入字母 KeyAscii = 0 Exit Sub End If If Timershow.Enabled = True Then 显示字母期间不能输入！ KeyAscii = 0 Exit Sub End If Do If KeyAscii = 8 Then 退格键 If k z Then 不能超出本关的输入个数（如第一关只能输3个字母） Exit Do End If lbzimu(k).Caption = UCase(Chr(KeyAscii) zimukey(k) = UCase(Chr(KeyAscii) If k 8 Then Exit Sub If k = z + 1 Then 式子成立代表字母输入完成，开始对比答案 Timerline.Enabled = False Line2.Visible = False For i = 0 To z If Chr(zimushow(i) = zimukey(i) Then p = p + 1 Else lbchacuo(i).ForeColor = vbRed 错误字母变成红色 End If Next If i = p Then 输入的字母完全正确 k = 0 k为静态变量,完成一关之后应归0 If z = 7 Then MsgBox 恭喜，您已通过全部关卡！, 64, 完成 Exit Sub Else MsgBox 恭喜您通过本关，现在进入下一关, 64, 恭喜 z = z + 1 End If Shapeheng(z).Visible = True Shapeshu(z).Visible = True Call changcolor 把颜色变回原来的颜色 Timershow.Enabled = True Else 输入错误时显示正确字母 For k = 0 To z lbchacuo(k).Caption = Chr(zimushow(k) ShPheng(k).Visible = True Shpshu(k).Visible = True Next Label2.Caption = 输入错误，多数人能记忆七个字母，回车进行当前步测试 Label3.Caption = 正确的字母序列应为： cmdstart.Caption = 重复本步 cmdstart.Enabled = True cmdrestart.Enabled = True cmdpaiming.Enabled = True cmdstart.SetFocus Call lines(0) End If End If Exit Sub LoopEnd Sub=Private Sub Form_Load() Dim index As Integer Timershow.Enabled = False Timerline.Enabled = False For index = 0 To 7 lbzimu(index).Font.Size = 37 调节字体 lbchacuo(index).Font.Size = 37 Shapeheng(index).Visible = False Shapeshu(index).Visible = False ShPheng(index).Visible = False Shpshu(index).Visible = False Next For index = 0 To 2 lbzimu(index).Visible = False NextEnd Sub=Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Or UnloadMode = 1 Then Call saving End If Cancel = 0End Sub=Private Sub Timerline_Timer() 使直线变成光标 Static g As Integer g = g + 1 If g Mod 2 0 Then 单数时直线显现 Line2.Visible = True Else Line2.Visible = False 双数时直线消失 End IfEnd Sub=Private Sub Timershow_Timer() Dim index As Integer: Static x As Integer Timerline.Enabled = False Line2.Visible = False x = x + 1 If x = 2 Then 两次Timer事件的间隔为0.5s，此时字母消失 For index = 0 To z lbzimu(index).Caption = x = 0 Next Label2.Caption = 凭记忆，依次输入刚才显示的字母 index = 0 Call lines(index) Timerline.Enabled = True Line2.Visible = True Timershow.Enabled = False Exit Sub End If Randomize For index = 0 To z 随机显示字母 zimushow(index) = Int(65 + Rnd * 26) lbzimu(index).Caption = Chr(zimushow(index) NextEnd Sub=Private Sub saving() Dim s As Byte s = MsgBox(是否察看并保存成绩？, 33, 请问) If s = 1 Then Call cmdpaiming_ClickEnd Sub=P