|
浙江林学院信息工程学院 课 程 大 作 业 报 告 http://www.paper51.com 课程名称： vb程序设计（自学） http://www.paper51.com 课程编号： 0533006 内容来自www.paper51.com 作业内容： VB制作俄罗斯方块 内容来自www.paper51.com 专 业： 计算机 paper51.com 班 级： 天计054 paper51.com 学 号： 200508142414 copyright paper51.com 姓 名： 卢游 copyright paper51.com 指导教师： 汪杭军 http://www.paper51.com 2007年 6月 17 日 copyright paper51.com 目 录 copyright paper51.com 1.课程大作业目的............................................. 1 http://www.paper51.com 1.1 课程大作业设计的目的.............................................. 1 http://www.paper51.com
1.2 VB在实际生活的应用................................................ 1 copyright paper51.com 2.课程大作业题目描述和要求................................. 1 内容来自www.paper51.com
2.1 俄罗斯方块的题目描述.............................................. 1 paper51.com 2.2 俄罗斯方块设计思想................................................ 1 http://www.paper51.com 3.课程大作业报告内容........................................ 2 http://www.paper51.com 3.1 界面设计.......................................................... 3 paper51.com 3.2 俄罗斯方块的功能实现.............................................. 3 paper51.com 4.总结.......................................................... 6 copyright paper51.com 1.课程大作业目的 paper51.com 1.2 VB课程大作业设计的目的 copyright paper51.com 本课程设计以《程序设计简明教程》课程为基础，目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。通过课程设计，学生能达到具备设计功能较为复杂的Windows应用程序的能力。同时，通过课程设计，培养学生自主学习和独立创新的精神，是人才培养体系中极为重要的一环 内容来自www.paper51.com 1.2 VB在实际生活中的应用 http://www.paper51.com Visual Basic(简称VB)程序设计语言的基本概念和语法结构以及常用控件的使用,并通过大量的例子介绍VB程序设计的方法和技巧,内容包括:VB程序设计基础、对象及VB应用程序的建立、数据的输入与输出、基本的控制结构、数组和过程的程序设计、常用控件的使用、界面设计、图形操作、文件、数据库技术等.在这些内容的讲解中,坚持语言为程序设计服务的原则,注重实用性. http://www.paper51.com 在教学的安排上,采用由浅到深、循序渐进的结构,做到通俗易懂,既有针对初学者的基本知识的介绍,也有针对已经掌握VB程序基本设计方法的学生对高层次内容的要求,将程序设计语言、可视化的面向对象编程技术、上机训练有机地融为一体.突出VB的基本语法、编程方法的训练,让学生学会分析问题并快速掌握面向对象的程序、界面设计、数据库技术的设计技巧,培养学生的动手能力和开发应用程序的能力 内容来自论文无忧网 www.paper51.com
2.课程大作业题目描述和要求 http://www.paper51.com 2.1俄罗斯方块的题目的描述 内容来自www.paper51.com 1. 运行游戏时.界面随机的产生不同形状的方块,游戏者通过自己的操作使方块进行合理的堆积.如果每层达到饱合状态的时候会自动消除.然后游戏有规则的进行加分.分数达到一定的阶段.游戏的级别也会越来越高.然后方块下降的速度也会随之慢慢加快.以迎合游戏者的挑战,达到最加有趣的游戏! copyright paper51.com 2.2俄罗斯方块的设计思想 copyright paper51.com 游戏是用来给大家娱乐的，所以要能在使用的过程中给大家带来快乐，消除大家的疲劳，所以我们在游戏中添加了漂亮的场景和动听的音乐，设置了过关升级的功能，激发大家的娱乐激情。 内容来自论文无忧网 www.paper51.com
从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，我们在设计中在一个图片框中构造了一个4*4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此我们总共设计了7中造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个欲览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是有时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if语句对分数判断，达到一定的积分就可以升级到下一个档次。 copyright paper51.com 俄罗斯方块游戏设计的主要步骤为以下几个方面： 内容来自论文无忧网 www.paper51.com （1）游戏界面的设计。 内容来自www.paper51.com
（2）俄罗斯方块的造型。 copyright paper51.com
（3）俄罗斯方块的旋转。 内容来自www.paper51.com （4）俄罗斯方块的运动情况（包括向左，向右和向下）。 paper51.com （5）俄罗斯方块的自动消行功能。 paper51.com （6）游戏级别的自由选择。 内容来自www.paper51.com （7）游戏速度的自由选择。 paper51.com （8）游戏得分的计算。 内容来自论文无忧网 www.paper51.com （9）游戏菜单选项的设计及功能实现。 内容来自www.paper51.com
3.课程大作业报告内容 paper51.com
3.1俄罗斯方块的界面设计 http://www.paper51.com 界面是以自己的照片为背景然后一个游戏方框和一个游戏辅助方框,再加上一些游戏所需的开始、暂停、退出等按钮 paper51.com 内容来自www.paper51.com 3.2俄罗斯方块的功能的实现 内容来自论文无忧网 www.paper51.com 1）Enabled = 0 'False 内容来自www.paper51.com Height = 480 copyright paper51.com
Left = 4680 内容来自www.paper51.com
MouseIcon = "方块.frx":BF74 paper51.com MousePointer = 99 'Custom 内容来自www.paper51.com Picture = "方块.frx":C3B6 paper51.com ToolTipText = "续继CTRL+J" http://www.paper51.com Top = 2475 内容来自论文无忧网 www.paper51.com
Visible = 0 'False 内容来自www.paper51.com Width = 480 内容来自www.paper51.com
End http://www.paper51.com 以上的代码来实现"继续"功能 内容来自论文无忧网 www.paper51.com 2）Begin VB.Image Image9 内容来自论文无忧网 www.paper51.com Height = 480 paper51.com
Left = 5880 内容来自www.paper51.com MouseIcon = "方块.frx":B960 内容来自论文无忧网 www.paper51.com MousePointer = 99 'Custom http://www.paper51.com Picture = "方块.frx":BC6A 内容来自论文无忧网 www.paper51.com ToolTipText = "退出CTRL+X" copyright paper51.com Top = 2475 内容来自论文无忧网 www.paper51.com Width = 480 内容来自论文无忧网 www.paper51.com 以上的程序代码实现"退出"功能 http://www.paper51.com
3）Private Sub Image3_Click() copyright paper51.com OPE_Click paper51.com End Sub 内容来自论文无忧网 www.paper51.com 以上的程序代码实现“开始”功能 内容来自论文无忧网 www.paper51.com 4）Private Sub Image8_Click() copyright paper51.com Gotog_Click paper51.com End Sub copyright paper51.com 以上的程序代码实现“暂停/继续”功能 内容来自论文无忧网 www.paper51.com
5）Private Sub Image7_Click() paper51.com ENDG_Click 内容来自论文无忧网 www.paper51.com End Sub paper51.com 以上的程序代码实现“停止”功能 paper51.com 6）Private Sub Image9_Click() 内容来自论文无忧网 www.paper51.com Exite_Click 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com 以上的程序代码实现“退出”功能 内容来自论文无忧网 www.paper51.com 7） 内容来自www.paper51.com Private Sub Image5_Click() 内容来自www.paper51.com If jB < 40 Then 内容来自www.paper51.com
jB = jB + 1 内容来自论文无忧网 www.paper51.com End If copyright paper51.com If jB > 1 Then 内容来自论文无忧网 www.paper51.com Image6.Enabled = True 内容来自论文无忧网 www.paper51.com
Image6.Visible = True 内容来自论文无忧网 www.paper51.com 减.Enabled = True 内容来自论文无忧网 www.paper51.com 减.Visible = True copyright paper51.com
Else http://www.paper51.com
Image6.Enabled = False http://www.paper51.com Image6.Visible = False paper51.com
减.Enabled = False paper51.com 减.Visible = False 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com If jB < 40 Then paper51.com
Image5.Enabled = True 内容来自www.paper51.com Image5.Visible = True 内容来自www.paper51.com 加.Enabled = True 内容来自www.paper51.com 加.Visible = True 内容来自论文无忧网 www.paper51.com Else 内容来自论文无忧网 www.paper51.com Image5.Visible = False paper51.com Image5.Enabled = False http://www.paper51.com 加.Enabled = False http://www.paper51.com 加.Visible = False copyright paper51.com
End If copyright paper51.com ENDG_Click 内容来自www.paper51.com
End Sub copyright paper51.com Private Sub Image6_Click() paper51.com If jB > 1 Then 内容来自论文无忧网 www.paper51.com
jB = jB - 1 paper51.com End If http://www.paper51.com If jB > 1 Then paper51.com Image6.Enabled = True copyright paper51.com Image6.Visible = True 内容来自论文无忧网 www.paper51.com 减.Enabled = True 内容来自www.paper51.com 减.Visible = True http://www.paper51.com Else paper51.com
Image6.Enabled = False copyright paper51.com Image6.Visible = False paper51.com 减.Enabled = False http://www.paper51.com
减.Visible = False copyright paper51.com
End If 内容来自论文无忧网 www.paper51.com If jB < 40 Then 内容来自论文无忧网 www.paper51.com Image5.Enabled = True copyright paper51.com
Image5.Visible = True paper51.com
加.Enabled = True copyright paper51.com 加.Visible = True 内容来自www.paper51.com Else paper51.com Image5.Visible = False 内容来自www.paper51.com Image5.Enabled = False 内容来自论文无忧网 www.paper51.com 加.Enabled = False 内容来自www.paper51.com
加.Visible = False 内容来自论文无忧网 www.paper51.com
End If 内容来自论文无忧网 www.paper51.com ENDG_Click 内容来自论文无忧网 www.paper51.com PrI copyright paper51.com End Sub paper51.com 以上的程序代码实现“速度级别的增加/减少”功能 copyright paper51.com |