If cs > ps Then

            yuandian(a * 30 + 10, b * 30 + 10)

            table(a, b) = 1

            For i = 0 To 191

                If pwin(a, b, i) = True Then

                    pflag(i) = False

                End If

            Next

        Else

            yuandian(c * 30 + 10, d * 30 + 10)

            table(c, d) = 1

            For i = 0 To 191

                If pwin(c, d, i) = True Then

                    pflag(i) = False

                End If

            Next

        End If

        '''''''''''' ********                    分值比较算法结束                        ********

        checkwin()

End Sub

七，绘制棋子

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

    ''''** 模块名称:  yuandian

    ''''**

    ''''** 描述:   此函数主要进行电脑棋子的绘制。

    ''''**

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

    Sub yuandian(ByVal x As Integer, ByVal y As Integer)

        Dim mycolor As Color

        Dim g As System.Drawing.Graphics

        g = PictureBox1.CreateGraphics

        Dim zhx, zhy As Integer

        zhx = Int((x - 10) / 30)

        zhy = Int((y - 10) / 30)

        mycolor = Color.Black

        Dim brush1 As System.Drawing.Brush = New SolidBrush(mycolor)

        g.FillEllipse(brush1, zhx * 30 + 10, zhy * 30 + 10, 30, 30)

    End Sub

完

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