visual basic从初学到精通_电子教案.pptxVIP

第28章 经典游戏－俄罗斯方块游戏 “俄罗斯方块”是一个家喻户晓的经典游戏。由于对显示分辨率的要求不高，又充满了趣味性，曾经在掌上游戏机上风靡一时。如今在PC机普及的时代，其吸引力仍然不减当年。本章利用Visual Basic的多媒体功能实现了其背景图片的设置和背景音乐的播放，利用随机函数和一个4×4的网状小块来构造俄罗斯方块的形状。并利用输入设备（键盘）来捕获用户的操作使程序做出相应的反应。 28.1 游戏效果 从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，在设计中在一个图片框中构造了一个4×4的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此总共设计了7种造型，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个预览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是由时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if语句对分数判断，达到一定的积分就可以升级到下一个级别。 28.2 程序界面设计 该游戏一共有两个窗体，一个为启动窗体（frmLoad），一个为主界面窗体（frmMain）。 28.2.1 启动窗体设计 程序启动时，会同时加载背景音乐，并显示游戏操作提示。在启动窗体上添加10个Label控件和一个Timer控件。Label控件主要用于显示游戏规则和游戏操作说明，Timer控件则用于控制背景音乐的偱环播放。添加相关控件，并设置其属性后启动窗体界面。 28.2.2 主界面窗体设计 在启动窗体上单击鼠标左键后，启动窗体将被隐藏，而主界面窗体显示出来。在主界面窗体上，包括有以下几种控件。 PictureBox控件： Label控件： CommandButton控件： Timer控件： 28.2.2 主界面窗体设计 28.3 代码编写 游戏界面设计完成后，就是代码的编写了。整个游戏包括两个窗体，其中的主窗体的代码最复杂。下面将把各个窗体分开来详细描述其代码的编写。 28.3.1 启动窗体实现 在启动窗体显示的同时要播放背景音乐，mciSendString是用来播放多媒体文件的API指令，可以播放MPEG,AVI,WAV,MP3等等格式的音乐。 28.3.2 方块形状实现 在程序中利用两个数组（GameNum(3)和PreviewNum(3)）分别用来存储游戏区和预览区方块的编号，在程序中使用两个变量（GameSituation和PreviewSituation）来记录游戏区和预览区的方块样式。并利用一个变量（LineNum）来记录一次消除的行数以便于统计分数。其声明部分代码如下： Dim GameNum(3) As Integer Dim PreviewNum(3) As Integer Dim PreviewSituation As Integer Dim GameSituation As Integer Dim LineNum As Integer Dim t As Integer 28.3.3 主窗体初始化实现 在主界面窗体的Load事件中主要用于对游戏区和预览区进行方块的填充，同时加载方块形状，并在预览区显示随机的一种形状。 28.3.4 游戏控制模块实现 进行相关设置后，单击“文件”菜单下的“开始游戏”子菜单或是按Ctrl+B组合键可以开始进行游戏。在进行游戏时，将根据预览区的方块形状逐一在游戏区中显示出来，并根据游戏设置中的级别和速度来进行游戏。 28.3.5 其他功能模块实现 程序的主体部分已经基本完成了，其余的代码如下： Private Sub StopGame_Click() Timer2.Enabled = False ResumeGame.Enabled = True StopGame.Enabled = False End Sub Private Sub ResumeGame_Click() Timer2.Enabled = True ResumeGame.Enabled = False StopGame.Enabled = True End Sub Private Sub helpAbout_Click() Dim Msg As String Msg = 键盘控制方法： vbCrLf Msg = Msg 1.左右光标键控制方块左右移动。 vbCrLf Msg