''''**                 5. 初始化基本得分桌面。

    ''''**                 6. 电脑和玩家获胜标志初始化。

    ''''**                 7. 初始化所有获胜组合。

    ''''**                 8. 重新设定玩家的获胜标志。

    ''''**

    ''''*****************************************************************************

    Sub initplayenvironment()

        player.FileName = ".\music\zhyu01.mid"

        player.Play()

        theplayflag = True

        ''''游戏有效

        Label1.Visible = False

        ''''游戏状态标签不显示

        PictureBox1.Refresh()

        ''''清空picturebox1的内容

        yuandian(130, 130)

        ''''调用绘图函数绘制当前电脑先走的位置

        Dim i, j, m, n As Integer

        For i = 0 To 9

            For j = 0 To 9

                table(i, j) = 0

            Next

        Next

        ''''桌面初始化

        For i = 0 To 191

            pflag(i) = True

            cflag(i) = True

        Next

        ''''获胜标志初始化

        table(4, 4) = 1

        ''''由于我们设定电脑先手，并下了4，4位所以将其值设为1

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

        n = 0

        For i = 0 To 9

            For j = 0 To 5

                For m = 0 To 4

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

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

                Next

                n = n + 1

            Next

        Next

        For i = 0 To 9

            For j = 0 To 5

                For m = 0 To 4

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

      &nb

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