VB俄罗斯方块系统

目          录 think58好，好think58

[资料来源：THINK58.com]

1.课程大作业目的 1
1.1 课程大作业设计的目的 1
1.2 VB在实际生活的应用 1

本文来自think58 [来源：http://www.think58.com]

2.课程大作业题目描述和要求 1
2.1 俄罗斯方块的题目描述 1
2.2 俄罗斯方块设计思想 1 think58 [来源：http://think58.com]

3.课程大作业报告内容 2
3.1 界面设计 3
3.2 俄罗斯方块的功能实现 3

think58

[版权所有：http://think58.com]

[资料来源：http://THINK58.com]

4.总结 6

[资料来源：THINK58.com]

1.课程大作业目的
1.2 VB课程大作业设计的目的
本课程设计以《程序设计简明教程》课程为基础，目的是进一步培养学生综合应用VB的各种编程知识和技巧进行程序设计的能力。通过课程设计，学生能达到具备设计功能较为复杂的Windows应用程序的能力。同时，通过课程设计，培养学生自主学习和独立创新的精神，是人才培养体系中极为重要的一环
1.2 VB在实际生活中的应用
Visual Basic(简称VB)程序设计语言的基本概念和语法结构以及常用控件的使用,并通过大量的例子介绍VB程序设计的方法和技巧,内容包括:VB程序设计基础、对象及VB应用程序的建立、数据的输入与输出、基本的控制结构、数组和过程的程序设计、常用控件的使用、界面设计、图形操作、文件、数据库技术等.在这些内容的讲解中,坚持语言为程序设计服务的原则,注重实用性.
    在教学的安排上,采用由浅到深、循序渐进的结构,做到通俗易懂,既有针对初学者的基本知识的介绍,也有针对已经掌握VB程序基本设计方法的学生对高层次内容的要求,将程序设计语言、可视化的面向对象编程技术、上机训练有机地融为一体.突出VB的基本语法、编程方法的训练,让学生学会分析问题并快速掌握面向对象的程序、界面设计、数据库技术的设计技巧,培养学生的动手能力和开发应用程序的能力

本文来自think58 [来源：http://www.think58.com]

[来源：http://www.think58.com]

2.课程大作业题目描述和要求
2.1俄罗斯方块的题目的描述 内容来自think58 [资料来源：www.THINK58.com]

1. 运行游戏时.界面随机的产生不同形状的方块,游戏者通过自己的操作使方块进行合理的堆积.如果每层达到饱合状态的时候会自动消除.然后游戏有规则的进行加分.分数达到一定的阶段.游戏的级别也会越来越高.然后方块下降的速度也会随之慢慢加快.以迎合游戏者的挑战,达到最加有趣的游戏! 内容来自think58 [版权所有：http://think58.com]

 2.2俄罗斯方块的设计思想 本文来自think58 [资料来源：http://think58.com]

游戏是用来给大家娱乐的，所以要能在使用的过程中给大家带来快乐，消除大家的疲劳，所以我们在游戏中添加了漂亮的场景和动听的音乐，设置了过关升级的功能，激发大家的娱乐激情。
从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，我们在设计中在一个图片框中构造了一个4*4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此我们总共设计了7中造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个欲览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是有时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if 语句对分数判断，达到一定的积分就可以升级到下一个档次。
俄罗斯方块游戏设计的主要步骤为以下几个方面：
（1）游戏界面的设计。
（2）俄罗斯方块的造型。
（3）俄罗斯方块的旋转。
（4）俄罗斯方块的运动情况（包括向左，向右和向下）。

think58好，好think58 [版权所有：http://think58.com]

（5）俄罗斯方块的自动消行功能。
（6）游戏级别的自由选择。
（7）游戏速度的自由选择。
（8）游戏得分的计算。
（9）游戏菜单选项的设计及功能实现。 think58.com

3.课程大作业报告内容 本文来自think58 [来源：http://www.think58.com]

3.1俄罗斯方块的界面设计
界面是以自己的照片为背景然后一个游戏方框和一个游戏辅助方框,再加上一些游戏所需的开始、暂停、退出等按钮
  think58.com [版权所有：http://think58.com]

3.2俄罗斯方块的功能的实现
1）Enabled         =   0   'False
      Height          =   480
      Left            =   4680
      MouseIcon       =   "方块.frx":BF74
      MousePointer    =   99  'Custom
      Picture         =   "方块.frx":C3B6
      ToolTipText     =   "续继CTRL+J"
      Top             =   2475
      Visible         =   0   'False 内容来自think58 [来源：http://think58.com]
      Width           =   480
   End
以上的代码来实现"继续"功能
2）Begin VB.Image Image9
      Height          =   480
      Left            =   5880
      MouseIcon       =   "方块.frx":B960
      MousePointer    =   99  'Custom
      Picture         =   "方块.frx":BC6A
      ToolTipText     =   "退出CTRL+X"
      Top             =   2475
      Width           =   480 think58 [版权所有：http://think58.com]
以上的程序代码实现"退出"功能
3）Private Sub Image3_Click()
OPE_Click think58好，好think58

[资料来源：THINK58.com]

End Sub
以上的程序代码实现“开始”功能
4）Private Sub Image8_Click()
Gotog_Click
End Sub
以上的程序代码实现“暂停/继续”功能
5）Private Sub Image7_Click()
ENDG_Click
End Sub
以上的程序代码实现“停止”功能
6）Private Sub Image9_Click()
Exite_Click
End Sub
以上的程序代码实现“退出”功能
7）
Private Sub Image5_Click()
If jB < 40 Then
jB = jB + 1
End If
If jB > 1 Then
Image6.Enabled = True
Image6.Visible = True
减.Enabled = True
减.Visible = True
Else
Image6.Enabled = False
Image6.Visible = False
减.Enabled = False
减.Visible = False
End If
If jB < 40 Then
Image5.Enabled = True
Image5.Visible = True
加.Enabled = True
加.Visible = True
Else
Image5.Visible = False
Image5.Enabled = False
加.Enabled = False
加.Visible = False
End If
ENDG_Click
End Sub 本文来自think58 [来源：http://think58.com]

Private Sub Image6_Click()
If jB > 1 Then
jB = jB - 1
End If
 If jB > 1 Then
Image6.Enabled = True
Image6.Visible = True
减.Enabled = True
减.Visible = True
Else
Image6.Enabled = False
Image6.Visible = False
减.Enabled = False
减.Visible = False
End If
If jB < 40 Then
Image5.Enabled = True
Image5.Visible = True
加.Enabled = True
加.Visible = True
Else
Image5.Visible = False
Image5.Enabled = False
加.Enabled = False
加.Visible = False
End If
ENDG_Click
PrI
End Sub
以上的程序代码实现“速度级别的增加/减少”功能
4.总结
44. 课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，单片机已经成为当今计算机应用中空前活跃的领域， 在生活中可以说得是无处不在。因此作为二十一世纪的大学来说掌握VB的开发技术是十分重要的。
回顾起此次俄罗斯方块课程设计，我感慨颇多，的确，从选题到定稿，从理论到实践，在整整两星期的日子里，可以说得是苦多于甜，但是可以学到很多很多的的东西，同时不仅可以巩固了之前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固，比如说控件的一些问题，通过这次课程设计之后，一定把以前所学过的知识重新温故。 think58 [资料来源：http://think58.com]
这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，通过老师和同学的帮住都顺利解决了。在此感谢汪老师的平日辛勤指导。同时，在汪老师的身上我学得到很多实用的知识，在次我表示感谢！同时，对给过我帮助的所有同学再次表示忠心的感谢！都是很有意义的。
参考文献：（若有，请附！）
［数字］作者1，作者2. 文献名称［J］. 期刊名，时间，卷（期）：初始页码-结束页码.
［数字］作者1，作者2. 书名［M］. 地点：出版社，出版年份，月.
［1］罗伟其，姚国祥，罗勇辉，等. 信息大系统的信息集成结构模型实习与实现[J]. 计算机工程与应用，2001，37(2)：9-11.
［2］方陆明. 森林资源信息管理网络化[M]. 北京：科学出版社，2002，12：69-82.

[资料来源：http://THINK58.com]