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

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

鼠标事件

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

@#** 模块名称: themousedown

@#**

@#** 描述: 此函数主要实行以下功能：

@#** 1. 判定当前游戏标志是否有效。

@#** 2. 将实际坐标转化成虚拟坐标。

@#** 3. 绘制玩家的棋子。

@#** 4. 执行检查获胜函数。

@#** 5. 执行电脑算法函数。

@#**

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

Sub themousedown(ByVal x As Integer, ByVal y As Integer)

If theplayflag = False Then

Exit Sub

End If

@#检查游戏状态是否有效

Dim i, j As Integer

Dim zhx, zhy As Integer

zhx = Int((x - 10) / 30)

zhy = Int((y - 10) / 30)

For i = 0 To 9

For j = 0 To 9

If table(zhx, zhy) > 0 Then

Exit Sub

End If

Next

Next

@#检查当前鼠标点击的格子是否有效

Dim mycolor As Color