How to create a Chess Game | Game Development in vb.net | Programming

Chess,one of the most recognized board game in the world.You probably have played it once or seen it once in your lifetime.How cool it would be if we can create our own chess game.

Here is the code,you can use to as reference for creating your own or you can just just clone it from Github and improve My version of Chess.

 Download the code :

King.vb

Public Class king
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Public flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

 Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''to show possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()
        If x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos) <= 0 And Form1.ga.check_for_white(x_pos + 1, y_pos) <> True Then
                flags(x_pos + 1, y_pos) = True
            End If
        End If
        If y_pos + 1 <= 7 And x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos + 1) <= 0 And

Form1.ga.check_for_white(x_pos + 1, y_pos + 1) <> True Then
                flags(x_pos + 1, y_pos + 1) = True
            End If
        End If

        If y_pos - 1 >= 0 And x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos - 1) <= 0 And
Form1.ga.check_for_white(x_pos + 1, y_pos - 1) <> True Then
                flags(x_pos + 1, y_pos - 1) = True
            End If
        End If
        If x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos) <= 0 And Form1.ga.check_for_white(x_pos - 1, y_pos) <> True Then
                flags(x_pos - 1, y_pos) = True
            End If
        End If
        If y_pos + 1 <= 7 And x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos + 1) <= 0 And Form1.ga.check_for_white(x_pos - 1, y_pos + 1) <> True Then
                flags(x_pos - 1, y_pos + 1) = True
            End If
        End If
        If y_pos - 1 >= 0 And x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos - 1) <= 0 And Form1.ga.check_for_white(x_pos - 1, y_pos - 1) <> True Then
                flags(x_pos - 1, y_pos - 1) = True
            End If
        End If

        If y_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos, y_pos + 1) <= 0 And Form1.ga.check_for_white(x_pos, y_pos + 1) <> True Then
                flags(x_pos, y_pos + 1) = True
            End If
        End If
        If y_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos, y_pos - 1) <= 0 And Form1.ga.check_for_white(x_pos, y_pos - 1) <> True Then
                flags(x_pos, y_pos - 1) = True
            End If
        End If
    End Sub
    Public Sub black_mov()
        If x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos) >= 0 And Form1.ga.check_for_black(x_pos + 1, y_pos) <> True Then
                flags(x_pos + 1, y_pos) = True
            End If
        End If
        If y_pos + 1 <= 7 And x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos + 1) >= 0 And Form1.ga.check_for_black(x_pos + 1, y_pos + 1) <> True Then
                flags(x_pos + 1, y_pos + 1) = True
            End If
        End If

        If y_pos - 1 >= 0 And x_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos - 1) >= 0 And Form1.ga.check_for_black(x_pos + 1, y_pos - 1) <> True Then
                flags(x_pos + 1, y_pos - 1) = True
            End If
        End If
        If x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos) >= 0 And Form1.ga.check_for_black(x_pos - 1, y_pos) <> True Then
                flags(x_pos - 1, y_pos) = True
            End If
        End If
        If y_pos + 1 <= 7 And x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos + 1) >= 0 And Form1.ga.check_for_black(x_pos - 1, y_pos + 1) <> True Then
                flags(x_pos - 1, y_pos + 1) = True
            End If
        End If
        If y_pos - 1 >= 0 And x_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos - 1) >= 0 And Form1.ga.check_for_black(x_pos - 1, y_pos - 1) <> True Then
                flags(x_pos - 1, y_pos - 1) = True
            End If
        End If
    
        If y_pos + 1 <= 7 Then
            If Chess.Form1.ga.board(x_pos, y_pos + 1) >= 0 And Form1.ga.check_for_black(x_pos, y_pos + 1) <> True Then
                flags(x_pos, y_pos + 1) = True
            End If
        End If
        If y_pos - 1 >= 0 Then
            If Chess.Form1.ga.board(x_pos, y_pos - 1) >= 0 And Form1.ga.check_for_black(x_pos, y_pos - 1) <> True Then
                flags(x_pos, y_pos - 1) = True
            End If
        End If
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
    End Sub

End Class

Queen.vb

Public Class queen
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Private flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

    Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''to show possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()
        Dim x As Integer = x_pos
        Dim y As Integer = y_pos

        ''''''''''''''''''''''''' diagnoal left bottom to top (backward) '''''''''''''''''''''''''''
        While (x < 7 And y > 0)
            x = x + 1
            y = y - 1
            If Form1.ga.board(x, y) <= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''diagnoal left bottom to top (forward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x > 0 And y < 7)
            x = x - 1
            y = y + 1
            If Form1.ga.board(x, y) <= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (backward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x < 7 And y < 7)
            x = x + 1
            y = y + 1
            If Form1.ga.board(x, y) <= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (forward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x > 0 And y > 0)
            x = x - 1
            y = y - 1
            If Form1.ga.board(x, y) <= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''''''''''''''''horizonal and vertical'''''''''''''''''''''''''''
        If x_pos > 0 Then
            For i As Integer = x_pos - 1 To 0 Step -1
                If Form1.ga.board(i, y_pos) <= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If x_pos <= 7 Then
            For i As Integer = x_pos + 1 To 7
                If Form1.ga.board(i, y_pos) <= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If

        ''''''''''''this is for column'''''''''''''''''''''''''

        If y_pos > 0 Then
            For i As Integer = y_pos - 1 To 0 Step -1
                If Form1.ga.board(x_pos, i) <= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If y_pos <= 7 Then
            For i As Integer = y_pos + 1 To 7
                If Form1.ga.board(x_pos, i) <= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If

    End Sub

    Public Sub black_mov()
        Dim x As Integer = x_pos
        Dim y As Integer = y_pos

        ''''''''''''''''''''''''' diagnoal left bottom to top (backward) '''''''''''''''''''''''''''
        While (x < 7 And y > 0)
            x = x + 1
            y = y - 1
            If Form1.ga.board(x, y) >= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''diagnoal left bottom to top (forward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x > 0 And y < 7)
            x = x - 1
            y = y + 1
            If Form1.ga.board(x, y) >= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (backward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x < 7 And y < 7)
            x = x + 1
            y = y + 1
            If Form1.ga.board(x, y) >= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (forward) '''''''''''''''''''''''''''
        x = x_pos
        y = y_pos
        While (x > 0 And y > 0)
            x = x - 1
            y = y - 1
            If Form1.ga.board(x, y) >= 0 Then
                flags(x, y) = True
                If Form1.ga.board(x, y) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''''''''''''''''horizonal and vertical'''''''''''''''''''''''''''
        If x_pos > 0 Then
            For i As Integer = x_pos - 1 To 0 Step -1
                If Form1.ga.board(i, y_pos) >= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If x_pos <= 7 Then
            For i As Integer = x_pos + 1 To 7
                If Form1.ga.board(i, y_pos) >= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If

        ''''''''''''this is for column'''''''''''''''''''''''''

        If y_pos > 0 Then
            For i As Integer = y_pos - 1 To 0 Step -1
                If Form1.ga.board(x_pos, i) >= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If y_pos <= 7 Then
            For i As Integer = y_pos + 1 To 7
                If Form1.ga.board(x_pos, i) >= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

    Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
    End Sub
End Class

Bishop.vb

Public Class bishop
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Private flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

    Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''To Return possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()         ''Possible moves for white
        Dim i As Integer = x_pos
        Dim j As Integer = y_pos

        ''''''''''''''''''''''''' diagnoal left bottom to top (backward) '''''''''''''''''''''''''''
        While (i < 7 And j > 0)
            i = i + 1
            j = j - 1
            If Form1.ga.board(i, j) <= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''diagnoal left bottom to top (forward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i > 0 And j < 7)
            i = i - 1
            j = j + 1
            If Form1.ga.board(i, j) <= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (backward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i < 7 And j < 7)
            i = i + 1
            j = j + 1
            If Form1.ga.board(i, j) <= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (forward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i > 0 And j > 0)
            i = i - 1
            j = j - 1
            If Form1.ga.board(i, j) <= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) < 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

    End Sub

    Public Sub black_mov()
        Dim i As Integer = x_pos
        Dim j As Integer = y_pos

        ''''''''''''''''''''''''' diagnoal left bottom to top (backward) '''''''''''''''''''''''''''
        While (i < 7 And j > 0)
            i = i + 1
            j = j - 1
            If Form1.ga.board(i, j) >= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While

        '''''''''''''''''''''''''diagnoal left bottom to top (forward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i > 0 And j < 7)
            i = i - 1
            j = j + 1
            If Form1.ga.board(i, j) >= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (backward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i < 7 And j < 7)
            i = i + 1
            j = j + 1
            If Form1.ga.board(i, j) >= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While


        '''''''''''''''''''''''''diagnoal Right bottom to top (forward) '''''''''''''''''''''''''''
        i = x_pos
        j = y_pos
        While (i > 0 And j > 0)
            i = i - 1
            j = j - 1
            If Form1.ga.board(i, j) >= 0 Then
                flags(i, j) = True
                If Form1.ga.board(i, j) > 0 Then
                    Exit While
                End If
            Else
                Exit While
            End If
        End While
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

    Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
    End Sub
End Class

Knight.vb

Public Class knight
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Private flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

    Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''to show possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()
        ''''''''''''''''''fornt left'''''''''''''''''''
        If x_pos + 2 <= 7 And y_pos - 1 >= 0 Then
            If Form1.ga.board(x_pos + 2, y_pos - 1) <= 0 Then
                flags(x_pos + 2, y_pos - 1) = True
            End If
        End If

        ''''''''''''''''''fornt right'''''''''''''''''''
        If x_pos + 2 <= 7 And y_pos + 1 <= 7 Then
            If Form1.ga.board(x_pos + 2, y_pos + 1) <= 0 Then
                flags(x_pos + 2, y_pos + 1) = True
            End If
        End If

        ''''''''''''''''''Back left'''''''''''''''''''
        If x_pos - 2 >= 0 And y_pos - 1 >= 0 Then
            If Form1.ga.board(x_pos - 2, y_pos - 1) <= 0 Then
                flags(x_pos - 2, y_pos - 1) = True
            End If
        End If

        ''''''''''''''''''Back right'''''''''''''''''''
        If x_pos - 2 >= 0 And y_pos + 1 <= 7 Then
            If Form1.ga.board(x_pos - 2, y_pos + 1) <= 0 Then
                flags(x_pos - 2, y_pos + 1) = True
            End If
        End If


        ''''''''''''''''''right back'''''''''''''''''''
        If x_pos - 1 >= 0 And y_pos + 2 <= 7 Then
            If Form1.ga.board(x_pos - 1, y_pos + 2) <= 0 Then
                flags(x_pos - 1, y_pos + 2) = True
            End If
        End If

        ''''''''''''''''''right front'''''''''''''''''''
        If x_pos + 1 <= 7 And y_pos + 2 <= 7 Then
            If Form1.ga.board(x_pos + 1, y_pos + 2) <= 0 Then
                flags(x_pos + 1, y_pos + 2) = True
            End If
        End If

        ''''''''''''''''''left back'''''''''''''''''''
        If x_pos - 1 >= 0 And y_pos - 2 >= 0 Then
            If Form1.ga.board(x_pos - 1, y_pos - 2) <= 0 Then
                flags(x_pos - 1, y_pos - 2) = True
            End If
        End If

        ''''''''''''''''''left front'''''''''''''''''''
        If x_pos + 1 <= 7 And y_pos - 2 >= 0 Then
            If Form1.ga.board(x_pos + 1, y_pos - 2) <= 0 Then
                flags(x_pos + 1, y_pos - 2) = True
            End If
        End If

    End Sub

    Public Sub black_mov()
        ''''''''''''''''''fornt left'''''''''''''''''''
        If x_pos + 2 <= 7 And y_pos - 1 >= 0 Then
            If Form1.ga.board(x_pos + 2, y_pos - 1) >= 0 Then
                flags(x_pos + 2, y_pos - 1) = True
            End If
        End If

        ''''''''''''''''''fornt right'''''''''''''''''''
        If x_pos + 2 <= 7 And y_pos + 1 <= 7 Then
            If Form1.ga.board(x_pos + 2, y_pos + 1) >= 0 Then
                flags(x_pos + 2, y_pos + 1) = True
            End If
        End If

        ''''''''''''''''''Back left'''''''''''''''''''
        If x_pos - 2 >= 0 And y_pos - 1 >= 0 Then
            If Form1.ga.board(x_pos - 2, y_pos - 1) >= 0 Then
                flags(x_pos - 2, y_pos - 1) = True
            End If
        End If

        ''''''''''''''''''Back right'''''''''''''''''''
        If x_pos - 2 >= 0 And y_pos + 1 <= 7 Then
            If Form1.ga.board(x_pos - 2, y_pos + 1) >= 0 Then
                flags(x_pos - 2, y_pos + 1) = True
            End If
        End If


        ''''''''''''''''''right back'''''''''''''''''''
        If x_pos - 1 >= 0 And y_pos + 2 <= 7 Then
            If Form1.ga.board(x_pos - 1, y_pos + 2) >= 0 Then
                flags(x_pos - 1, y_pos + 2) = True
            End If
        End If

        ''''''''''''''''''right front'''''''''''''''''''
        If x_pos + 1 <= 7 And y_pos + 2 <= 7 Then
            If Form1.ga.board(x_pos + 1, y_pos + 2) >= 0 Then
                flags(x_pos + 1, y_pos + 2) = True
            End If
        End If

        ''''''''''''''''''left back'''''''''''''''''''
        If x_pos - 1 >= 0 And y_pos - 2 >= 0 Then
            If Form1.ga.board(x_pos - 1, y_pos - 2) >= 0 Then
                flags(x_pos - 1, y_pos - 2) = True
            End If
        End If

        ''''''''''''''''''left front'''''''''''''''''''
        If x_pos + 1 <= 7 And y_pos - 2 >= 0 Then
            If Form1.ga.board(x_pos + 1, y_pos - 2) >= 0 Then
                flags(x_pos + 1, y_pos - 2) = True
            End If
        End If
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

    Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
    End Sub
End Class

Rook.vb

Public Class rook
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Private flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

    Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''to show possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()
        If x_pos > 0 Then
            For i As Integer = x_pos - 1 To 0 Step -1
                If Form1.ga.board(i, y_pos) <= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If x_pos <= 7 Then
            For i As Integer = x_pos + 1 To 7
                If Form1.ga.board(i, y_pos) <= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If

        ''''''''''''this is for column'''''''''''''''''''''''''

        If y_pos > 0 Then
            For i As Integer = y_pos - 1 To 0 Step -1
                If Form1.ga.board(x_pos, i) <= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If y_pos <= 7 Then
            For i As Integer = y_pos + 1 To 7
                If Form1.ga.board(x_pos, i) <= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) < 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
    End Sub

    Public Sub black_mov()
        If x_pos > 0 Then
            For i As Integer = x_pos - 1 To 0 Step -1
                If Form1.ga.board(i, y_pos) >= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If x_pos <= 7 Then
            For i As Integer = x_pos + 1 To 7
                If Form1.ga.board(i, y_pos) >= 0 Then
                    flags(i, y_pos) = True
                    If Form1.ga.board(i, y_pos) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If

        ''''''''''''this is for column'''''''''''''''''''''''''

        If y_pos > 0 Then
            For i As Integer = y_pos - 1 To 0 Step -1
                If Form1.ga.board(x_pos, i) >= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
        If y_pos <= 7 Then
            For i As Integer = y_pos + 1 To 7
                If Form1.ga.board(x_pos, i) >= 0 Then
                    flags(x_pos, i) = True
                    If Form1.ga.board(x_pos, i) > 0 Then
                        Exit For
                    End If
                Else
                    Exit For
                End If
            Next
        End If
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

    Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
    End Sub
End Class

Pawn.vb

Public Class pawn
    Public x_pos, y_pos As Integer
    Public piece_val As Integer
    Private flags(7, 7) As Boolean
    Public check_the_king(7, 7) As Boolean
    Private pin As Boolean = False

    Public Sub New(ByVal x, ByVal y, ByVal p_val)   'color=+ve val if white color=-ve if black 
        x_pos = x
        y_pos = y
        piece_val = p_val
        re_flags()
        re_chk_king()

    End Sub

    Public Function ret_x() As Integer
        Return x_pos
    End Function

    Public Function ret_y() As Integer
        Return y_pos
    End Function

    Public Function ret_val() As Integer
        Return piece_val
    End Function

    Public Function poss_mov() As Boolean(,)    ''to show possible moves
        re_flags()
        If piece_val > 0 Then
            white_mov()
        End If
        If piece_val < 0 Then
            black_mov()
        End If
        Return flags
    End Function

    Public Sub white_mov()
        If x_pos = 1 Then
            If Chess.Form1.ga.board(x_pos + 1, y_pos) = 0 And x_pos < 7 And pin = False Then
                flags(x_pos + 1, y_pos) = True
            End If
            If Chess.Form1.ga.board(x_pos + 2, y_pos) = 0 And Chess.Form1.ga.board(x_pos + 1, y_pos) = 0 And pin = False Then
                flags(x_pos + 2, y_pos) = True
            End If
            If y_pos + 1 <= 7 And x_pos + 1 <= 7 Then
                If Chess.Form1.ga.board(x_pos + 1, y_pos + 1) < 0 Then
                    flags(x_pos + 1, y_pos + 1) = True
                End If
            End If
            If y_pos - 1 >= 0 And x_pos + 1 <= 7 Then
                If Chess.Form1.ga.board(x_pos + 1, y_pos - 1) < 0 Then
                    flags(x_pos + 1, y_pos - 1) = True
                End If
            End If
        Else
            If x_pos + 1 <= 7 Then
                If Chess.Form1.ga.board(x_pos + 1, y_pos) = 0 And pin = False Then
                    flags(x_pos + 1, y_pos) = True
                End If
            End If
            If y_pos + 1 <= 7 And x_pos + 1 <= 7 Then
                If Chess.Form1.ga.board(x_pos + 1, y_pos + 1) < 0 Then
                    flags(x_pos + 1, y_pos + 1) = True
                End If
            End If

            If y_pos - 1 >= 0 And x_pos + 1 <= 7 Then
                If Chess.Form1.ga.board(x_pos + 1, y_pos - 1) < 0 Then
                    flags(x_pos + 1, y_pos - 1) = True
                End If
            End If
        End If
        pin = False

    End Sub

    Public Sub black_mov()
        If x_pos = 6 Then
            If Chess.Form1.ga.board(x_pos - 1, y_pos) = 0 And x_pos > 0 And pin = False Then
                flags(x_pos - 1, y_pos) = True
            End If
            If Chess.Form1.ga.board(x_pos - 2, y_pos) = 0 And Chess.Form1.ga.board(x_pos - 1, y_pos) = 0 And pin = False Then
                flags(x_pos - 2, y_pos) = True
            End If
            If y_pos + 1 <= 7 And x_pos - 1 >= 0 Then
                If Chess.Form1.ga.board(x_pos - 1, y_pos + 1) > 0 Then
                    flags(x_pos - 1, y_pos + 1) = True
                End If
            End If
            If y_pos - 1 >= 0 And x_pos - 1 >= 0 Then
                If Chess.Form1.ga.board(x_pos - 1, y_pos - 1) > 0 Then
                    flags(x_pos - 1, y_pos - 1) = True
                End If
            End If
        Else
            If x_pos - 1 >= 0 Then
                If Chess.Form1.ga.board(x_pos - 1, y_pos) = 0 And pin = False Then
                    flags(x_pos - 1, y_pos) = True
                End If
            End If
            If y_pos + 1 <= 7 And x_pos - 1 >= 0 Then
                If Chess.Form1.ga.board(x_pos - 1, y_pos + 1) > 0 Then
                    flags(x_pos - 1, y_pos + 1) = True
                End If
            End If
            If y_pos - 1 >= 0 And x_pos - 1 >= 0 Then
                If Chess.Form1.ga.board(x_pos - 1, y_pos - 1) > 0 Then
                    flags(x_pos - 1, y_pos - 1) = True
                End If
            End If
        End If
        pin = False
    End Sub

    Public Sub re_flags()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                flags(i, j) = False
            Next
        Next
    End Sub

    Public Sub re_chk_king()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                check_the_king(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_king()
        pin = True
        poss_mov()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If flags(i, j) = True Then
                    check_the_king(i, j) = True
                Else
                    check_the_king(i, j) = False
                End If
            Next
        Next
    End Sub

    Public Sub change_pos(ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Form1.ga.board(x, y) = Form1.ga.board(pre_x, pre_y)
        Form1.ga.board(pre_x, pre_y) = 0
        x_pos = x
        y_pos = y
        fill_chk_king()
    End Sub
End Class

Game.vb

Public Class game
    Public board(7, 7) As Integer
    Public can_move(7, 7) As Boolean
    Public check_for_white(7, 7) As Boolean
    Public check_for_black(7, 7) As Boolean
    Public game_flag As Boolean = True
    Public player As Integer = 1
    Public b_in_danger As Boolean = False
    Public w_in_danger As Boolean = False
    Public Sub New()
        ''Array for chess_board +ve are for White_pieces -ve are for Black_pieces and 0 are for blank_boxes
        board = {{5, 4, 3, 2, 1, 3, 4, 5},
                 {6, 6, 6, 6, 6, 6, 6, 6},
                 {0, 0, 0, 0, 0, 0, 0, 0},
                 {0, 0, 0, 0, 0, 0, 0, 0},
                 {0, 0, 0, 0, 0, 0, 0, 0},
                 {0, 0, 0, 0, 0, 0, 0, 0},
                 {-6, -6, -6, -6, -6, -6, -6, -6},
                 {-5, -4, -3, -2, -1, -3, -4, -5}}     ''


        re_chk_black()
        re_chk_white()


    End Sub

    Public Sub chk_winner(ByVal selected, ByVal x, ByVal y)
        show()
        'If b_in_danger = True Then
        '    game_flag = False
        '    Form1.b_king.poss_mov()
        '    For i As Integer = 0 To 7
        '        For j As Integer = 0 To 7
        '            If Form1.b_king.flags(i, j) = True Then
        '                game_flag = True
        '            End If
        '        Next
        '    Next
        'End If
        If Form1.b_king.x_pos = x And Form1.b_king.y_pos = y And selected <> "b_king" Then
            game_flag = False
        End If
        If game_flag = False Then
            MsgBox("PLAYER 1 WiN")
            Exit Sub
        End If

        'If w_in_danger = True Then
        '    game_flag = False
        '    Form1.w_king.poss_mov()
        '    For i As Integer = 0 To 7
        '        For j As Integer = 0 To 7
        '            If Form1.w_king.flags(i, j) = True Then
        '                game_flag = True
        '            End If
        '        Next
        '    Next
        'End If
        If Form1.w_king.x_pos = x And Form1.w_king.y_pos = y And selected <> "w_king" Then
            game_flag = False
        End If
        If game_flag = False Then
            MsgBox("PLAYER 2 WiN")
            Exit Sub
        End If
    End Sub

    'this is to show images of pieces
    Public Sub show()

        For i As Integer = 0 To 7
            For j As Integer = 0 To 7

                Select Case board(i, j)
                    Case 1
                        Form1.pb(i, j).Image = My.Resources.wKing
                    Case 2
                        Form1.pb(i, j).Image = My.Resources.wQueen
                    Case 3
                        Form1.pb(i, j).Image = My.Resources.Wbishop
                    Case 4
                        Form1.pb(i, j).Image = My.Resources.wKnight
                    Case 5
                        Form1.pb(i, j).Image = My.Resources.wRook
                    Case 6
                        Form1.pb(i, j).Image = My.Resources.wPawn
                    Case -1
                        Form1.pb(i, j).Image = My.Resources.bKing
                    Case -2
                        Form1.pb(i, j).Image = My.Resources.bQueen
                    Case -3
                        Form1.pb(i, j).Image = My.Resources.bBishop
                    Case -4
                        Form1.pb(i, j).Image = My.Resources.bKnight
                    Case -5
                        Form1.pb(i, j).Image = My.Resources.bRook
                    Case -6
                        Form1.pb(i, j).Image = My.Resources.bPawn

                    Case Else
                        Form1.pb(i, j).Image = Nothing

                End Select
                show_chk()
            Next
        Next
    End Sub
    'this is to select pic box
    Public Function selection(ByVal x, ByVal y) As String
        If game_flag = True Then
            If board(x, y) <> 0 Then
                Form1.pb(x, y).BackgroundImage = My.Resources.selection
            End If
            Select Case board(x, y)
                Case 1
                    If player = 1 Then
                        show_possible_move(Form1.w_king.poss_mov())
                        Return "w_king"
                    End If
                Case 2
                    If player = 1 Then
                        show_possible_move(Form1.w_queen.poss_mov())
                        Return "w_queen"
                    End If
                Case 3
                    If player = 1 Then
                        For i As Integer = 0 To 1
                            If Form1.w_bishop(i).ret_x = x And Form1.w_bishop(i).ret_y = y Then
                                show_possible_move(Form1.w_bishop(i).poss_mov())
                            End If
                        Next
                        Return "w_bishop"
                    End If
                Case 4
                    If player = 1 Then
                        For i As Integer = 0 To 1
                            If Form1.w_knight(i).ret_x = x And Form1.w_knight(i).ret_y = y Then
                                show_possible_move(Form1.w_knight(i).poss_mov())
                            End If
                        Next
                        Return "w_knight"
                    End If
                Case 5
                    If player = 1 Then
                        For i As Integer = 0 To 1
                            If Form1.w_rook(i).ret_x = x And Form1.w_rook(i).ret_y = y Then
                                show_possible_move(Form1.w_rook(i).poss_mov())
                            End If
                        Next
                        Return "w_rook"
                    End If
                Case 6
                    If player = 1 Then
                        For i As Integer = 0 To 7
                            If Form1.w_pawn(i).ret_x = x And Form1.w_pawn(i).ret_y = y Then
                                show_possible_move(Form1.w_pawn(i).poss_mov())
                            End If
                        Next
                        Return "w_pawn"
                    End If
                Case -1
                    If player = 2 Then
                        show_possible_move(Form1.b_king.poss_mov())
                        Return "b_king"
                    End If
                Case -2
                    If player = 2 Then
                        show_possible_move(Form1.b_queen.poss_mov())
                        Return "b_queen"
                    End If
                Case -3
                    If player = 2 Then
                        For i As Integer = 0 To 1
                            If Form1.b_bishop(i).ret_x = x And Form1.b_bishop(i).ret_y = y Then
                                show_possible_move(Form1.b_bishop(i).poss_mov())
                            End If
                        Next
                        Return "b_bishop"
                    End If
                Case -4
                    If player = 2 Then
                        For i As Integer = 0 To 1
                            If Form1.b_knight(i).ret_x = x And Form1.b_knight(i).ret_y = y Then
                                show_possible_move(Form1.b_knight(i).poss_mov())
                            End If
                        Next
                        Return "b_knight"
                    End If
                Case -5
                    If player = 2 Then
                        For i As Integer = 0 To 1
                            If Form1.b_rook(i).ret_x = x And Form1.b_rook(i).ret_y = y Then
                                show_possible_move(Form1.b_rook(i).poss_mov())
                            End If
                        Next
                        Return "b_rook"
                    End If
                Case -6
                    If player = 2 Then
                        For i As Integer = 0 To 7
                            If Form1.b_pawn(i).ret_x = x And Form1.b_pawn(i).ret_y = y Then
                                show_possible_move(Form1.b_pawn(i).poss_mov())
                            End If
                        Next
                        Return "b_pawn"
                    End If
                Case Else
                    Return Nothing
            End Select
        End If
    End Function

    Public Sub re_back()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                Form1.pb(i, j).BackgroundImage = Nothing
            Next
        Next
    End Sub

    Public Sub re_can_move()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                can_move(i, j) = False
            Next
        Next
    End Sub

    Public Sub re_chk_white()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                check_for_white(i, j) = False
            Next
        Next
    End Sub

    Public Sub re_chk_black()
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                check_for_black(i, j) = False
            Next
        Next
    End Sub

    Public Sub fill_chk_for_black()
        re_chk_black()
        For i As Integer = 0 To 7
            Form1.w_pawn(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.w_pawn(i).check_the_king(j, k) = True Then
                        check_for_black(j, k) = True
                    End If
                Next
            Next
        Next

        For i As Integer = 0 To 1
            Form1.w_rook(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.w_rook(i).check_the_king(j, k) = True Then
                        check_for_black(j, k) = True
                    End If
                Next
            Next
        Next
        For i As Integer = 0 To 1
            Form1.w_bishop(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.w_bishop(i).check_the_king(j, k) = True Then
                        check_for_black(j, k) = True
                    End If
                Next
            Next
        Next

        For i As Integer = 0 To 1
            Form1.w_knight(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.w_knight(i).check_the_king(j, k) = True Then
                        check_for_black(j, k) = True
                    End If
                Next
            Next
        Next

        Form1.w_queen.fill_chk_king()
        For j As Integer = 0 To 7
            For k As Integer = 0 To 7
                If Form1.w_queen.check_the_king(j, k) = True Then
                    check_for_black(j, k) = True
                End If
            Next
        Next

    End Sub

    Public Sub fill_chk_for_white()
        re_chk_white()
        For i As Integer = 0 To 7
            Form1.b_pawn(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.b_pawn(i).check_the_king(j, k) = True Then
                        check_for_white(j, k) = True
                    End If
                Next
            Next
        Next

        For i As Integer = 0 To 1
            Form1.b_rook(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.b_rook(i).check_the_king(j, k) = True Then
                        check_for_white(j, k) = True
                    End If
                Next
            Next
        Next
        For i As Integer = 0 To 1
            Form1.b_bishop(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.b_bishop(i).check_the_king(j, k) = True Then
                        check_for_white(j, k) = True
                    End If
                Next
            Next
        Next

        For i As Integer = 0 To 1
            Form1.b_knight(i).fill_chk_king()
            For j As Integer = 0 To 7
                For k As Integer = 0 To 7
                    If Form1.b_knight(i).check_the_king(j, k) = True Then
                        check_for_white(j, k) = True
                    End If
                Next
            Next
        Next

        Form1.b_queen.fill_chk_king()
        For j As Integer = 0 To 7
            For k As Integer = 0 To 7
                If Form1.b_queen.check_the_king(j, k) = True Then
                    check_for_white(j, k) = True
                End If
            Next
        Next

    End Sub

    Public Sub show_chk()
        w_in_danger = False
        b_in_danger = False
        '''''''''''''''''''''''''''''''''''''''''Black Check'''''''''''''''''''''''''''''''''''
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If check_for_black(i, j) = True And Form1.b_king.x_pos = i And Form1.b_king.y_pos = j Then
                    Form1.pb(i, j).BackgroundImage = My.Resources.check
                    b_in_danger = True
                End If
            Next
        Next
 
        '''''''''''''''''''''''''''''''''''''''''White Check'''''''''''''''''''''''''''''''''''
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If check_for_white(i, j) = True And Form1.w_king.x_pos = i And Form1.w_king.y_pos = j Then
                    Form1.pb(i, j).BackgroundImage = My.Resources.check
                    w_in_danger = True
                End If
            Next
        Next
    End Sub

    Public Sub show_possible_move(ByVal b As Boolean(,))
        For i As Integer = 0 To 7
            For j As Integer = 0 To 7
                If b(i, j) = True Then
                    Form1.pb(i, j).BackgroundImage = My.Resources.V_Move
                    can_move(i, j) = True
                End If
            Next
        Next
    End Sub

    Public Sub mov(ByVal selected, ByVal x, ByVal y, ByVal pre_x, ByVal pre_y)
        Select Case selected
            Case "w_king"
                Form1.w_king.change_pos(x, y, pre_x, pre_y)
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)
            Case "w_queen"
                Form1.w_queen.change_pos(x, y, pre_x, pre_y)
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)
            Case "w_bishop"
                For i As Integer = 0 To 1
                    If Form1.w_bishop(i).ret_x = pre_x And Form1.w_bishop(i).ret_y = pre_y Then
                        Form1.w_bishop(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)
            Case "w_knight"
                For i As Integer = 0 To 1
                    If Form1.w_knight(i).ret_x = pre_x And Form1.w_knight(i).ret_y = pre_y Then
                        Form1.w_knight(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)
            Case "w_rook"
                For i As Integer = 0 To 1
                    If Form1.w_rook(i).ret_x = pre_x And Form1.w_rook(i).ret_y = pre_y Then
                        Form1.w_rook(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)
            Case "w_pawn"
                For i As Integer = 0 To 7
                    If Form1.w_pawn(i).ret_x = pre_x And Form1.w_pawn(i).ret_y = pre_y And board(x, y) <= 0 Then
                        Form1.w_pawn(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 2
                chk_winner(selected, x, y)

            Case "b_king"
                Form1.b_king.change_pos(x, y, pre_x, pre_y)
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case "b_queen"
                Form1.b_queen.change_pos(x, y, pre_x, pre_y)
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case "b_bishop"
                For i As Integer = 0 To 1
                    If Form1.b_bishop(i).ret_x = pre_x And Form1.b_bishop(i).ret_y = pre_y Then
                        Form1.b_bishop(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case "b_knight"
                For i As Integer = 0 To 1
                    If Form1.b_knight(i).ret_x = pre_x And Form1.b_knight(i).ret_y = pre_y Then
                        Form1.b_knight(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case "b_rook"
                For i As Integer = 0 To 1
                    If Form1.b_rook(i).ret_x = pre_x And Form1.b_rook(i).ret_y = pre_y Then
                        Form1.b_rook(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case "b_pawn"
                For i As Integer = 0 To 7
                    If Form1.b_pawn(i).ret_x = pre_x And Form1.b_pawn(i).ret_y = pre_y And board(x, y) >= 0 Then
                        Form1.b_pawn(i).change_pos(x, y, pre_x, pre_y)
                    End If
                Next
                re_chk_white()
                re_chk_black()
                fill_chk_for_white()
                fill_chk_for_black()
                show_chk()
                player = 1
                chk_winner(selected, x, y)
            Case Else

        End Select


    End Sub

End Class

Comments

Post a Comment

Popular posts from this blog

Write a program to print all permutations of a given string

Image
A permutation, also called an “arrangement number” or “order,” is a rearrangement of the elements of an ordered list S into a one-to-one correspondence with S itself. A string of length n has n! permutation. Below are the permutations of string ABC. ABC ACB BAC BCA CBA CAB. Source Code:  Download the code  : Permutation of string #include <iostream> #include <string.h> using namespace std; int count=0; void swap(char *x, char *y) {     char temp;     temp = *x;     *x = *y;     *y = temp; } void permute(char *a, int l, int r) {    int i;    if (l == r)    {     count++;     cout<<count<<": "<<a<<"\n";    }    else    {        for (i = l; i <= r; i++)        {          ...
Read more