Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    'on the board, "e" means empty "s" means ship "m" means miss, "h" means hit

    Public Sub Main()

        'initializes RNG seed

        Randomize(Now().Day())

        Dim compBoard(10,10) As Char

        Dim userBoard(10,10) As Char

        'all the users guesses

        Dim guessBoard(10,10)As Char

        'how many hits user has

        Dim userHits As Integer = 0

        'how many hits comp has

        Dim compHits As Integer = 0

        EmptyBoards(userBoard, compBoard, guessBoard)

        PlaceUserShips(userboard)

​

        PlaceCompShips(compBoard)

        While userHits < 17 Or compHits < 17

            Console.writeline("you have " & userHits & " succesful hits and your opponent has " & compHits & " successful hits")

            Console.readline()

        If UserMove(compBoard, guessBoard) = True Then

           userHits = userHits + 1

        End If

        'if user still hasn't won

        If userHits < 17 Then

            If CompMove(userBoard) = True Then

                compHits = compHits + 1

            End If

        End If

        End While

        If userHits = 17 Then

            Console.writeline("Congratulations!")

        ElseIf compHits = 17 Then

            Console.writeline("Better luck next time!")

        Else

            Console.writeline("Error,  this message shouldn't show")

        End If

        While True

        Console.readline()

        End While

    End Sub

        Sub PlaceUserShips(ByRef userBoard(,) As Char)

        'keeps count of the length of the ships that still need to be placed

        Dim remainingShips() As Integer = {2, 3, 3, 4, 5}

        Dim counter As Integer = 0

        'orientation of ship

        Dim orientation As Char 

        'start coordinate for placing ship

        Dim startCoordinate As String

        'checks if ship can be placed correctly

        Dim fireWall As Boolean

        'co-ordinates

        Dim x As Integer

        Dim y as Integer

        'while not all ships have been placed

        While remainingShips(4) <> 0

            'resets variables

            firewall = True

            startCoordinate = ""

​

                'shows current state

                'console.clear()

                PrintBoard(userboard)

                Console.writeline("Ship length = " & remainingShips(counter))

                Console.writeline("Choose orientation of ship ('V' for vertical, 'H' for horizontal)")

                orientation = console.readline()

                orientation = UCase(orientation)

                Console.writeline("Choose starting co-ordinate for ship (In the form x,y)")

                Console.writeline("Vertical ships start at the lowest point")

                Console.writeline("Horizontal ships start at the leftmost point")

                startCoordinate = console.readline()

                console.writeline("")

​

                'debug for invalid inputs

                If Left(startCoordinate, 1) = "0" or Right(startCoordinate, 1) = "0" or (orientation <> "V" and orientation <> "H") Then

                    'closes fireWall

                    fireWall = False

                    'doesn't go through if statements

                    orientation = "q"

                End If

                'inputs correct x value

                If CType(Left(startCoordinate, 1), Char) = "a" Then

                    x = 10

                Else 

                    x = CType(Left(startCoordinate, 1), Integer)

                End If

                'inputs correct y value

                If CType(Right(startCoordinate, 1), Char) = "a" Then

                    y = 10

                Else 

                    y = CType(Right(startCoordinate, 1), Integer)

                End If

            If orientation = "V" Then

                'from starting y co-ordinate, to ending y co-ordinate

                For yCounter = y to y - (remainingShips(counter) - 1) step - 1

                        'prevents overflow

    If yCounter < 11 Then

                If userBoard(x, yCounter) <> "e" Then

                    'closes fireWall

                    fireWall = False

                End If

                                    'if number is off the board

    Else

        fireWall = False

    End If

                Next

            'if position is valid

            If fireWall = True Then

                'ship is printed to correct location

                For yCounter = y to y - (remainingShips(counter) - 1) step - 1

                userBoard(x, yCounter) = "s"

                Next

            End If

            End If

            If orientation = "H" Then

                'from starting y co-ordinate, to ending y co-ordinate

        For xCounter = x to x + (remainingShips(counter) - 1) step 1

        'prevents overflow

    If xCounter < 11 Then

        If userBoard(xCounter, y) <> "e" Then

                    'closes fireWall

                    fireWall = False

                End If

                'if number is off the board

    Else

        fireWall = False

    End If

                Next

            'if position is valid

            If fireWall = True Then

                'ship is printed to correct location

                For xCounter = x to x + (remainingShips(counter) - 1) step 1

        userBoard(xCounter, y) = "s"

                Next

            End If

            End If

    'if ship was placed

    If fireWall = True Then

            'gives used up element a null value

            remainingShips(counter) = 0

            'rolls over counter

            counter = counter + 1

    Else If fireWall = False Then

        Console.writeline("Invalid position, try again")

        Console.readline()

    End If

        End While

    PrintBoard(userboard)

    End Sub

​

    Sub PlaceCompShips(ByRef compBoard(,) As Char)

​

'keeps count of the length of the ships that still need to be placed

Dim remainingShips() As Integer = {2, 3, 3, 4, 5}

Dim debug As Integer

Dim counter As Integer = 0

'makes random choices

Dim rnd As Integer

'parameters for placing ships

Dim orientation As String = "q"

Dim x As Integer

Dim y As Integer

'for validating inputs

Dim fireWall As Boolean

​

While remainingShips(4) <> 0

​

'reset

fireWall = True

​

'generates position

rnd = GetRandom(1,2)

​

If rnd = 1 Then

orientation = "V"

Else 

orientation = "H"

End If

​

x = GetRandom(1,10)

y = GetRandom (1,10)

​

If orientation = "V" Then

                'from starting y co-ordinate, to ending y co-ordinate

                For yCounter = y to y - (remainingShips(counter) - 1) step - 1

    'Console.writeline("DEBUG yCounter = " & yCounter)

    'prevents overflow

    If yCounter < 11 & 0 < yCounter Then

                If compBoard(x, yCounter) <> "e" Then

                    'closes fireWall

                    fireWall = False

                End If

        'if number is off the board

    Else

        fireWall = False

    End If

                Next

            'if position is valid

            If fireWall = True Then

                'ship is printed to correct location

                For yCounter = y to y - (remainingShips(counter) - 1) step - 1

                compBoard(x, ycounter) = "s"

                Next

            End If

End If

            If orientation = "H" Then

                'from starting y co-ordinate, to ending y co-ordinate

        For xCounter = x to x + (remainingShips(counter) - 1) step 1

                'Console.writeline("DEBUG xCounter = " & xCounter)

    'prevents overflow

If xCounter < 11 And 0 < xCounter Then

                If compBoard(xCounter, y) <> "e" Then

                    'closes fireWall

    'Console.writeline("DEBUG unempty")

                    fireWall = False

                End If

            'if number is off the board

    Else

'Console.writeline("DEBUG else")

        fireWall = False

    End If

                Next

            'if position is valid

            If fireWall = True Then

                'ship is printed to correct location

                For xCounter = x to x + (remainingShips(counter) - 1) step 1

                compBoard(xCounter, y) = "s"

                Next

            End If

            End If

    'if ship was placed

    If fireWall = True Then

            'gives used up element a null value

            remainingShips(counter) = 0

            'rolls over counter

            counter = counter + 1

    End If

​

'Console.WriteLine("DEBUG = " & debug)

'debug = debug + 1

'Console.WriteLine("counter = " & counter)

'Console.WriteLine("firewall = " & fireWall)

'Console.WriteLine("orientation = " & orientation)

'Console.WriteLine("x = " & x)

'Console.WriteLine("y = " & y)

'Console.ReadLine()

​

        End While

​

    End Sub

    Function CheckBoard(board(,) As Char)

        Dim fireWall As Boolean = False

    For y = 1 To 10

    For x = 1 To 10

        'if there is still some ship left, then the game isn't over

        If board(x,y) = "s" Then 

            fireWall = True

            Return True

        End If

    Next

    Next

​

'if all ships are sunk, returns false

Return False

​

    End Function

​

Function UserMove(ByRef compBoard(,) As Char, ByRef guessBoard(,) As Char) As Boolean

​

'x-coordinate of shot

Dim xString As String

'y-coordinate of shot

Dim yString As String

​

'x-coordinate of shot

Dim x As Integer

'y-coordinate of shot

Dim y As Integer

​

'makes code repeat if user picks a co-ordinate they already have

Dim fireWall As Boolean = False

​

'validation of co-ordinates

Dim fireWall2 As Boolean = False

​

'makes sure to give user a second go if they try and hit the same co-ordinate twice

While fireWall = False

​

'resets firewall2

fireWall2 = False

​

'makes sure they input a valid co-ordinate

While fireWall2 = False

​

Console.writeline("Choose x co-ordinate to shoot")

xString = console.readline()

​

'validation

If xString = "a" Then

​

x = 10

fireWall2 = True

​

ElseIf xString <> "" Then

​

If (CType(xString, Integer) > 0 and CType(xString, Integer) < 11) Then

​

x = CType(xString, Integer)

fireWall2 = True

​

End If

​

Else

​

Console.writeline("Invalid, try again")

Console.readline()

Console.writeline("")

​

End If

​

End While

​

​

'resets fireWall2 

fireWall2 = False

​

While fireWall2 = False

​

Console.writeline("Choose y co-ordinate to shoot")

yString = console.readline()

​

'validation

If yString = "a" Then

​

y = 10

fireWall2 = True

​

ElseIf yString <> "" Then

​

If (CType(yString, Integer) > 0 and CType(yString, Integer) < 11) Then

​

y = CType(yString, Integer)

fireWall2 = True

​

End If

​

Else

​

Console.writeline("Invalid, try again")

Console.readline()

Console.writeline("")

​

End If

​

End While

​

'checks if shot was a hit or a miss

​

'if co-ordinate is empty

If compBoard(x,y) = "e" Then

​

Console.writeline("Miss!")

Console.readline()

​

'writes miss to compBoard

compBoard(x,y) = "m"

​

'writes miss to guessBoard

guessBoard(x,y) = "m"

​

PrintBoard(guessBoard)

​

Console.readline()

​

'exits loop since new position was chosen

fireWall = True

​

'if co-ordinate has a ship in it

Else If compBoard(x,y) = "s"

​

Console.Writeline("Hit!")

Console.readline()

​

'writes hit to compBoard

compBoard(x,y) = "h"

​

'writes hit to guessBoard

guessBoard(x,y) = "h"

​

PrintBoard(guessBoard)

​

Console.readline()

​

'exits loop and adds one to user point score

Return True

​

ElseIf compBoard(x,y) = "m" or compBoard(x,y) = "h" Then

​

Console.writeline("co-ordinate already attempted, try again")

Console.readline()

​

End If

​

End While

​

Return False

​

End Function

​

Function CompMove(ByRef userBoard(,) As Char) As Boolean

​

'x-coordinate of shot

Dim x As Integer

'y-coordinate of shot

Dim y As Integer

​

Dim fireWall As Boolean = False

​

'checks if shot was a hit or a miss

​

While fireWall = False

​

x = GetRandom(1, 10)

y = GetRandom(1, 10)

​

'if co-ordinate is empty

If userBoard(x,y) = "e" Then

​

Console.writeline("Computer has missed!")

Console.readline()

​

'writes miss to compBoard

userBoard(x,y) = "m"

​

Console.writeline("Your board now looks like...")

PrintBoard(userBoard)

​

Console.readline()

​

fireWall = True

​

'if co-ordinate has a ship in it

Else If userBoard(x,y) = "s"

​

Console.Writeline("Computer has landed a hit!")

Console.readline()

​

'writes hit to compBoard

userBoard(x,y) = "h"

​

Console.writeline("Your board now looks like...")

PrintBoard(userBoard)

​

Console.readline()

​

Return True

​

End If

​

End While

​

'if shot was missed

Return False

​

End Function

    sub PrintBoard(board(,) As Char)

​

    For y = 0 To 10

    For x = 0 To 10

        If board(x,y) = "e" Then

            'changes colour to sea

            'Console.ForegroundColor = ConsoleColor.Blue

            Console.Write("~")

        ElseIf board(x,y) = "s" Then

            'changes colour to ship

            'Console.ForegroundColor = ConsoleColor.Gray

            Console.Write("O")

        ElseIf board(x,y) = "m" Then

            'changes colour to missed shot

            'Console.ForegroundColor = ConsoleColor.Green

            Console.Write("m")

        ElseIf board(x,y) = "h" Then

            'changes colour to correct shot

            'Console.ForegroundColor = ConsoleColor.Red

            Console.Write("X")

​

        Else 'if element is one of the borders

        Console.Write(board(x,y))

        End If 

    Next

        'moves to next row

        Console.writeline("")

    Next

​

Console.writeline("")

​

    End Sub

​

Sub EmptyBoards(ByRef userBoard(,) As Char, ByRef compBoard(,) As Char, ByRef guessBoard(,) As Char)

​

 For y = 0 To 10

 For x = 0 To 10

  userBoard(x,y) = "e"

  compBoard(x,y) = "e"

  guessBoard(x,y) = "e"

 Next

 Next

​

userBoard(0,0) = " "

compBoard(0,0) = " "

guessBoard(0,0) = " "

​

userBoard(0,1) = "1"

userBoard(1,0) = "1"

compBoard(0,1) = "1"

compBoard(1,0) = "1"

guessBoard(0,1) = "1"

guessBoard(1,0) = "1"

​

userBoard(0,2) = "2"

userBoard(2,0) = "2"

compBoard(0,2) = "2"

compBoard(2,0) = "2"

guessBoard(0,2) = "2"

guessBoard(2,0) = "2"

​

userBoard(0,3) = "3"

userBoard(3,0) = "3"

compBoard(0,3) = "3"

compBoard(3,0) = "3"

guessBoard(0,3) = "3"

guessBoard(3,0) = "3"

​

userBoard(0,4) = "4"

userBoard(4,0) = "4"

compBoard(0,4) = "4"

compBoard(4,0) = "4"

guessBoard(0,4) = "4"

guessBoard(4,0) = "4"

​

userBoard(0,5) = "5"

userBoard(5,0) = "5"

compBoard(0,5) = "5"

compBoard(5,0) = "5"

guessBoard(0,5) = "5"

guessBoard(5,0) = "5"

​

userBoard(0,6) = "6"

userBoard(6,0) = "6"

compBoard(0,6) = "6"

compBoard(6,0) = "6"

guessBoard(0,6) = "6"

guessBoard(6,0) = "6"

​

userBoard(0,7) = "7"

userBoard(7,0) = "7"

compBoard(0,7) = "7"

compBoard(7,0) = "7"

guessBoard(0,7) = "7"

guessBoard(7,0) = "7"

​

userBoard(0,8) = "8"

userBoard(8,0) = "8"

compBoard(0,8) = "8"

compBoard(8,0) = "8"

guessBoard(0,8) = "8"

guessBoard(8,0) = "8"

​

userBoard(0,9) = "9"

userBoard(9,0) = "9"

compBoard(0,9) = "9"

compBoard(9,0) = "9"

guessBoard(0,9) = "9"

guessBoard(9,0) = "9"

​

userBoard(0,10) = "a"

userBoard(10,0) = "a"

compBoard(0,10) = "a"

compBoard(10,0) = "a"

guessBoard(0,10) = "a"

guessBoard(10,0) = "a"

​

End Sub

​

Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer

    return (Max - Min) * Rnd() + Min

End Function

​

End Module

​