vb程序设计报告样本ck2

PAGE第10页（页码从正文开始，居中）长江大学工程技术学院（2011-2012学年第一学期）系(部)机械系专业班级材控61002班学生姓名学号/序/指导教师牧青/助教完成时间2011-9-一、功能描述一级标题黑体四号段前段后0.5行一级标题黑体四号段前段后0.5行这是一个简单的打字小游戏。适用于刚开始接触打字的初学者，我们的游戏实现的是单个的字母练习这就降低了难度，我们设有不通的速度等级，当你击中的字母达到规定值时速度就会增加。随之增加难度.但是字母的个数不会改变，还是原来的6个字母下落，同时打字窗口还设有返回上一级菜单的按钮，练习者可以随时停止游戏返回上一级。在打字的过程中如果字母没有被击中就会落下，落下一个字母剩余能量就会减一（我们舍得剩余能量为15.）当剩余能量减到小于零的时候游戏就会结束，打对一个字母旁边的分数栏就会曾加1，我们设定的时间是2分钟，当你进入游戏的同时倒计时也就开始了，如果在规定的2分钟结束时你的剩余能量大于零，你就胜利了。同时会弹出一个窗体显示你的速度等级和得分。胜利后你也可以选择再来一次。重新开始。二、概要设计可参考教材第二点1.邵杰.VisualBasic程序设计（第4版），东南大学出版社.20002.邵杰.VisualBasic实验与测试（第4版），东南大学出版社.2000可参考教材第二点1.邵杰.VisualBasic程序设计（第4版），东南大学出版社.20002.邵杰.VisualBasic实验与测试（第4版），东南大学出版社.20003.《VisualBasic6.0程序设计教程》,罗朝盛，人民邮电出版社概要设计格式编写开始界面结束游戏开始游戏速度选择输入不同的等级进入不同的难度等级进入游戏界面开始界面结束游戏开始游戏速度选择输入不同的等级进入不同的难度等级进入游戏界面得分等级时间剩余能量击中后分数增加，当到达一定的分数后等级也会改变1级2级3级减为零不为零失败成功显示等级分数再来一次，返回主页面黑体五号要有图名三、详细设计内容主要为游戏关键程序部分，程序段要有必要的文字注释内容主要为游戏关键程序部分，程序段要有必要的文字注释 1、利用一个数组控和一个随机函数来实现字母的随机赋值 Randomize/保证字母是随机抽取的Fori=0To5/利用循环给数组控件赋值Label1(i).Caption=Chr$(Rnd*26+97)TimesNewRoman小四TimesNewRoman小四Nexti2、在文本框的单击事件里用for循环实现了打中后字母的重新赋值和重新下落、以及得分的增加等功能代码如下所示Fori=0To5'IfRight(Text1.Text,1)=Label1(i).CaptionThendefen=defen+1/当打对后得分就加一Label2.Caption=defen/定义label2的值表示得分Label1(i).Caption=Chr$((Rnd*26)+97)/当打对后字母有重新更换Label1(i).Top=400/打对后字母从top为400的地方开始掉下Text1.Text=""/text进行清空EndIfNexti3、在该游戏中有速度快慢的控制。随着得分的不断增加速度的等级也会不断增加，另外也可以直接选择速度的等级直接进入不同等级的打字游戏。利用一个参数n实现IfLabel2.Caption=30Then'当打对30个字母时n=50/速度变为50向下落Label3.Caption=dengjidengji=2/等级的值变为2ElseIfLabel2.Caption=70Then/当打对70个字母n=70/速度变为70Label3.Caption=dengjidengji=3/等级的值为3ElseIfLabel2.Caption=100Then/当打对100个字母时，打字游戏的胜利Form3.Show/form3窗体显示UnloadForm2/form2窗体卸载EndIf4、用两个时钟控件实现对字母下落、剩余能量减少、和时间递减的功能。Fori=0To5'用循环使控件实现下面的功能Label1(i).Top=Label1(i).Top+n/字母往下掉的速度IfLabel1(i).Top>=Form1.HeightThen/当字母没有被打中落下Label9.Caption=Label9.Caption-1/落一个剩余能量就减一m(i)=0/定义的数组参数值为零Ifm(i)=0Then/当参数为零的时候Label1(i).Top=400/空间从400的高度开始下落Label1(i).Caption=Chr$(Rnd*26+97)/重新赋值改变字母EndIfNexti5、上面的代码是时钟控件一。实现的是前两个功能。下面的是时钟控件2实现的是时间递减的功能。代码如下：Label4.Caption=Label4.Caption-1'每秒时间就会减一IfLabel4.Caption=0Then'当时间为零的时候Form3.Show'form3显示UnloadForm2'form2窗体卸载EndIf四、效果分析以及设计方案的完善首先对完成效果进行分析，然后指出其中存在的问题，以及以后如何进行完善首先对完成效果进行分析，然后指出其中存在的问题，以及以后如何进行完善游戏的开始界面图2打字游戏开始界面游戏的运行界面，有时间、得分、剩余能量等的显示，返回按钮课返回主页面。当字母没有被击中而落下时剩余能量就会减少一。剩余能量为零时游戏就结束了图3打字游戏运行界面规定的时间不为零，但剩余能量为零了。则游戏结束图4打字游结束界面如果剩余能量不为零，但时间为零了则游戏闯关成功。显示您的等级和分数图5打字游戏得分界面在我们的游戏中有等级的难易之分。当打中的个数到达一定数量时即分数到达一定值时速度的等级就会随之增加我们也可以直接选择速度的等级进行游戏。初始的速度默认等级为1。界面如下：图6打字游戏等级界面存在的问题：当选择速度等级进入游戏时，刚开始速度不会增加。当按键后才会进入相应的速度等级。以后会改进使程序更加完善。五、心得体会要求500字以上要求500字以上这次的visualbasic课程设计。通过自己的努力完成了一个简单的打字小游戏。在设计的过程中遇到了不少问题，发现了自己的很多不足。通过不断的改进和完善程序终于有了一个简单的模型。这是学vb以来第一次做程序，虽然我的程序还有很多的缺陷和不足，但在编程中学到了不少东西，也懂得了作为一个编程人员应具备一定的素质。现在我们的专业知识还很少，以后会更加努力的学习专业课，做一个合格的编程人员。六、参考文献至少5个，格式如参考文献1至少5个，格式如参考文献11.邵杰.VisualBasic程序设计（第4版），东南大学出版社.20002.邵杰.VisualBasic实验与测试（第4版），东南大学出版社.20003.《VisualBasic6.0程序设计教程》,罗朝盛，人民邮电出版社附录另起一页，居中黑体4号另起一页，居中黑体4号程序源代码1、form1窗体。（Form1窗体是开始界面）PrivateSubCommand1_Click()Form1.Hide'form1窗体隐藏Form2.Show'form2窗体出现EndSubPrivateSubCommand2_Click()End'程序结束EndSubPrivateSubCommand3_Click()Form1.HideForm5.ShowEndSub2、form2窗体（运行的窗体）Dimi%Dimm%PrivateSubCommand1_Click()UnloadForm2'form2窗体卸载Form1.Show'form1窗体显示defen=0'得分重新从0开始EndSubPrivateSubForm_Load()Randomize'保证字母是随机抽取的Fori=0To5'利用循环给数组控件赋值Label1(i).Caption=Chr$(Rnd*26+97)NextiLabel2.Caption=0'label2的初始值Label3.Caption=1'label3的初始值Label4.Caption=120'label4的初始值Label9.Caption=15'label9的初始值n=40'n的初始值（n表示向下掉的速度）EndSubPrivateSubText1_Change()Fori=0To5'利用循环使数字空间实现下面的功能IfRight(Text1.Text,1)=Label1(i).CaptionThen'选择语句的条件是打对字母（和text右边的字母进行比较）defen=defen+1'当打对后得分就加一Label2.Caption=defen'定义label2的值表示得分Label1(i).Caption=Chr$((Rnd*26)+97)'当打对后字母有重新更换Label1(i).Top=400'打对后字母从top为400的地方开始掉下Text1.Text=""'text进行清空EndIf'选择的结束语句Nexti'向下个字母循环IfLabel2.Caption=30Then'当打对30个字母时n=50'速度变为50向下落Label3.Caption=dengji'label3表示等级dengji=2'等级的值变为2ElseIfLabel2.Caption=70Then'当打对70个字母n=70'速度变为70Label3.Caption=dengji'label3表示等级dengji=3'等级的值为3ElseIfLabel2.Caption=100Then'当打对100个字母时Form3.Show'form3窗体显示UnloadForm2'form2窗体卸载EndIfIfdengji=1Thenn=40Ifdenfji=2Thenn=50Ifdengji=3Thenn=70EndSubPrivateSubTimer1_Timer()Dimm(5)AsInteger'定义一个数组Fori=0To5'用循环使控件实现下面的功能Label1(i).Top=Label1(i).Top+n'字母往下掉的速度IfLabel1(i).Top>=Form1.HeightThen'当字母没有被打中落下Label9.Caption=Label9.Caption-1'落一个剩余能量就减一m(i)=0'定义的数组参数值为零Ifm(i)=0Then'当参数为零的时候Label1(i).Top=400'空间从400的高度开始下落Label1(i).Caption=Chr$(Rnd*26+97)'重新赋值改变字母EndIfEndIfIfLabel9.Caption<=0Then'当剩余能量为零时UnloadForm2'卸载form2Form4.Show'form4窗体显示Timer2.Enabled=False'时钟控件2不可用EndIfNextiEndSubPrivateSubTimer2