vb课程设计报告---打字游戏i23n0i9o.docVIP

核准通过，归档资料。 未经允许，请勿外传！ 心浪微博：朴恩俊丶熊猫 核准通过，归档资料。 未经允许，请勿外传！ 核准通过，归档资料。 未经允许，请勿外传！ 课程设计题目 打字游戏 功能：本程序为无声版打字练习：有四个窗体，其中一个为开始窗体frmstart，游戏界面frmplay，还有一个为弹出键盘的界面frmkeyboard，还有一个为察看成绩界面frmscore其中frmstart为启动窗体还有一个模块用来存放全局变量和一个控制字母生成的全局过程 ziti。还有一个文本文件用来储存玩家的信息。 二．课程详细设计： 1）程序开始显示“打字设置”窗口，在“你的姓名”文本框中输入姓名。若未输入姓名就单击“开始练习”或“查看成绩”按钮，则在屏幕上出现一个消息框。在”打字屏幕上随机产生并下落各种字符.若用户在字符落到屏幕底下之前,敲击了键盘上的相应的键,则该字符被“击中”,然后消失。程序根据速度和难度的设置自动计分,分数实时显示在窗口的顶部。计分标准如下： 1、慢速+小写字母：打中一个1分 2、慢速+大写字母：打中一个2分 3、慢速+混合字符：打中一个3分 4、中速+小写字母：打中一个4分 5、中速+大写字母：打中一个5分 6、中速+混合字符：打中一个6分 7、高速+小写字母：打中一个7分 8、高速+大写字母：打中一个8分 9、高速+混合字符：打中一个9分 所有字符包括大小写字母,数字和符号字符. 2)当下落字符中有相同字符时,一次只能打掉一个.如果按了屏幕上没有的字符则扣1分,如果有字符落到屏幕底下则扣10分. 3)为了增加游戏的趣味性,可增加背景音乐和打中时的打击声.在此不作要求。 4)时间一到则显示用户本次的得分并提示是否继续进行.打字过程中可以按Esc键则中止游戏,返回打字设置窗口. 5)打字练习过程中,屏幕的顶部显示已用的时间和当前的分数,按F1功能键则弹出键盘布局窗口以供用户参考. 6)单击”查看成绩”按钮,弹出“成绩”对话框,显示当前用户每次的练习时间和成绩. 三、程序代码展示 Frmstart： Option Explicit Dim strtime As String 得到输入时间文本框的时间 Private Sub cmdExit_Click() 退出按钮 Unload frmPlay: Unload frmStart: Unload frmScore End Sub Private Sub cmdScore_Click() 察看成绩按钮 Dim int7 As Integer Open score.txt For Input As 3 Do While Not EOF(3) Input #3, str1, str2, str3 str4 = str1 + + str2 + + str3 If str1 = frmStart.txtName.Text Then 如果找到则添加到列表框中 frmScore.lstScore.AddItem str4 End If If frmStart.txtName.Text = Then 如果搜索内容为空则全部显示 frmScore.lstScore.AddItem str4 End If str1 = str2 = str3 = str4 = Loop If frmScore.lstScore.ListCount = 0 Then 如果为空即姓名不存在则显示提示框 int7 = MsgBox(没有您的成绩纪录, 48, 成绩查看) If int7 = 1 Then Unload frmScore End If Else frmScore.Show End If Close 3 End Sub Private Sub Form_Load() frmStart.lblTime.Caption = Now txtTime.Text = 1 optSpeed(0).Value = True: optZimu(0).Value = True txtName.Text = End Sub Private Sub cmdStart_Click() 开始按钮 Dim m As Integer If frmStart.txtName.Text = Then m = MsgBox(请您输入您的姓名, 32, 错误) Exit Sub End If frmStart.Visible = False frmPlay.Show