Detailed view:

Visual Basic Battleships

Simple battleships, command line etc.

To use this snippet: Just copy and paste the code section below...

Details:

• Written in: Visual Basic
• Author: felix
• Submitted: Dec. 17, 2009
• Last edited: Dec. 17, 2009

Description:

It's just a simple battleships application that randomly places ships on the grid and you play against an AI. It's kinda incomplete, i lost heart half way through

Code:

Option Explicit On Module Module1 Function initalise(ByVal intGridLength1 As Integer, _ ByVal intGridLength2 As Integer, _ ByVal intLongestShip As Integer) As Array Dim Grid(intGridLength1, intGridLength2) As Char Dim intRand1, intRand2, intRand3, intCount, intCount2, intCount3 As Integer For intCount = 0 To intGridLength1 For intCount2 = 0 To intGridLength2 Grid(intCount, intCount2) = "." Next Next For intCount = 2 To intLongestShip Randomize() intRand1 = CInt(Int((intGridLength1 - intLongestShip - 1) * Rnd() + intLongestShip)) Console.WriteLine("int1 is: " & intRand1) Randomize() intRand2 = CInt(Int((intGridLength2 - intLongestShip - 1) * Rnd() + intLongestShip)) Console.WriteLine("int2 is: " & intRand2) Randomize() intRand3 = CInt(Int(2 * Rnd())) Select Case intRand3 Case Is = 0 For intCount3 = 0 To intLongestShip Grid(intRand1 + intCount3, intRand2) = "X" Next Case Is = 1 For intCount3 = 0 To intLongestShip Grid(intRand1, intRand2 + intCount3) = "X" Next End Select intLongestShip = intLongestShip - 1 Next Return Grid End Function Sub Play(ByVal Grid(,) As Char, ByVal intGridLength1 As Integer, ByVal intGridLength2 As Integer) Dim PlayerGrid(intGridLength1, intGridLength2) As Char Dim intInputRows, intInputCols, intTurnsTaken, intShipSpaces, intCurrentHit As Integer Dim blnGameWon As Boolean = False Console.WriteLine("To play this game you have to input two numbers between " & intGridLength1 + 1 & " and " & intGridLength2 + 1 & ", and this will relate to the board, the program will then tell you if you've hit a ship or not") For intCount = 0 To intGridLength1 For intCount2 = 0 To intGridLength2 PlayerGrid(intCount, intCount2) = "." Next Next For intCount = 0 To intGridLength1 For intCount2 = 0 To intGridLength2 If Grid(intCount, intCount2) = "X" Then intShipSpaces = intShipSpaces + 1 End If Next Next Do While blnGameWon = False Console.WriteLine("The Number has to be between 1 and 10") Console.Write("Input rows down: ") intInputRows = Console.ReadLine() - 1 Console.Write("Input Cols accross: ") intInputCols = Console.ReadLine() - 1 Select Case Grid(intInputRows, intInputCols) Case "X" Console.WriteLine("Bang, You hit one, well done!") Grid(intInputRows, intInputCols) = "*" PlayerGrid(intInputRows, intInputCols) = "*" intCurrentHit = intCurrentHit + 1 Case "." Console.WriteLine("Splash, you missed!") PlayerGrid(intInputRows, intInputCols) = "G" End Select intTurnsTaken = intTurnsTaken + 1 Console.WriteLine("You have taken " & intTurnsTaken & " turns so far") Console.WriteLine("Here is what the grid looks like now:") For intCount = 0 To intGridLength1 For intCount2 = 0 To intGridLength2 Console.Write(PlayerGrid(intCount, intCount2)) Next Console.WriteLine() Next If intCurrentHit = intShipSpaces Then blnGameWon = True End If Loop Console.WriteLine("Well done!!! You have won the Game!!!") End Sub Sub Main() Dim intGridLength1, intGridLength2, intLongestShip As Integer Console.Write("Input Width of grid to play on: ") intGridLength2 = Console.ReadLine() - 1 Console.Write("Input Height of grid to play on: ") intGridLength1 = Console.ReadLine() - 1 Console.Write("Input the longest ship to have on the Grid: ") intLongestShip = Console.ReadLine() - 1 Dim Grid(,) As Char = initalise(intGridLength1, intGridLength2, intLongestShip) Dim intCount, intCount2 As Integer For intCount = 0 To intGridLength1 For intCount2 = 0 To intGridLength2 Console.Write(Grid(intCount, intCount2)) Next Console.WriteLine() Next Play(Grid, intGridLength1, intGridLength2) Console.ReadKey() End Sub End Module

Comments: