1、 1 课程设计题目课程设计题目 打字游戏打字游戏 一 功能功能：本程序为无声版打字练习：有四个窗体，其中一个为开始窗体 frmstart，游戏界面 frmplay，还有一个为弹出键盘的界面 frmkeyboard， 还有一个为察看成绩界面frmscore其中frmstart为启动窗体还有一个模块 用来存放全局变量和一个控制字母生成的全局过程 ziti。还有一个文本文 件用来储存玩家的信息。 二课程详细设计课程详细设计： 1）程序开始显示“打字设置”窗口，在“你的姓名”文本框中输入姓名。 若未输入姓名就单击“开始练习”或“查看成绩”按钮，则在屏幕上出 现一个消息框。在”打字屏幕上随机产生并下落各
2、种字符.若用户在字 符落到屏幕底下之前,敲击了键盘上的相应的键,则该字符被“击中”, 然后消失。程序根据速度和难度的设置自动计分,分数实时显示在窗口 的顶部。计分标准如下： 1、慢速+小写字母：打中一个 1 分 2、慢速+大写字母：打中一个 2 分 3、慢速+混合字符：打中一个 3 分 4、中速+小写字母：打中一个 4 分 5、中速+大写字母：打中一个 5 分 6、中速+混合字符：打中一个 6 分 7、高速+小写字母：打中一个 7 分 8、高速+大写字母：打中一个 8 分 9、高速+混合字符：打中一个 9 分 所有字符包括大小写字母,数字和符号字符. 2)当下落字符中有相同字符时,一次只能打掉
3、一个.如果按了屏幕上没有 的字符则扣 1 分,如果有字符落到屏幕底下则扣 10 分. 3)为了增加游戏的趣味性,可增加背景音乐和打中时的打击声.在此不 作要求。 4)时间一到则显示用户本次的得分并提示是否继续进行.打字过程中可 以按 Esc 键则中止游戏,返回打字设置窗口. 5)打字练习过程中,屏幕的顶部显示已用的时间和当前的分数,按 F1 功 能键则弹出键盘布局窗口以供用户参考. 6)单击”查看成绩”按钮,弹出“成绩”对话框,显示当前用户每次的练 习时间和成绩. 三、程序代码展示三、程序代码展示 F Frmstartrmstart： Option Explicit Dim strtime A
4、s String 得到输入时间文本框的时间得到输入时间文本框的时间 Private Sub cmdExit_Click() 退出按钮退出按钮 Unload frmPlay: Unload frmStart: Unload frmScore End Sub 2 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 如果搜索内容为空则全部显示如
