五子棋AI循序渐进【1】实现界面和位棋盘

先把这一个传上来，关于局面评价的72向量和综合比较、超出边界的alpha-beta剪裁如何说明更清楚还得再考虑一下，以免表述的不清楚。因为这两部分的代码是整个代码中最核心最重要也是最长的。仅仅是下一集更新的源码就超过600行。当然了，逻辑是非常非常清晰的，因为很多都是重复的逻辑内容——硬编码模板就这样哎。而超出边界的alpha-beta剪裁，是整个程序中最难理解的部分，说难理解不仅是因为递归，更重要的是这种剪裁的思想。剩余的各个部分都非常好理解，编码也很少了。就像将军延伸和空步剪裁也就十行八行的代码就实现了。而静态搜索只是照着alpha-beta剪裁代码稍微一改而已。好了，不多说闲话。

注：从这一篇开始都会对实现的内容首先进行解释，然后传本集的完整源码，源码都是VB2010编写的。

一、位棋盘

1、为什么用位棋盘

按照通常我们的做法，可以用数组board(224)，数据类型可以是byte,integer等，但是我们浪费很多存储空间，当然这还不是主要问题，主要问题是速度太慢。原因很简单，寻址远慢于从integer中取某一位。

2、如何实现位棋盘

我们需要一个225位的数据类型，这种长度的数据类型是没有的，所以可以用integer数组来实现。幸好，VB.NET给我们提供了bitarray类，而这个类的内部实现实际上也是用integer数组的。但是问题也随之而来：1位只能是0或者1，而我们要表示白棋、黑棋、空三种数据，怎么办？其实很好解决，可以用2字代表一个位置，或者使用2个bitarray。我的程序采取第二种办法：

    Private wBitArr As BitArray
    Private bBitArr As BitArray

3、如何操作位棋盘

直接上代码：

 

' 位棋盘
Public  Class mBitBoard
     ' 用bitarray代替byte数组，提高读写速度。（bitarray内部实现是用integer数组，每一个元素是32字节，所以寻址速度要比用byte数组快很多）
     ' 0=白方，1=黑方，2=空
     Private wBitArr  As BitArray
     Private bBitArr  As BitArray

     ' 15*15的棋盘。
     Sub  New()
        wBitArr =  New BitArray( 225)
        bBitArr =  New BitArray( 225)
     End Sub

     ' 设置棋子
     Sub [ Set](index  As  Integer, value  As  Integer)
         If value =  0  Then
            wBitArr.Set(index,  True)
         ElseIf value =  1  Then
            bBitArr.Set(index,  True)
         Else
            bBitArr.Set(index,  False)
            wBitArr.Set(index,  False)
         End  If
     End Sub

     ' 获取棋子
     Function [ Get](index  As  Integer)  As  Integer
         If wBitArr.Get(index)  Then  Return  0
         If bBitArr.Get(index)  Then  Return  1
         Return  2
     End Function

End Class

 

很清晰吧。这个类在后来进行了一些小的修改——增加了一个函数。当然这不是我们现在要讨论的问题。好了，现在已经有了棋盘的表示方法，那么我们来实现界面。其实界面简单得不能再简单了：

 

二、五子棋界面

1、搜索或者自己画棋盘和棋子

2、获取棋子偏移量、棋子大小、棋盘大小

3、根据mBitBoard实例绘制棋子

 

我实现的时候在窗体上面画了一个panel，命名为pnlBoard。而后写了这样一个函数：

    '绘制棋子
    Private Sub pnlBoard_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles pnlBoard.Paint
        e.Graphics.DrawImage(My.Resources._2064, Point.Empty)
        For i As Integer = 0 To 224
            If ucpcSquares.Get(i) = 1 Then e.Graphics.DrawImage(bb, New Point((i Mod 15) * cs.Height, (i \ 15) * cs.Height) + co)
            If ucpcSquares.Get(i) = 0 Then e.Graphics.DrawImage(bw, New Point((i Mod 15) * cs.Height, (i \ 15) * cs.Height) + co)
        Next
    End Sub

首先绘制棋盘图像，然后绘制棋子。

 

下子的代码是这样的：

 

    '下子
    Private Sub pnlBoard_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles pnlBoard.MouseDown
        Dim sdr = CType(sender, Panel)
        '鼠标坐标转棋盘坐标
        Dim p As Point = e.Location - co
        p.X \= cs.Width
        p.Y \= cs.Height
        '下一个白子
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ucpcSquares.Set(p.Y * 15 + p.X, 0)
            '更新显示
            pnlBoard_Paint(sdr, New PaintEventArgs(sdr.CreateGraphics, sdr.DisplayRectangle))
        End If
    End Sub

很简单不是吗。

 

 

完整的代码如下：

 

Public  Class Form1
     ' 黑白棋子
     Private bb  As Bitmap
     Private bw  As Bitmap
     ' 棋子偏移
     Private co  As Point =  New Point( 5,  5)
     ' 棋子大小
     Private cs  As Size =  New Size( 25,  25)
     ' 位棋盘
     Private ucpcSquares  As mBitBoard

     Private  Sub Form1_Load(sender  As System.Object, e  As System.EventArgs)  Handles  MyBase.Load
         ' 初始化棋子
         Dim resbmp  As Bitmap =  New Bitmap(My.Resources._7041, cs.Width *  4, cs.Height)
         Dim allbmp  As Bitmap =  New Bitmap(resbmp.Width \  2, resbmp.Height)
         ' 获取棋子图像
         For y  As  Integer =  0  To allbmp.Height -  1
             For x  As  Integer =  0  To allbmp.Width -  1
                 If resbmp.GetPixel(x + allbmp.Width, y).ToArgb = Color.Black.ToArgb  Then allbmp.SetPixel(x, y, resbmp.GetPixel(x, y))
             Next
         Next
        bb = allbmp.Clone( New Rectangle( 0,  0, allbmp.Width /  2, allbmp.Height), allbmp.PixelFormat)
        bw = allbmp.Clone( New Rectangle(allbmp.Width /  2,  0, allbmp.Width /  2, allbmp.Height), allbmp.PixelFormat)
         ' ==========================开局棋型可在这里设置==============================
        ucpcSquares =  New mBitBoard()
        ucpcSquares.Set( 7 *  15 +  7,  1)
     End Sub

     ' 绘制棋子
     Private  Sub pnlBoard_Paint(sender  As System.Object, e  As System.Windows.Forms.PaintEventArgs)  Handles pnlBoard.Paint
        e.Graphics.DrawImage(My.Resources._2064, Point.Empty)
         For i  As  Integer =  0  To  224
             If ucpcSquares.Get(i) =  1  Then e.Graphics.DrawImage(bb,  New Point((i  Mod  15) * cs.Height, (i \  15) * cs.Height) + co)
             If ucpcSquares.Get(i) =  0  Then e.Graphics.DrawImage(bw,  New Point((i  Mod  15) * cs.Height, (i \  15) * cs.Height) + co)
         Next
     End Sub

     ' 下子
     Private  Sub pnlBoard_MouseDown(sender  As  Object, e  As System.Windows.Forms.MouseEventArgs)  Handles pnlBoard.MouseDown
         Dim sdr =  CType(sender, Panel)
         ' 鼠标坐标转棋盘坐标
         Dim p  As Point = e.Location - co
        p.X \= cs.Width
        p.Y \= cs.Height
         ' 下一个白子
         If e.Button = Windows.Forms.MouseButtons.Left  Then
            ucpcSquares.Set(p.Y *  15 + p.X,  0)
             ' 更新显示
            pnlBoard_Paint(sdr,  New PaintEventArgs(sdr.CreateGraphics, sdr.DisplayRectangle))
         End  If
     End Sub

End Class

 

其中2064号资源是棋盘，7041是4个图组成的：黑子、白子、各自的掩码图。我没有使用掩码图，呵呵，用了一个循环。我的懒人原则是，初始化代码，能省事就省事……

 

 

完整示例代码：

/Files/zcsor/清月连珠0.1.7z

 

全部文章和源码整理完成，以后更新也会在下面地址：

http://www.vbdevelopers.org

http://www.softos.org