使用VB.Net GDI+编程编写的3D魔方游戏程序

最近学习了.net下的GDI+编程，下面小秀一下成果，使用GDI+编写的桌面魔方程序，今天把源代码放上，欢迎大家下载，如果机器上有.net环境的话可以直接运行bin目录下的MagicCube.exe进行游戏。 源代码下载地址 http://www.lidaren.com/code/magiccube/magiccube.zip 下面方式几个重要的算法程序 1，魔方正面九宫格90度翻转，这个只要细心观察翻转前和翻转后的魔方，你就可以得到答案 左转90度：以(0,0)(2,2)为对称轴翻转后，再以(1,0)(1,2)为对称轴翻转 右转90度：以(0,2)(2,0)为对称轴翻转后，再以(1,0)(1,2)为对称轴翻转 算法如下： '正方形数据交换 Private Sub RevertRectangleLeft(ByVal id As Integer) '要实现左转90度 '先对角线转置 Dim i, j As Integer For i = 1 To Me.DIMCOUNT - 1 For j = 0 To i - 1 '交换数据 Dim temp As Integer temp = Me.Matrix3D(id)(i)(j) Me.Matrix3D(id)(i)(j) = Me.Matrix3D(id)(j)(i) Me.Matrix3D(id)(j)(i) = temp Next Next ''后水平翻转 For i = 0 To Me.DIMCOUNT - 1 '交换数据 Dim temp As Integer temp = Me.Matrix3D(id)(0)(i) Me.Matrix3D(id)(0)(i) = Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) = temp Next End Sub '正方形数据交换 Private Sub RevertRectangleRight(ByVal id As Integer) '要实现右转90度 '先对角线转置 Dim i, j As Integer For i = 0 To Me.DIMCOUNT - 1 For j = 0 To Me.DIMCOUNT - 1 - i - 1 '交换数据 Dim temp As Integer temp = Me.Matrix3D(id)(i)(j) Me.Matrix3D(id)(i)(j) = Me.Matrix3D(id)(Me.DIMCOUNT - 1 - j)(Me.DIMCOUNT - 1 - i) Me.Matrix3D(id)(Me.DIMCOUNT - 1 - j)(Me.DIMCOUNT - 1 - i) = temp Next Next ''后水平翻转 For i = 0 To Me.DIMCOUNT - 1 '交换数据 Dim temp As Integer temp = Me.Matrix3D(id)(0)(i) Me.Matrix3D(id)(0)(i) = Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) Me.Matrix3D(id)(Me.DIMCOUNT - 1)(i) = temp Next End Sub 2,魔方正面的4个侧面的翻转，这个实现相对较难，方法也很多，CG这里使用了队列保存所有方块信息，然后再次存回数组的方式来实现，另外为了统一方向，CG使用了面相交边的参数来控制队列的进出，实现比较复杂，但是可以节省很多控件，如果大家有好的方法，欢迎分享 ''' ''' 初始化各个面对应的边 ''' ''' Private Sub InitEdge() '+/- 10 + 100 + 1000 + X 用于记录对应变的交换方式 '+/- 表示交换方式，顺序和逆序 '10 表示 x 的位置 x = 0 或 x = DIMCOUNT '100 表示 y 的位置 y = 0 或 y = DIMCOUNT '1000 表示 xy的方向 =0 y++ =1000 x++ Edge(0) = New Integer(3) {-12, 101, 1003, -1004} Edge(1) = New Integer(3) {-1002, -1005, -1003, -1000} Edge(2) = New Integer(3) {-15, 1, 0, 4} Edge(3) = New Integer(3) {-10, -11, 5, -14} Edge(4) = New Integer(3) {1102, 1100, 1103, 1105} Edge(5) = New Integer(3) {-13, -1001, 2, 1104} End Sub ''' ''' 边数据交换 ''' ''' ''' Private Sub RevertEdgeRight(ByVal id As Integer) '获取边数据 Dim edges() As Integer edges = Me.Edge(id) Dim x, y, z, d As Integer '临时队列数组 Dim queue() As Integer queue = New Integer(4 * DIMCOUNT - 1) {} Dim edge1 As Integer Dim m, i, j As Integer Dim count As Integer = 0 '存入临时数组 For m = 0 To 3 '需要交换边 edge1 = edges(m) '获取交换行号与列号 If Math.Floor(Math.Abs(edge1 / 1000)) = 1 Then z = 1 edge1 = edge1 Mod 1000 Else z = 0 End If If Math.Floor(Math.Abs(edge1 / 100)) = 1 Then y = DIMCOUNT - 1 edge1 = edge1 Mod 100 Else y = 0 End If If Math.Floor(Math.Abs(edge1 / 10)) = 1 Then x = DIMCOUNT - 1 edge1 = edge1 Mod 10 Else x = 0 End If Dim sg = Math.Sign(edge1) If sg = 0 Then sg = 1 End If '获取符号 If sg = 1 Then d = 0 Else d = 1 End If '存入临时数组 For i = 0 To DIMCOUNT - 1 If z = 0 Then queue(m * DIMCOUNT + i) = _ Me.Matrix3D(Math.Abs(edge1))(x)(d * (DIMCOUNT - 1) + sg * i) Else queue(m * DIMCOUNT + i) = _ Me.Matrix3D(Math.Abs(edge1))(d * (DIMCOUNT - 1) + sg * i)(y) End If Next Next '交换后存回 '存入临时数组 For m = 0 To 3 '需要交换边 edge1 = edges(m) '获取交换行号与列号 If Math.Floor(Math.Abs(edge1 / 1000)) = 1 Then z = 1 edge1 = edge1 Mod 1000 Else z = 0 End If If Math.Floor(Math.Abs(edge1 / 100)) = 1 Then y = DIMCOUNT - 1 edge1 = edge1 Mod 100 Else y = 0 End If If Math.Floor(Math.Abs(edge1 / 10)) = 1 Then x = DIMCOUNT - 1 edge1 = edge1 Mod 10 Else x = 0 End If '获取符号 Dim sg = Math.Sign(edge1) If sg = 0 Then sg = 1 End If '获取方向 'd = Math.Sign(edge1) == 1 ? 0 : -1 If sg = 1 Then d = 0 Else d = 1 End If '存回 For i = 0 To DIMCOUNT - 1 If z = 0 Then Me.Matrix3D(Math.Abs(edge1))(x)(d * (DIMCOUNT - 1) + sg * i) = _ queue(((1 + m) Mod 4) * DIMCOUNT + i) Else Me.Matrix3D(Math.Abs(edge1))(d * (DIMCOUNT - 1) + sg * i)(y) = _ queue(((1 + m) Mod 4) * DIMCOUNT + i) End If Next Next End Sub 3,绘制菱形,简单的点到点数组 ''' ''' 增加菱形，用于魔方侧面 ''' ''' Private Sub AddPolygons() '定义点阵数组 Dim pts() As PointF '绘制上边矩形 Dim i, j As Integer For i = 0 To DIMCOUNT - 1 For j = 0 To DIMCOUNT - 1 pts = AddPolygonPath1(New Point(POSTION.X + i * CUBEH + j * POLYH, _ POSTION.Y - j * POLYH)) '获取填充内容，并绘制 GR.FillPolygon(Me.GetColorById(2, DIMCOUNT - 1 - j, i), pts) GR.DrawPolygon(OUTLINE, pts) Next Next '绘制左边矩形 For i = 0 To DIMCOUNT - 1 For j = 0 To DIMCOUNT - 1 pts = AddPolygonPath2(New Point(POSTION.X + DIMCOUNT * CUBEH + i * POLYH, _ POSTION.Y + j * CUBEH - i * POLYH)) '获取填充内容，并绘制 GR.FillPolygon(Me.GetColorById(4, j, i), pts) GR.DrawPolygon(OUTLINE, pts) Next Next End Sub ''' ''' 绘制横向菱形，通过起点参数，获取菱形四个定点坐标 ''' ''' Private Function AddPolygonPath1(ByVal pt As Point) As PointF() Dim pts(3) As PointF pts(0) = pt pts(1) = New Point(pt.X + POLYH, pt.Y - POLYH) pts(2) = New Point(pt.X + CUBEH + POLYH, pt.Y - POLYH) pts(3) = New Point(pt.X + CUBEH, pt.Y) Return pts End Function ''' ''' 绘制在竖向菱形，通过起点参数，获取菱形四个定点坐标 ''' ''' ''' Private Function AddPolygonPath2(ByVal pt As Point) As PointF() Dim pts(3) As PointF pts(0) = pt pts(1) = New Point(pt.X + POLYH, pt.Y - POLYH) pts(2) = New Point(pt.X + POLYH, pt.Y + CUBEH - POLYH) pts(3) = New Point(pt.X, pt.Y + CUBEH) Return pts End Function 下面是演示效果 -------------------------------------------------------------------------------------- - 版权声明： - 如在本页面内无特别说明，本文内容均为[李大仁博客]原创，本文版权归[李大仁博客]所有。 - 欢迎转载，转载请务必在文章页面明显位置提供原文链接并注明出处。欢迎您在转载本文时保留本段声明。 - 文章标题： 使用VB.Net GDI+编程编写的3D魔方游戏程序 - 独立博客： 李大仁博客 - 永久链接：http://www.lidaren.com/archives/702 -------------------------------------------------------------------------------------- 以上内容由博客自动发布工具自动发布，最终显示内容和效果会与原文内容有所偏差，敬请谅解。