VB.NET实现五子棋的人工智能(2)

Dim g As System.Drawing.Graphics

g = PictureBox1.CreateGraphics

mycolor = Color.White

Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

@#绘制玩家的棋子

table(zhx, zhy) = 2

For i = 0 To 191

If cwin(zhx, zhy, i) = True Then

cflag(i) = False

End If

Next

@#重设电脑的获胜标志

checkwin()

@#检查当前玩家是否获胜

diannao()

@#调用电脑算法

End Sub

五、获胜检查算法。

@#*****************************************************************************

@#** 模块名称: checkwin

@#**

@#** 描述: 此模块执行以下功能:

@#** 1. 检查是否和棋。

@#** 2. 检查电脑是否获胜。

@#** 3. 检查玩家是否获胜。

@#**

@#*****************************************************************************

Sub checkwin()

Dim i, j, k, m, n As Integer