1.开发一款跑得快地方棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的网页公司哪家好
2.开发一款地方棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的公司哪家好
3.vb 井字过三关
4.开发一款跑得快棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的公司哪家好
5.现今,源代码开发搭建一款棋牌类游戏大概需要多少钱?
6.系统框图如下 java实现五子棋程序 可以实现人人对战 人机对战 简单功能 悔棋 认输

开发一款跑得快地方棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的公司哪家好

       地方棋牌类游戏定制开发费用并非固定，一般报价在3万至6万的版机区间，但此价格往往无法确保游戏品质。器棋若追求更高标准，类对定制化程度增加，战源开发费用则可能攀升至十几万乃至几十万。码网个人nas源码具体费用取决于所选游戏类型，页版简单棋牌游戏在价格上相对较为亲民。象棋建议选择专业的对战棋牌游戏开发公司，以避免后期出现大量bug，机器导致解决困难及高昂的网页维护费用。据我了解，版机重庆多米猫在棋牌游戏开发方面表现出色，器棋曾与其合作数款游戏至今仍有人维护，类对游戏界面设计也相当精致。战源

开发一款地方棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的公司哪家好

       开发地方棋牌类游戏费用不固定，大致在3-6万区间。预算较低，可能无法保证游戏质量。而高级定制化开发费用可能高达十几万至几十万不等。具体成本取决于你选择的游戏类型。

       简单棋牌游戏开发相对经济，成本相应较低。如果选择复杂或特殊功能的游戏，成本自然会上升。所以，明确你想要开发的游戏类型是关键。

       建议选择专业的棋牌游戏开发公司进行合作。不专业的团队可能在后期出现大量bug，且难以解决，这将增加额外的维护成本。据我了解，重庆的多米猫公司在这方面表现不错。他们提供过几款棋牌游戏的开发服务，至今仍在持续维护，游戏界面也十分精致。

       总之，开发地方棋牌类游戏的费用需根据游戏复杂度、功能需求、合作团队的专业度等因素综合考虑。找到合适的开发公司，可以有效控制成本，确保游戏的质量和后续维护。

vb 井字过三关

       ã€è®¾è®¡æ€è·¯ã€‘

       é¦–先，我们要知道，“井字棋”游戏是一款典型的棋类游戏，游戏时一方式是电脑，另一方是玩家。所以，这类游戏在开始时有两种方式：一种是玩家先走；另一种是电脑先走。这是我们要考虑的第一个问题。

       å…¶æ¬¡ï¼Œç”±äºŽä¸ŽçŽ©å®¶å¯¹æˆ˜çš„是计算机，所以我们要编写一个过程（出棋），它可以使程序模拟人的思维与人下棋（其实就是“人工智能”的体现），这个Chuqi过程也是本游戏软件的关键。此外，我们还要编写两个过程（连线和输赢），连线过程用来时刻判断棋盘中是否有三个棋子连成一线；输赢过程用来判断如果有三个棋子连成一线，是哪一方连成一线的，即判断哪一方获胜。

       ä»¥ä¸Šå‡ ä¸ªé—®é¢˜å°±æ˜¯è¯¥â€œäº•å­—棋”游戏实现的关键思路

       å®šä¹‰æ£‹ç›˜æ ¼å­æ•°æ®ç»“æž„

       Private Type Wells

        Wells_X As Long

        Wells_Y As Long

        Wells_Value As Integer

       End Type

       å®šä¹‰æ£‹ç›˜æ ¼å­çš„实例数组

       Private usrWells(1 To 9) As Wells

       å®šä¹‰å“åº”点击操作的逻辑棋盘格子代号数组

       Private intWellsIndex(1 To 3, 1 To 3) As Integer

       å®šä¹‰çŽ©å®¶çš„玩过的盘数和积分

       Private lngPlayerTurn As Integer, lngPlayerScore As Long

       å®šä¹‰æ¸¸æˆå¼€å§‹æ ‡å¿—

       Private blnGameStart As Boolean

       å®šä¹‰çŽ©å®¶èƒœåˆ©å’Œå¤±è´¥æ ‡å¿—

       Private blnPlayerWin As Boolean, blnPlayerLost As Boolean

       å®šä¹‰æžšä¸¾å¸¸é‡æ ‡è¯†çŽ©å®¶ç±»åž‹

       Private Enum Player

        MAN = 0

        COMPUTER = 1

       End Enum

       è¯¥è¿‡ç¨‹ç”¨äºŽæ˜¾ç¤ºæ¸¸æˆä¿¡æ¯

       Private Sub Form_Load()

        Me.Show

        Me.Caption = "BS井字游戏 — (版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")"

       End Sub

       è¯¥è¿‡ç¨‹ç”¨äºŽé‡æ–°å¼€å§‹å¼€å§‹æ¸¸æˆ

       Private Sub cmdGameStart_Click()

        blnGameStart = True

        lngPlayerTurn = lngPlayerTurn + 1

        Me.picWells.Cls

        Call subGameInitialize

        Call subScreenRefresh

       End Sub

       è¯¥è¿‡ç¨‹ç”¨äºŽæ˜¾ç¤ºæ¸¸æˆè§„则

       Private Sub CmdGameRules_Click()

        Beep

        MsgBox " BS井字游戏：一个最简单的智力游戏，您将与机" & Chr() & _

        "器在9个格子大小的棋盘上一决高下。由您先开始" & Chr() & _

        "和机器轮流，每次在任意的空格上下一枚棋子。先" & Chr() & _

        "在棋盘上横向、纵向或对角线上排成三枚相同棋子" & Chr() & _

        "的一方即可获得游戏的胜利，祝您好运！！", 0 + , "游戏规则"

       End Sub

       è¯¥è¿‡ç¨‹ç”¨äºŽæ˜¾ç¤ºæ¸¸æˆå¼€å‘信息

       Private Sub cmdAbout_Click()

        Beep

        MsgBox "BS井字游戏" & "(V-" & App.Major & "." & App.Minor & "版本)" & Chr() & Chr() & _

        "" & Chr() & Chr() & _

        "由PigheadPrince设计制作" & Chr() & _

        "CopyRight(C),BestSoft.TCG", 0, "关于本游戏"

       End Sub

       è¯¥è¿‡ç¨‹ç”¨äºŽé€€å‡ºæ¸¸æˆ

       Private Sub cmdExit_Click()

        Beep

        msg = MsgBox("您要退出本游戏吗？", 4 + , "BS井字游戏")

        If msg = 6 Then End

       End Sub

       è¯¥è¿‡ç¨‹ç”¨äºŽå®žçŽ°çŽ©å®¶å‘井字棋盘中下棋子

       Private Sub picWells_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

        Dim lngGetWells_X As Long, lngGetWells_Y As Long

        Dim blnWellsNotFull As Boolean

        If Not blnGameStart Then Exit Sub

        lngGetWells_X = Int(Y / (Me.picWells.Height / 3)) + 1

        lngGetWells_Y = Int(X / (Me.picWells.Width / 3)) + 1

        If usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 0 Then

        usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 1

        Me.picWells.PaintPicture Me.imgChequer(MAN).Picture, _

        usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_X, _

        usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Y, _

        Me.picWells.Width / 3, Me.picWells.Height / 3

        If funPlayerWinIF(MAN) Then

        Beep

        MsgBox "恭喜，您胜利了！", , "BS井字游戏"

        lngPlayerScore = lngPlayerScore +

        Call subScreenRefresh

        blnGameStart = False

        Else

        blnPlayerTurn = False

        For i = 1 To 9

        If usrWells(i).Wells_Value = 0 Then blnWellsNotFull = True

        Next i

        If blnWellsNotFull Then

        Call subComputerDoing

        Else

        Beep

        MsgBox "和局！", , "BS井字游戏"

        blnGameStart = False

        End If

        End If

        End If

       End Sub

       è¯¥è‡ªå®šä¹‰å­è¿‡ç¨‹ç”¨äºŽæ¸¸æˆæ•°æ®åˆå§‹åŒ–

       Private Sub subGameInitialize()

        intWellsIndex(1, 1) = 1

        intWellsIndex(1, 2) = 2

        intWellsIndex(1, 3) = 3

        intWellsIndex(2, 1) = 4

        intWellsIndex(2, 2) = 5

        intWellsIndex(2, 3) = 6

        intWellsIndex(3, 1) = 7

        intWellsIndex(3, 2) = 8

        intWellsIndex(3, 3) = 9

        For i = 1 To 7 Step 3

        usrWells(i).Wells_X = 0

        Next i

        For i = 2 To 8 Step 3

        usrWells(i).Wells_X = Me.picWells.Width * (1 / 3)

        Next i

        For i = 3 To 9 Step 3

        usrWells(i).Wells_X = Me.picWells.Width * (2 / 3)

        Next i

        For i = 1 To 3 Step 1

        usrWells(i).Wells_Y = 0

        Next i

        For i = 4 To 6 Step 1

        usrWells(i).Wells_Y = Me.picWells.Height * (1 / 3)

        Next i

        For i = 7 To 9 Step 1

        usrWells(i).Wells_Y = Me.picWells.Height * (2 / 3)

        Next i

        For i = 1 To 9

        usrWells(i).Wells_Value = 0

        Next i

       End Sub

       è¯¥è‡ªå®šä¹‰å­è¿‡ç¨‹ç”¨äºŽæ¸¸æˆå¼€å§‹æ—¶åˆ·æ–°å±å¹•

       Private Sub subScreenRefresh()

        Me.lblPlayerTurns.Caption = lngPlayerTurn

        Me.lblPlayerScore.Caption = lngPlayerScore

        Me.picWells.Line (0, Me.picWells.Height * (1 / 3))-(Me.picWells.Width, Me.picWells.Height * (1 / 3)), vbBlack

        Me.picWells.Line (0, Me.picWells.Height * (2 / 3))-(Me.picWells.Width, Me.picWells.Height * (2 / 3)), vbBlack

        Me.picWells.Line (Me.picWells.Width * (1 / 3), 0)-(Me.picWells.Width * (1 / 3), Me.picWells.Height), vbBlack

        Me.picWells.Line (Me.picWells.Width * (2 / 3), 0)-(Me.picWells.Width * (2 / 3), Me.picWells.Height), vbBlack

       End Sub

       è¯¥è‡ªå®šä¹‰å­è¿‡ç¨‹ç”¨äºŽæ‰§è¡Œæœºå™¨çš„下子

       Private Sub subComputerDoing()

        Randomize

        Dim lngGetWells_X As Long, lngGetWells_Y As Long

        Dim intPCFirstWells As Integer

        Dim blnPCWellsExists As Boolean

        Dim intPCWells As Integer

        For i = 1 To 9 Step 1

        If usrWells(i).Wells_Value = -1 Then

        blnPCWellsExists = True

        End If

        Next i

        If Not blnPCWellsExists Then

        GoTo GetPCFirstWells:

        Else

        GoTo GetPCNextWells:

        End If

       GetPCFirstWells: 随机获得机器的第一个落子位置

        intPCFirstWells = Int((9 - 1 + 1) * Rnd + 1)

        If usrWells(intPCFirstWells).Wells_Value <> 0 Then

        GoTo GetPCFirstWells:

        Else

        intPCWells = intPCFirstWells

        End If

        GoTo GoOn:

       GetPCNextWells: 获得机器下一步的落子位置

        intPCWells = funGetPCWells

       GoOn: 绘制落子并判断胜利

        usrWells(intPCWells).Wells_Value = -1

        lngGetWells_X = usrWells(intPCWells).Wells_X

        lngGetWells_Y = usrWells(intPCWells).Wells_Y

        Me.picWells.PaintPicture Me.imgChequer(COMPUTER).Picture, lngGetWells_X, lngGetWells_Y, _

        Me.picWells.Width / 3, Me.picWells.Height / 3

        If funPlayerWinIF(COMPUTER) Then

        Beep

        MsgBox "抱歉，您失败了！", , "BS井字游戏"

        lngPlayerScore = lngPlayerScore -

        If lngPlayerScore < 0 Then lngPlayerScore = 0

        Call subScreenRefresh

        blnGameStart = False

        Else

        blnPlayerTurn = True

        End If

       End Sub

       è¯¥è‡ªå®šä¹‰å‡½æ•°ç”¨äºŽåˆ¤æ–­çŽ©å®¶æ˜¯å¦èƒœåˆ©

       Private Function funPlayerWinIF(PlayerType As Integer) As Boolean

        Dim intWinCase(1 To 8) As Integer

        intWinCase(1) = usrWells(1).Wells_Value + usrWells(2).Wells_Value + usrWells(3).Wells_Value

        intWinCase(2) = usrWells(4).Wells_Value + usrWells(5).Wells_Value + usrWells(6).Wells_Value

        intWinCase(3) = usrWells(7).Wells_Value + usrWells(8).Wells_Value + usrWells(9).Wells_Value

        intWinCase(4) = usrWells(1).Wells_Value + usrWells(4).Wells_Value + usrWells(7).Wells_Value

        intWinCase(5) = usrWells(2).Wells_Value + usrWells(5).Wells_Value + usrWells(8).Wells_Value

        intWinCase(6) = usrWells(3).Wells_Value + usrWells(6).Wells_Value + usrWells(9).Wells_Value

        intWinCase(7) = usrWells(1).Wells_Value + usrWells(5).Wells_Value + usrWells(9).Wells_Value

        intWinCase(8) = usrWells(3).Wells_Value + usrWells(5).Wells_Value + usrWells(7).Wells_Value

        Select Case PlayerType

        Case MAN

        If intWinCase(1) = 3 Or intWinCase(2) = 3 Or intWinCase(3) = 3 Or intWinCase(4) = 3 Or _

        intWinCase(5) = 3 Or intWinCase(6) = 3 Or intWinCase(7) = 3 Or intWinCase(8) = 3 Then

        blnPlayerWin = True

        blnPlayerLost = False

        funPlayerWinIF = blnPlayerWin

        End If

        Case COMPUTER

        If intWinCase(1) = -3 Or intWinCase(2) = -3 Or intWinCase(3) = -3 Or intWinCase(4) = -3 Or _

        intWinCase(5) = -3 Or intWinCase(6) = -3 Or intWinCase(7) = -3 Or intWinCase(8) = -3 Then

        blnPlayerWin = False

        blnPlayerLost = True

        funPlayerWinIF = blnPlayerLost

        End If

        End Select

       End Function

       è¯¥è‡ªå®šä¹‰å‡½æ•°ç”¨äºŽè¿”回机器的落子

       Private Function funGetPCWells() As Integer

        Dim intWells(1 To 8) As Integer, intPCRandomWells As Integer

        intWells(1) = usrWells(1).Wells_Value + usrWells(2).Wells_Value + usrWells(3).Wells_Value

        intWells(2) = usrWells(4).Wells_Value + usrWells(5).Wells_Value + usrWells(6).Wells_Value

        intWells(3) = usrWells(7).Wells_Value + usrWells(8).Wells_Value + usrWells(9).Wells_Value

        intWells(4) = usrWells(1).Wells_Value + usrWells(4).Wells_Value + usrWells(7).Wells_Value

        intWells(5) = usrWells(2).Wells_Value + usrWells(5).Wells_Value + usrWells(8).Wells_Value

        intWells(6) = usrWells(3).Wells_Value + usrWells(6).Wells_Value + usrWells(9).Wells_Value

        intWells(7) = usrWells(1).Wells_Value + usrWells(5).Wells_Value + usrWells(9).Wells_Value

        intWells(8) = usrWells(3).Wells_Value + usrWells(5).Wells_Value + usrWells(7).Wells_Value

        如果任何一线已有机器的两个子并且另外一格仍空，机器方即将成一线

        机器落子的结果等于该空格

        If intWells(1) = -2 Then

        For i = 1 To 3 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(2) = -2 Then

        For i = 4 To 6 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(3) = -2 Then

        For i = 7 To 9 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(4) = -2 Then

        For i = 1 To 7 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(5) = -2 Then

        For i = 2 To 8 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(6) = -2 Then

        For i = 3 To 9 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(7) = -2 Then

        For i = 1 To 9 Step 4

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(8) = -2 Then

        For i = 3 To 7 Step 2

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        End If

        如果任何一线已有玩家方两个子并且另外一格仍空，防止玩家方作成一线

        机器落子的结果等于该空格

        If intWells(1) = 2 Then

        For i = 1 To 3 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(2) = 2 Then

        For i = 4 To 6 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(3) = 2 Then

        For i = 7 To 9 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(4) = 2 Then

        For i = 1 To 7 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(5) = 2 Then

        For i = 2 To 8 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(6) = 2 Then

        For i = 3 To 9 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(7) = 2 Then

        For i = 1 To 9 Step 4

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(8) = 2 Then

        For i = 3 To 7 Step 2

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        End If

        如果任何一线已有机器方一个子并且另外两格仍空，作成机器方的两个子

        机器落子的结果等于该空格

        If intWells(1) = -1 Then

        For i = 1 To 3 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(2) = -1 Then

        For i = 4 To 6 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(3) = -1 Then

        For i = 7 To 9 Step 1

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(4) = -1 Then

        For i = 1 To 7 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(5) = -1 Then

        For i = 2 To 8 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(6) = -1 Then

        For i = 3 To 9 Step 3

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(7) = -1 Then

        For i = 1 To 9 Step 4

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        ElseIf intWells(8) = -1 Then

        For i = 3 To 7 Step 2

        If usrWells(i).Wells_Value = 0 Then

        funGetPCWells = i

        Exit Function

        End If

        Next i

        End If

        面临和局，随机在空白的格子内落子

       GetRandomWells:

        Randomize

        intPCRandomWells = Int((9 - 1 + 1) * Rnd + 1)

        If usrWells(intPCRandomWells).Wells_Value = 0 Then

        funGetPCWells = intPCRandomWells

        Else

        GoTo GetRandomWells:

        End If

       End Function

开发一款跑得快棋牌类游戏需要多少费用 棋牌游戏定制开发多少钱 源码搭建 地方游戏开发的公司哪家好

       地方棋牌游戏开发定制的价格因因素多样而有所不同，通常在3-6万元这个区间，但质量保障可能相对较低。若追求更高质量与定制化服务，费用可能在十几万至几十万不等。选择游戏类型也直接影响开发成本，简单类型的游戏价格通常较为亲民。

       建议选择专业的查看jre源码 1.8棋牌游戏开发公司进行合作，以避免后期出现难以解决的bug和高昂的维护费用。据我了解，重庆多米猫在棋牌游戏开发领域表现不俗，曾与他们合作过的几款游戏至今仍有人进行维护，游戏界面设计也颇为精致。

       总体而言，开发一款跑得快等棋牌类游戏的费用取决于游戏类型、开发需求、质量标准以及选择的开发公司等多个因素。在选择合作对象时，应综合考虑其专业性、性价比以及后续服务等方面，以确保项目顺利进行并取得满意的结果。

现今,源代码开发搭建一款棋牌类游戏大概需要多少钱?

       在现今，搭建一款棋牌类游戏的费用主要受到多方面因素的影响。游戏功能的设计与布局至关重要，复杂的功能开发周期通常较长，因此费用相对较高。一般而言，开发一款棋牌类游戏的总费用大致在一万至三万之间。

       首先，游戏功能的复杂度是影响费用的关键因素之一。功能越复杂，开发所需的时间就越长，相应的成本也会更高。比如，如果游戏需要包含多种不同的棋牌类型，或者加入AI对战、排行榜、积分系统等复杂功能，其开发难度和时间都会显著增加，从而推高了整体费用。

       其次，游戏的布局设计也是影响费用的重要因素。美观、吸引人的游戏界面和操作体验能够提升用户体验，从而增加游戏的吸引力和用户留存率。因此，优秀的界面设计和优化的操作流程需要投入更多的时间和资源，这也意味着开发成本的提升。

       此外，团队的专业能力、开发周期、市场需求以及市场竞争情况等也是影响费用的因素。一支经验丰富的开发团队能够更高效地完成项目，缩短开发周期，从而降低整体费用。同时，游戏市场的需求和竞争对手的策略也会影响价格定位。在竞争激烈的001溯源码燕窝市场环境下，为了在众多同类游戏中脱颖而出，开发者可能需要投入更多资源进行创新和优化，以吸引用户。

       综上所述，搭建一款棋牌类游戏的费用在一万至三万之间，具体费用会受到游戏功能复杂度、界面设计、团队专业能力、开发周期、市场需求以及市场竞争情况等因素的影响。开发者需要综合考虑这些因素，制定合理的开发计划和预算，以确保游戏能够顺利上线并取得成功。

系统框图如下 java实现五子棋程序 可以实现人人对战 人机对战 简单功能 悔棋 认输

       一、实验题目

       五子棋游戏。

       二、问题分析

       五子棋是双人博弈棋类益智游戏，由围棋演变而来，属纯策略型。棋盘通常*，即行，列，共个交叉点，即棋子落点；棋子由黑白两色组成，黑棋颗，白棋颗。游戏规则为黑先白后，谁先五子连成一条直线谁赢，其中直线可以是横的、纵的、度、度。

       本次Java编程我的目的是现实人机对战，即游戏者一方是人，另一方计算机。这就要求程序不仅要具备五子棋的基本界面，还要编程指导计算机与人进行对弈。为了使程序尽可能智能，我采用了贪心策略、传统搜索算法、极大极小博弈树算法，对应游戏玩家的3个等级：简单、中等、困难。

       三、功能设计

       我的程序基本功能是实现人机对弈五子棋。人和电脑交替下棋，谁先五子连成一条直线谁就赢。下面是我程序的功能模块：

       1.等级设置

       核心功能是实现不同策略与算法的对比运用，纯贪心策略实现简单等级对手，乾坤量能源码直接搜索算法实现中等等级对手，极大极小博弈树算法实现困难等级对手。对应程序中的3选1单选按钮。

       2.悔棋功能

       模拟栈机制实现人悔棋，不限步长的悔棋。对应程序中的悔棋按钮。

       3.棋面绘制

       根据不同机计算机的屏幕分辨率，绘制逼真的棋盘。

       4.引入

       两张古典的人物，生动模拟对弈双方。人物旁的黑白棋钵显示黑白棋归属。

       5.背景设置

       支持用户选择背景，包括棋盘、棋盘边框、窗口边框，彰显个性。

       6.音乐播放

       下棋时有棋子落地的声音，一方胜利时有五子连成一片的声音。同时在设置背景时相应的改变整个对弈过程中的背景音乐。

       7.时间显示

       在棋盘正上方有一模拟文本框显示当前棋局用时。

       8.其他小功能

       支持和棋、认输、开启新游戏、退出游戏等操作。

       四、数据结构与算法设计

       数据结构部分

       1.当前棋局的存储结构

       我的五子棋程序选择通常用到的行*列棋盘，可以开二维数组PositionFlag = new int[][]，PositionFlag[i][j]为0表示(i,j)点尚无棋，为1表示(i,j)点是人的棋子，为2表示(i,j)点是机器的棋子。之所以选择二维数组，主要原因有两点：

       1.本程序需要频繁随机访问*的交叉点，对应查询该点状态以及改变该点状态，随机访问是数组的特点。

       2.*=开二维数组的内存需求相对现在内存为2G及以上的计算机完全可以接受，且数组实现简单、操作方便。

       基于以上两点，尽管创建动态的顺序表—链表可能可以节省少量内存（可以只存当前有棋的点，原数组对应位置为0的点可以不存），但选择数组的优势完全在上述两点体现了出来。

       2.实现悔棋操作的数据结构

       由于每次悔棋只需回退当前几步，后进先出原则，这正是栈这种典型数据结构的设计思想，于是我选择栈。我自己先写了用自定义数组模拟的栈，但由于是学Java语言且由于悔棋的存储空间需要随当前步数增大而增大（由于每局最多下步，即最多要悔步，所以自己开个的数组完全可以避免存储空间自增长的问题且内存完全可以接受，之所以不用自定义数组而用ArrayList类主要是.net 高级调试 源码为了尝试Java中STL的用法），所有我最终改为用Java类库中的ArrayList类。

       确定用ArrayList类实现栈机制后就必须考虑每个ArrayList单元具体存储什么。刚开始我存储的是当前的棋局，即整个局面，而每个局面对应一个二维数组，这样是很占用内存的。试想一下，在最坏情况下，个ArrayList单元，每个单元存放一个*的二维数组，尽管**在Java的内存管理机制下不会爆栈，但也是极不划算的。之所以说不划算，是因为有更好的解决方案。由于每次悔棋只是在回退倒数一步，多步悔棋只需循环回退，所以可以只存储当前棋局最后一步的下法，对应一个二维点，完全可以自定义一个二维坐标类chessOneStep。

       算法设计部分

       Java语言是面向对象的语言。我在进行五子棋游戏编程是总共传创建了个自定义的类。在编写程序的过程中，我有一个明显的体验就是面向对象编程就是一项有关对象设计和对象接口技术，很多关键的技术就是如何设计自定义的对象。

       下面我先概括给出我的所有类的作用：

       1.mainFrame类：主框架类，我应用程序的入口；

       2.chessPositon类：主控类，这个类是我程序的核心类，负责控制双方的下棋，以及调用其他的类完成当前棋局的显示绘制；

       3.chessPanel类：面板类，调用其他底层类完成当前棋局的显示绘制；

       4.chessBoard类：棋盘绘制类，负责棋盘的绘制；

       5.chessImage类：文件类，包含各种资源（背景、背景音乐）以及静态全局变量（public static Type）；

       6.chessButton类：组件类，定义各种组件，包括按钮、单选按钮、文本框等；

       7.chessMusic类：音乐类，负责调用Java库类完成背景音乐、下棋音乐、取胜音乐等的播放；

       8.chessPiece类：棋局类，定义棋局二维数组数据结构并完成相关操作；

       9.chessList类：栈类，完成悔棋等操作；

       . chessOneStep类：棋子类，定义每步坐标以及下在该处获得的估价值；

       .myCompare类：排序类，完成chessOneStep类的自定义排序

       详细设计

       1.mainFrame类

       作为我的五子棋程序的主类，mainFrame类主要实例化相关的对象，如chessbutton,chessborad等，从而完成框架的创建。更重要的是实例化chessposition，这是本程序的核心类，控制游戏双方行棋过程完成人机互动下棋，然后将MyChessPosition与鼠标响应addMouseListener（）关联起来。

       2.chessMusic类

       一个好的游戏必须给人一种身临其境的感觉，而声音是营造这种氛围的重要因素。参照网上各游戏运行商的音乐配置，我选择相关逼真的声音。包括背景音乐、下棋棋子落到棋盘发出的声音以及一方胜出的配乐。所有这些功能的实现，依赖于自定义的chessMusic类，采用AudioInputStream配合Clip的方式完成音乐播放的软硬件工作，然后定义两个接口chessmusic(String Name)和Stop(),前者完成播放功能，后者完成关闭当前音乐功能。因为音频文件相对较大，而我的程序提供在不同背景乐之间切换的功能，所以在打开另一个音频文件之前必须关闭前一个正在播放的音频文件，防止出现溢出。

       3.chessImage类

       适当的动画或能给游戏玩家带来美的体验。所以我的五子棋程序界面在不失和谐的前提下引入了尽可能多的，包括对弈双方、棋钵等。引入的具体工作通过语句import javax.imageio.ImageIO完成。同时，由于要在用到它的类中被访问，为了避免频繁调用函数，我直接将相关联的对象定义为public static，表明是公用的、静态的。进一步引申开去，我将程序中用到的静态全局变量都定义在chessImage类中。具体如下：

       public static Date begin;//每局开始时间

       public static Date cur;//每局结束时间

       public static chessOneStep LineLeft;//结束端点1

       public static chessOneStep LineRight;//结束端点2

       public static boolean IsGameOver;//是否只有一方获胜

       public static int ColorOfBackGround[][]= { { , , },{ 0,,},{ ,,}};//背景颜色

       public static int ColorOfWindows[][]= { {  ,,},{ ,,},{ ,,}};//背景颜色

       public static int WitchMatch;//背景搭配

       public static String MusicOfBackGround;//背景音乐

       public static int CurrentStep;//记录当前步数

       public static int Rank;//设置难度等级

       public static boolean IsSurrender;//判断是否认输

       public static boolean IsTie;//判断是否认输

       public static String Message;//输出提示信息

       public static Image IconImage;// 图标

       public static Image blackBoard;//白棋盘

       public static Image whiteBoard;//黑棋盘

       public static Image blackChess;// 白棋棋子 

       public static Image whiteChess;// 白棋棋子 

       public static Image RightPlayer;//白棋棋罐 

       public static Image LeftPlayer;//白棋玩家头像 

       public static String path = "src/";// 的保存路径

       4.chessButton类

       这个是程序的组件类。定义了各种功能键，完善程序功能，营造逼真的人机对战游戏效果。分为3类：效果。。

       (1)、按钮组件

       本程序有5个按钮，支持和棋、认输、新游戏、退出、悔棋等。认输和和棋按钮终止当前的棋局，给出相应的提示信息；退出按钮调用系统System.exit(0)的函数正常返回；悔棋按钮调用后面要介绍的chessList类实现悔棋；新游戏按钮则刷新当前棋局准备下一轮，要将记录当前棋局的二维数组全部置0，刷新当前棋局开始时间等。

       (2)、单选按钮组件

       游戏界面支持设置个性化界面，包括背景颜色与背景音乐，跟重要的一点是设置难度（简单、中等、困难）。单选按钮只能多选一。背景颜色主要是存储相关颜色搭配方案的RGB颜色，开2维数组，即对应RGB3原色数组的一维数组，然后通过改变WitchMatch全局变量的值来有用户自己选择颜色搭配，不同的颜色搭配对应不同的背景音乐表达一致的主题。难度设置主要是改变计算机的下棋算法，不同难度通过Rank判断进入不同的程序分支，实现不同智能等级的计算机下棋水平。

       (3)、文本框

       在不同的单选按钮前添加相应的文本框，提示用户可以实现的功能。同时我用颜色模拟出显示当前棋局耗用时间的文本框。

       不论按钮还是单选按钮都要关联相应的消息，把相应功能的实现放在消息响应处理函数理。这些主要是实现Java库提供的消息响应接口里的方法。

       5.chessPiece类

       主要完成当前棋面的存储，存储棋面的数据结构为二维数组int[][] PositionFlag；然后定义获取、设置某点以及整个棋面的状态的方法。

       (1)、SetPositionFlag(int x, int y, int flag)//设置（x,y）处的状态为flag

       (2)、GetPositionFlag(int x, int y)//获取（x,y）处的状态

       (3)、SetAllFlag(int [][]NewFlag)//设置当前整个棋面的状态为NewFlag

       (4)、GetAllFlag()//获取当前整个棋面的状态

       (5)、DrawChessPiece(Graphics g)//绘制当前局面的棋子

       由于本类比较重要，所以附上了代码，见源代码1。

       6.chessBoard类

       功能为绘制棋盘线。由于围棋的棋盘比较复杂，横线、竖线较多，且为了使棋盘美观，还要自定义窗口边框、棋盘边框、对弈双方边框等，对线宽、线型也有一定要求。有时要单像素线条，有时要多像素线条。对于多像素线条，我主要用了2种方法。

       方法一：

       在需要绘制多像素线条处首先绘制一条单像素线，然后根据线宽要求上下平移适当像素达到绘制多像素的目的。这样的方法适合绘制水平线或竖直线，绘制其他斜率的线条容易造成走样。在没有想到比较好的反走样编程思想后我选择了调用Java库中已经封装好的函数。

       方法二：

       为了克服方法一绘制非水平或竖直线时造成的走样，同时也为了更进一步学习Java语言，我猜想肯定会有类似OpenGL中设置线宽的画刷，于是上网百度找到了相应的画刷Stroke类。通过Java库实现绘制不同线宽的直线，达到了反走样效果。

       7.chessOneStep类

       这个类是为了配合chessList类实现悔棋以及在计算机下棋算法实现返回有效状态点而设计的。主要数据成员为

       private  int  x,y,weight；//其中x,y表示点坐标，weight表示将棋下到该点获得的估价值。

       主要方法如下：

       (1)、GetX()//获得当前对象的x坐标

       (2)、GetY()//获得当前对象的y坐标

       (3)、GetWeight()//获得当前对象的(x,y)处的估价值

       8.chessList类

       程序支持悔棋功能，为了实现悔棋，自定义了chessList类。这个类主要通过引入java.util.ArrayList和java.util.List实现集合的数据类型。然后自定义一些方法，如下：

       （1）、AddStep(chessOneStep OneStep)//添加一步棋到List中

       （2）、GetSize()//获得当前List的大小

       （3）、ClearList()//清空List

       （4）、RemoveLast()//删去List中的最后元素

       由于每次删除当前List中的最后一个元素，实现后进先出，所以可以模拟栈的功能实现悔棋。

       9.myCompare类

       由于在计算机下棋的极大极小博弈树算法中需要对自定义对象chessOneStep按weight进行排序，所以引入了myCompare类，通过实现Comparator接口中的compare方法完成自定义对象排序。

       .chessPanel类

       程序的自定义面板类，主要负责完成当前框架内容的显示。这是一个重要的与框架和图形显示密切相关的类。主要数据成员为

       private chessboard MyChessBoard;//当前显示棋盘

       private chesspiece MyChessPiece;//当前显示整个棋面的状态

       主要方法如下：

       （1）、chesspanel(chessboard MyChessBoard1, chesspiece MyChessPiece1)//构造函数，分别用MyChessBoard1和MyChessPiece1初始化MyChessBoard和MyChessPiece

       （2）display(chessboard MyChessBoard1, chesspiece MyChessPiece1)//自定义显示回调函数，调用repaint()完成重新绘制游戏界面

       （3）、paintComponent(Graphics g)//核心方法，调用各种函数完成具体的绘制工作

       .chessPositon类

       程序算法核心类，总的功能是控制人和计算机轮流下棋，以及调用chessPanel类中的display(chessboard , chesspiece )方法完成界面的实时刷新。关于chessPositon类，我在此将重点介绍。chessPosition类的主要数据成员如下：

       private static chessboard MyChessBoard;//当前显示棋盘

       public static chesspiece MyChessPiece;//当前显示整个棋面的状态

       private static chesspanel Mychesspanel;////当前显示面板

       public static chesslist MyChessList=new chesslist();//当前下棋集合，用于悔棋

       final private static int INF = (1 << ); // 表示正无穷大的常量，用于极大极小博弈数搜索算法

       public static boolean CanGo;//控制当前下棋一方

       类的设计集中体现在成员方法的设计上。实现人机对战，只有语言是远远不够的，还要加入算法，用算法引导计算机下棋。下面介绍该类的方法成员： 

       （1）、chessposition(chesspanel , chessboard ,chesspiece ) //带有参数的构造函数

       （2）、chessposition()

       不带参数的构造函数

       （3）、mouseClicked(MouseEvent event)

       鼠标响应函数，负责人的下棋，根据鼠标点击的位置转换得到所在棋盘的相对位置。如果该位置不合法，即超出棋盘有效范围，点击无响应；如果该位置上已有棋，弹出消息框给出提示。这二者都要求重新给出下棋位置，即当前鼠标响应无效…直到点击到棋盘有效区域。

       （4）、IsOver(int[][] Array,int x,int y)

       判断当前int[][]Array对应的棋局是否结束，即一方五子连成一条直线。此处有两种思路，一种对当前棋面上的所有棋子都进行一次判断，具体为水平方向、竖直方向、与水平线成度方向、与水平线成度方向，只要有一个方向五子连成一条直线就说明有一方获胜，游戏结束；另一种思路为只在当前下棋的4个方向进行判断，我的程序采用的是第二种，所以IsOver方法除了int[][]Array参数外，还有x,y参数，（x,y）表示当前下棋的坐标点。

       （5）display() 

       通过调用自定义面板类的显示回调函数用于重新显示游戏界面，达到每下一步棋及时更新游戏界面的目的。

       （6）、GetValue(int flag, int num)

       估值函数，根据经验把棋局分成只有1颗棋相连，2颗棋相连且两端被封死，2颗棋相连且一端封死另一端活的，2颗棋相连且两端都是活的，同理3颗棋、4颗棋也各自可分3种情况。不同的情况对应不同的估价值。估价值的设定是决定计算机一方是否智能的一个关键因素。

       （7）、GetPredictValue(int flag, int num) 

       对未连成一片但通过再下一颗子就能连成一片的局面进行估值，这在双方下棋的有限步骤内是能产生重要影响的。如果每局棋仅考虑当前一步，是不可取的。

       （8）、Evaluate(int[][] Array, int x, int y)

       根据棋面具体情况以及预先设定的估值函数，对某个点对应的局面进行评估。由于每次双方只能下一颗棋，所以可以每次取当前局面的所有点中对应估值最大值点的估值作为整个局面的估值。

       （9）、GetGreedNext()

       计算机下棋方法1，对应难度等级为简单，采用贪心思想。每次下棋前在求得最有利点下棋，而是否最有利只是通过一步评估。算法伪码描述为：

       Max取负无穷大

       for(行i从0到)

       {

       For(列j从0到)

       {  

       If((i，j)对应的位置无棋)

       {

       a.假设放上一颗由人控制的棋，求估价值；

       b.假设放上一颗由计算机控制的棋，求估价值；

       c.取二者中较大值作为(i,j）处的估价值tmp；

       d.取tmp与Max较大值赋值给Max.

       }

       }

       }

       最终Max对应的点就是当前整个局面中最大的估值点。至于上述为什么要考虑双方都在该点下棋的情况呢？主要原因为下五子棋是个攻防兼备的过程，不仅要考虑自己对自己最有利，还要考虑对对手最不利，通俗来讲就是在自己赢的时候不能让对手先赢。

       （）、GetSearchNext(int LookLength)

       derectSearch(int [][]Array,boolean who,int deepth)

       计算机下棋方法2：直接搜索法,对应难度等级为中等。

       每步棋最多有个不同下法，若采用直接搜索法则对应的孩子节点有个（在下棋过程中会逐渐减少），即每层有最多个节点待扩展，这就决定了直接搜索进行不超过2次—主要原因有两点：

       a.采用深度优先搜索需要递归，递归中状态过多可能会爆栈，我们知道递归是用栈机制来实现的；采用宽度优先搜索又需要存储为扩展的节点，这对内存容量要求很高。

       b.不管深搜还是广搜，在时间复杂度为O(N^m)的情况下都是不能接受的。其中N为当前棋局的待扩展节点，最大;m为搜索的深度。

       综上所述，在采用直接搜索法时搜索深度不能太深，严格来说是应该控制在2层以内，在计算机运算速度在^7次每秒的情况下，理论和实验都表明超过2层就会变得很慢且这种趋势成指数级增长。

       直接搜索算法伪代码为

       GetSearch(boolean flag，int deep)

       {

       如果deep等于0，返回当前棋局估值；

       for(行i从0到)

       {

       For(列j从0到)

       {  

       If((i，j)对应的位置无棋)

       {

       如果轮到计算机下棋，置标志位为2

       GetSearch(！flag，deep-1)；

       如果轮到人下棋，置标志位为1；

       GetSearch(！flag，deep-1)；

       }

       }

       }

       }

       （）、GetMinMaxsearchNext(int LookLength)

       MinMaxsearch(int [][]Array,boolean who, int deepth)

       计算机下棋算法3：极大极小博弈树法,对应难度等级为困难。五子棋是个博弈游戏，当前在寻找对自己最有利的下棋点时要尽可能保证对对手最不利，这种思想可以用极大极小博弈树