使用vb.net实现五子棋的人工智能2

                Next

                n = n + 1

            Next

        Next

        For i = 0 To 5

            For j = 0 To 5

                For m = 0 To 4

                    pwin(j + m, i + m, n) = True

                    cwin(j + m, i + m, n) = True

                Next

                n = n + 1

            Next

        Next

        For i = 0 To 5

            For j = 9 To 4 Step -1

                For m = 0 To 4

                    pwin(j - m, i + m, n) = True

                    cwin(j - m, i + m, n) = True

                Next

                n = n + 1

            Next

        Next

        '''''''''''' ********                        初始化获胜组合结束                ********

        For i = 0 To 191

            If pwin(4, 4, i) = True Then

                pflag(i) = False

            End If

        Next

        ''''由于电脑已下了4，4位所以我们需要重新设定玩家的获胜标志

    End Sub

上一页  [1] [2] [3] 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18