Carview!

Private Sub ImageRepresentation(CurrentGameInstance As GameInstance)

For BoardIndex = 0 To 63

GamePicBoxes(BoardIndex).Image = Nothing

Dim BlackPieces As ULong = CurrentGameInstance.GetSetComputerBitboard

If ColourPicked = Colour.Black Then

WhitePieces = CurrentGameInstance.GetSetComputerBitboard

BlackPieces = CurrentGameInstance.GetSetPlayerBitboard

End If

Dim Pieces As ULong = CurrentGameInstance.GetPieceBitboard()

While Pieces <> 0

Dim NextPiece As SByte = BitOperations.TrailingZeroCount(Pieces)

If (BlackPieces And (1UL << NextPiece)) > 0 Then

For PieceType = 0 To 5

If (CurrentGameInstance.GetSetGameBitboard(PieceType) And (1UL << NextPiece)) > 0 Then

Select Case PieceType

Case 0

GamePicBoxes(NextPiece).Image = My.Resources.bKing

Case 1

GamePicBoxes(NextPiece).Image = My.Resources.bQueen

Case 2

GamePicBoxes(NextPiece).Image = My.Resources.bRook

Case 3

GamePicBoxes(NextPiece).Image = My.Resources.bBishop

Case 4

GamePicBoxes(NextPiece).Image = My.Resources.bKnight

Case 5

GamePicBoxes(NextPiece).Image = My.Resources.bPawn

End Select

Exit For

End If

For PieceType = 0 To 5

If (CurrentGameInstance.GetSetGameBitboard(PieceType) And (1UL << NextPiece)) > 0 Then

Select Case PieceType

Case 0

GamePicBoxes(NextPiece).Image = My.Resources.wKing

Case 1

GamePicBoxes(NextPiece).Image = My.Resources.wQueen

Case 2

GamePicBoxes(NextPiece).Image = My.Resources.wRook

Case 3

GamePicBoxes(NextPiece).Image = My.Resources.wBishop

Case 4

GamePicBoxes(NextPiece).Image = My.Resources.wKnight

Case 5

GamePicBoxes(NextPiece).Image = My.Resources.wPawn

End Select

Exit For

End If

Pieces -= (1UL << NextPiece)

End While

End Sub

Untitled