奥赛罗(黑白棋):基于二维数组的玩家走棋合法性校验实现
奥赛罗(黑白棋)合法走棋判断 VB.NET 实现建议
核心规则拆解
合法走棋必须同时满足两个条件:
- 落子位置为空字符串,且在棋盘边界内(以8x8棋盘为例,行/列索引0-7)
- 至少存在一个方向(上下左右、4个对角线共8个方向),满足「当前玩家棋子 → 连续对手棋子 → 当前玩家棋子」的夹吃结构,即落子后能翻转至少一颗对手棋子
具体实现步骤
- 定义方向偏移数组:用二维数组存储8个方向的行/列偏移量,避免重复写8组判断逻辑
- 边界与空位置校验:先排除落子位置越界或已被占用的情况
- 遍历所有方向检查夹吃:对每个方向逐步延伸检查,确认是否存在有效夹吃链
VB.NET 2010 代码示例
' 假设棋盘是8x8的二维字符串数组,元素为"Black"、"White"或"" Function IsMoveValid(board As String(,), row As Integer, col As Integer, currentPlayer As String) As Boolean ' 第一步:校验落子位置是否合法(在棋盘内且为空) If row < 0 Or row > 7 Or col < 0 Or col > 7 Then Return False End If If board(row, col) <> "" Then Return False End If ' 定义8个方向的偏移量:[行偏移, 列偏移] Dim directions()() As Integer = { {-1, -1}, {-1, 0}, {-1, 1}, {0, -1}, {0, 1}, {1, -1}, {1, 0}, {1, 1} } Dim opponentPlayer As String = If(currentPlayer = "Black", "White", "Black") ' 遍历每个方向检查 For Each dir In directions Dim currentRow As Integer = row + dir(0) Dim currentCol As Integer = col + dir(1) Dim hasOpponentPieces As Boolean = False ' 沿着当前方向移动,直到出界、遇到空位置或己方棋子 While currentRow >= 0 And currentRow <= 7 And currentCol >= 0 And currentCol <= 7 Dim cellValue As String = board(currentRow, currentCol) If cellValue = opponentPlayer Then ' 遇到对手棋子,标记并继续往该方向走 hasOpponentPieces = True currentRow += dir(0) currentCol += dir(1) ElseIf cellValue = currentPlayer And hasOpponentPieces Then ' 遇到己方棋子,且中间有对手棋子,说明该方向有有效夹吃 Return True Else ' 遇到空位置或出界前没遇到己方棋子,该方向无效,跳出循环 Exit While End If End While Next ' 所有方向都没有有效夹吃,走棋非法 Return False End Function
新手常见问题修正
- 避免用长串
If/ElseIf硬编码8个方向:用方向偏移数组循环处理,逻辑更清晰且不易遗漏方向 - 第一步走棋校验失败:确认初始棋盘的中心四个棋子是否正确设置((3,3)="White", (3,4)="Black", (4,3)="Black", (4,4)="White"),调用函数时传入正确的玩家颜色(比如第一步黑方走,currentPlayer传"Black")
- 多层循环混乱:拆分逻辑为「边界检查→方向遍历→单方向延伸检查」三层,每层职责明确,便于调试
内容的提问来源于stack exchange,提问作者Rum_Row
相关产品推荐
相关产品推荐

