面向对象思想在VB游戏开发中的运用(3)

'在coords.cls类模块中定义的两个变量

'定义了一个对象用来保存地雷的x , y轴坐标

Public mintX As Integer

Public mintY As Integer
　　另一个类是用来控制扫雷游戏的winmine类，其中定义了主要的属性，方法，代码如下：

'定义鼠标左键,同VB中的定义常数vbKeyLButton ,值都为1

Private Const LEFT_BUTTON As Byte = 1

'标记一个方格是否为空的标志

Private Const NONE As Byte = 0

'标记一个方格是否为一个带雷的方格

Private Const MINE As Byte = 243

'标记一个方格是否被点开

Private Const BEEN As Byte = 244

'标记一个方格是否已经被标记为一个带雷的方格

Private Const FLAGGED As Byte = 2

'标记一个方格是否被标记为一个问号,即一个存有疑问,不能确定的方格

Private Const QUESTION As Byte = 1

'定义扫雷游戏中最大和最小的地雷地图的行数和列数及其地雷个数

Private Const MIN_MINES As Byte = 10

'最小的地雷数

Private Const MIN_ROWS As Integer = 8

Private Const MIN_COLS As Integer = 8

'最小的地图行数列数

Private Const MAX_MINES As Byte = 99

'最大的地雷数

Private Const MAX_ROWS As Integer = 24

Private Const MAX_COLS As Integer = 36

'最大的地图行数列数
'设定每个方格的宽度为16个象素

Private Const mintButtonWidth As Byte = 16

'设定每个方格的宽度为16个像素

Private Const mintButtonHeight As Byte = 16

'记录玩家设定的当前游戏的水平中所包含的地雷的个数

Private mbytNumMines As Byte

'记录在当前游戏中,被玩家正确标志出来的地雷的个数

Private mbytCorrectHits As Byte

'记录在当前游戏中,被玩家标志出来的地雷的个数,包括被错误标记的

Private mbytTotalHits As Byte
'记录在当前游戏中,游戏被设定的行数和列数

Private mintRows As Integer

Private mintCols As Integer
' 记录在游戏中由玩家点击鼠标的位置,而确定的点击的方块的行数和列数

Private mintRow As Integer

Private mintCol As Integer

'是否开始一盘新游戏的标志

Public mblnNewGame As Boolean

'在正在进行的游戏中，鼠标点击事件的标志

Private mblnHitTestBegun As Boolean

'定义游戏显示的主窗体

Private mfrmDisplay As Form

'　定义一个动态的二维数组，用来保存包含地雷的方格的位置，以及那一个位置的周围有没有地雷，有多少地雷，以及那些方格被打开

Private mbytMineStatus() As Byte

'其中定义一个动态的二维数组,用来保存被标记过的方格的位置,不管这个标记是否标记正确

Private mbytMarked() As Byte
'定义一个动态的二维数组，用来保存在分布的地雷区域所有分布的地雷总数的ｘ，ｙ中的坐标位置

Private mbytMineLocations() As Byte
'　定义一个集合，用来存放clsCoords类对象的ｘ　，ｙ轴坐标位置，他们指示着游戏中被标记错误的方格的位置

Private mcolWrongLocations As New Collection
　　有了这些类的定义，那么在游戏的流程中我们只要用类就可以对游戏进行操作了，可以想象到剩下的工作就比较简单了，这也就是VC中MFC使用广泛的缘故。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有