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

1、第28章 经典游戏俄罗斯方块游戏“俄罗斯方块”是一个家喻户晓的经典游戏。由于对显示分辨率的要求不高，又充满了趣味性，曾经在掌上游戏机上风靡一时。如今在PC机普及的时代，其吸引力仍然不减当年。本章利用Visual Basic的多媒体功能实现了其背景图片的设置和背景音乐的播放，利用随机函数和一个44的网状小块来构造俄罗斯方块的形状。并利用输入设备（键盘）来捕获用户的操作使程序做出相应的反应。28.1 游戏效果从游戏的基本玩法出发，主要就是俄罗斯方块的形状和旋转，在设计中在一个图片框中构造了一个44的网状小块，由这些小块组合成新的形状，每四个小块连接在一起就可以构造出一种造型，因此总共设计了7种造型

2、，每种造型又可以通过旋转而变化出2到4种形状，利用随机函数在一个预览窗体中提前展示形状供用户参考，然后将展示的形状复制到游戏窗体中进行摆放，在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动，然后利用递归语句对每一行进行判断，如果有某行的方块是满的，则消除这行的方块，并且使上面的方块自由下落，其中，方块向下的速度是由时钟控件控制的，在游戏中，用户也可以使用向下键加快下落速度，定义一个变量，对消除的函数进行记录，最后就可以得出用户的分数，用if语句对分数判断，达到一定的积分就可以升级到下一个级别。28.2 程序界面设计该游戏一共有两个窗体，一个为启动窗体（frmLoad），一个为主界面窗体（

3、frmMain）。28.2.1 启动窗体设计程序启动时，会同时加载背景音乐，并显示游戏操作提示。在启动窗体上添加10个Label控件和一个Timer控件。Label控件主要用于显示游戏规则和游戏操作说明，Timer控件则用于控制背景音乐的偱环播放。添加相关控件，并设置其属性后启动窗体界面。28.2.2 主界面窗体设计在启动窗体上单击鼠标左键后，启动窗体将被隐藏，而主界面窗体显示出来。在主界面窗体上，包括有以下几种控件。PictureBox控件： Label控件： CommandButton控件： Timer控件：28.2.2 主界面窗体设计28.3 代码编写游戏界面设计完成后，就是代码的编写了

4、。整个游戏包括两个窗体，其中的主窗体的代码最复杂。下面将把各个窗体分开来详细描述其代码的编写。28.3.1 启动窗体实现在启动窗体显示的同时要播放背景音乐，mciSendString是用来播放多媒体文件的API指令，可以播放MPEG,AVI,WAV,MP3等等格式的音乐。28.3.2 方块形状实现在程序中利用两个数组（GameNum(3)和PreviewNum(3)）分别用来存储游戏区和预览区方块的编号，在程序中使用两个变量（GameSituation和PreviewSituation）来记录游戏区和预览区的方块样式。并利用一个变量（LineNum）来记录一次消除的行数以便于统计分数。其声明部

5、分代码如下：Dim GameNum(3) As IntegerDim PreviewNum(3) As IntegerDim PreviewSituation As IntegerDim GameSituation As IntegerDim LineNum As IntegerDim t As Integer28.3.3 主窗体初始化实现在主界面窗体的Load事件中主要用于对游戏区和预览区进行方块的填充，同时加载方块形状，并在预览区显示随机的一种形状。28.3.4 游戏控制模块实现进行相关设置后，单击“文件”菜单下的“开始游戏”子菜单或是按Ctrl+B组合键可以开始进行游戏。在进行游戏时，将

6、根据预览区的方块形状逐一在游戏区中显示出来，并根据游戏设置中的级别和速度来进行游戏。28.3.5 其他功能模块实现程序的主体部分已经基本完成了，其余的代码如下：Private Sub StopGame_Click() Timer2.Enabled = False ResumeGame.Enabled = True StopGame.Enabled = FalseEnd SubPrivate Sub ResumeGame_Click() Timer2.Enabled = True ResumeGame.Enabled = False StopGame.Enabled = TrueEnd SubP

7、rivate Sub helpAbout_Click() Dim Msg As String Msg = 键盘控制方法： & vbCrLf Msg = Msg & 1.左右光标键控制方块左右移动。 & vbCrLf Msg = Msg & 2.上光标键控制方块顺时针旋转90度。 & vbCrLf Msg = Msg & 3.下光标键控制方块加速向下移动。 & vbCrLf & vbCrLf MsgBox Msg, vbOKOnly + vbQuestion, Me.CaptionEnd SubPrivate Sub ExitGame_Click()Unload meEnd Sub28.4 小结本章通过对经典游戏“俄罗斯方块”的编程，使读者对VB的更深层次的编程有进一步的认识。本章主要应用了Visual Ba