五子棋的人工智能
———— 利用策略类AI和vb.net实现五子棋
作者:张宇
四,处理鼠标事件
''''*****************************************************************************
''''** 模块名称: 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
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
  [1] [2] [3] 下一页 没有相关教程
|