.NET实现魔方游戏(一)之任意阶魔方的表示

''' <summary>
''' 表示一个指定阶的魔方
''' </summary>
Public Class CubeClass
''' <summary>
''' 魔方阶数
''' </summary>
Public CubeRank As Integer
''' <summary>
''' 魔方的六个表面
''' </summary>
Public SurfaceArray(5) As CubeSurfaceClass
End Class 

''' <summary>
''' 表示一个魔方的面
''' </summary>
Public Class CubeSurfaceClass
''' <summary>
''' 魔方表层的块数据
''' </summary>
Public BlockData(,) As CubeBlockClass
End Class

''' <summary>
''' 表示魔方面上的一个方块
''' </summary>
Public Class CubeBlockClass
''' <summary>
''' 当前块的颜色
''' </summary>
Public BlockColor As Color
Public x As Integer '所在列数
Public y As Integer '所在行数
End Class

''' <summary>
''' 当前表层的相邻表层（顶、底、左、右、前和后）
''' </summary>

Dim TempArray(,) As Integer = {{2, 3, 4, 5, 0, 1},
{3, 2, 4, 5, 1, 0},
{1, 0, 4, 5, 2, 3},
{0, 1, 4, 5, 3, 2},
{0, 1, 2, 3, 4, 5},
{0, 1, 3, 2, 5, 4}} '空间相邻关系矩阵 

''' <summary>
'''初始化各个表层间的空间相邻关系
''' </summary>

Public Sub InitSurface()
Dim TempArray(,) As Integer = {{2, 3, 4, 5, 0, 1},
{3, 2, 4, 5, 1, 0},
{1, 0, 4, 5, 2, 3},
{0, 1, 4, 5, 3, 2},
{0, 1, 2, 3, 4, 5},
{0, 1, 3, 2, 5, 4}} '空间相邻关系矩阵
For i = 0 To 5
For j = 0 To 5
SurfaceArray(i).NeibourSurface(j) = SurfaceArray(TempArray(i, j))
Next
Next
End Sub 

''' <summary>
''' 新建一个指定阶的魔方
''' </summary>
''' <param name="nRank">指定的阶数</param>
Public Sub New(ByVal nRank As Integer)
Dim ColorArr() As Color = {Color.White, Color.Yellow, Color.Orange, Color.Red, Color.Green, Color.Blue}
For i = 0 To 5
SurfaceArray(i) = New CubeSurfaceClass(nRank, i, ColorArr(i))
Next
CubeRank = nRank
InitSurface()
End Sub 

''' <summary>
''' 当前魔方的阶数
''' </summary>
Public CubeRank As Integer
''' <summary>
''' 魔方表层的数据
''' </summary>
Public BlockData(,) As CubeBlockClass
''' <summary>
''' 当前表层的相邻表层（顶、底、左、右、前和后）
''' </summary>
Public NeibourSurface(5) As CubeSurfaceClass
Public Index As Integer
Public Sub New(nRank As Integer, nIndex As Integer, nColor As Color)
ReDim BlockData(nRank - 1, nRank - 1)
CubeRank = nRank
Index = nIndex
Dim rnd As New Random
For i = 0 To nRank - 1
For j = 0 To nRank - 1
BlockData(i, j) = New CubeBlockClass(i, j)
BlockData(i, j).ParentIndex = Index
BlockData(i, j).BlockColor = nColor
Next
Next
End Sub 

Public ParentIndex As Integer
''' <summary>
''' 当前块的颜色
''' </summary>
Public BlockColor As Color
Public x As Integer '所在列数
Public y As Integer '所在行数
Public Sub New(nX As Integer, nY As Integer)
x = nX
y = nY
End Sub