为了适应公司新战略的发展，保障停车场安保新项目的正常、顺利开展，特制定安保从业人员的业务技能及个人素质的培训计划vb课程设计报告-打字练习(共10篇)VISUALBASIC课程设计报告题目：打字练习姓名：*学号：班级：1题目介绍在计算机及其它数码产品日益普及的今天，人们使用键盘应像使用笔写字一样熟练。进行打字练习是熟悉键盘并提高打字速度的豪放法。本题目要求编制一个打字练习游戏，是用户在游戏过程中练习指法。2设计过程中用到的知识点控件数组键盘事件处理文本文件的读写多模块程序设计随机值的生成3课题要求和承担的任务游戏开始时出现“打字设置”窗口，在“您的姓名”文本框中输入用户名。若未输入名字，就点击“开始练习”与“查看成绩”按钮，则提示用户输入姓名。若未输入时间，就点击“开始练习”与“查看成绩”按钮，则提示用户输入时间。在“打字设置”窗口可以设置打字速度和难度，速度决定字母下落的快慢，共分高，中，低速三档。难度等级也分为三档：小写字母，大写字母，所有混合选择速度和难度之后，单击“开始练习”按钮后，主页面以全屏方式显示。根据难度的设置，屏幕上随即产生并落下各种字符。若用户在字符落到屏幕底部之前敲击了相应的键盘键，则该字符被“击中”后消失，击中时在字符位置上显示一个爆炸的效果。程序根据速度和难度的不同自动进行计分，分数实时地显示在主界面的顶部。计分标准为：1，2，3，4，5，6，7，慢速+小写字母：打中一个1分慢速+大写字母：打中一个2分慢速+混合字符：打中一个3分中速+小写字母：打中一个4分中速+大写字母：打中一个5分中速+混合字符：打中一个6分高速+小写字母：打中一个7分8，9，高速+大写字母：打中一个8分高速+混合字符：打中一个9分打字前可以选择打字的时间，时间一到弹出消息框显示用户本次练习得分，并提示是否继续练习，如果选“否”，返回“打字设置”窗口。用户的成绩被保存在“”文件中，供以后查询。当下落字符中有相同字符时，一次只能打掉一个在打字过程中，可以按ESC键中止游戏，返回打字设置窗口。但游戏的成绩并不保存。打字过程中如果按F1功能键，弹出键盘布局窗口供用户参考，显示该窗口时主窗口的字符暂停下落，关闭此窗口游戏继续进行。在“打字设置”窗口中，点击“查看成绩”按钮，显示当前用户的历次练习的成绩和时间。要求程序运行时将各个字符均匀地分布占满屏幕宽度。4程序关键代码frmSet界面代码OptionExplicit强制变量声明PrivateSubForm_Load()=Now()EndSubPrivateSubcmdPlay_Click()If=ThenMsgBox您还没有输入姓名。,32,打字设置ExitSubEndIfIf=ThenMsgBox您还没有输入时间。,32,打字设置ExitSubEndIf=Val()*60EndSubPrivateSubcmdScore_Click()Dimpd1AsPersonDataDimpd2AsPersonDataDimstrAsStringDimstrFindAsBoolean=IfDir(&)=Then测试一个指定的路径下是否有指定的文件或文件夹MsgBox文件不存在！,48,成绩查看ExitSubElseOpen&ForInputAs#1If=Then读取成绩DoWhileNotEOF(1)Input#1,读入值赋给相应的变量strFind=True=&Space(2)&分&Space(2)&Chr(13)&Chr(10)LoopElseDoWhileNotEOF(1)Input#1,If=ThenstrFind=True=&Space(2)&分&Space(2)&Chr(13)&Chr(10)EndIfLoopEndIfClose#1IfstrFind=TrueThenElseMsgBox没有您的成绩记录！,48,成绩查看EndIfEndIfEndSubPrivateSubcmdExit_Click()UnloadMeEndSubPrivateSubForm_Unload(CancelAsInteger)UnloadgamesEndSubPrivateSubFrame2_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubLabel2_Click()EndSubGames界面代码OptionExplicitDimsecondAsIntegerPublicdeadtimeAsIntegerPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyF1Then=False1=TrueEndIfEndSubPrivateSubForm_Load()DimiAsIntegerFori=1To9LoadlblLetter(i)Next课程设计题目打字游戏一功能：本程序为无声版打字练习：有四个窗体，其中一个为开始窗体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：OptionExplicitDimstrtimeAsString得到输入时间文本框的时间PrivateSubcmdExit_Click()退出按钮UnloadfrmPlay:UnloadfrmStart:UnloadfrmScoreEndSubPrivateSubcmdScore_Click()察看成绩按钮Dimint7AsIntegerOpenForInputAs3DoWhileNotEOF(3)Input#3,str1,str2,str3str4=str1+str2+str3Ifstr1=Then如果找到则添加到列表框中str4EndIfIf=Then如果搜索内容为空则全部显示str4EndIfstr1=str2=str3=str4=LoopIf=0Then如果为空即姓名不存在则显示提示框int7=MsgBox(没有您的成绩纪录,48,成绩查看)Ifint7=1ThenUnloadfrmScoreEndIfElseEndIfClose3EndSubPrivateSubForm_Load()=Now=1optSpeed(0).Value=True:optZimu(0).Value=True=EndSubPrivateSubcmdStart_Click()开始按钮DimmAsIntegerIf=Thenm=MsgBox(请您输入您的姓名,32,错误)ExitSubEndIf=FalseEndSubPrivateSubtxtTime_Change()输入游戏时间，默认一分钟Dimint3AsSingle用来在strtime和inttime中间转换的一个变量strtime=int3=CSng(strtime)inttime=int3*60EndSubFrmplay：OptionExplicitDimintSecondAsIntegerDimintMinuteAsIntegerPrivateXAsInteger控制爆炸图画的出现和消失PrivateintendAsInteger控制游戏的结束PrivateSubForm_Deactivate()Ifintend=inttimeThenintend=0:=False如果是时间到了以后退出，则往文本文件里面写文件OpenForAppendAs1Write#1,CStr(t),Close1EndIfEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Dimint4AsIntegerIfKeyCode=27Then用户按了ESCint4=MsgBox(真的要结束练习吗？,36,打字练习)Ifint4=6ThenUnloadfrmPlay:=TrueEndIfEndIfIfKeyCod