cant fix the errors in my battleships game

[MAG x ZOMBIES]

I am coding a battle ships game from a c++ code I had and i have translated it and ironed out most of the errors however there are a few left which i cant seem to fix plz could you have a look at the code and let me know what you think

here is the code;

Imports Microsoft.VisualBasic
Imports System
Module module1
 
    Class
        Sub main()
 
        Public Class GlobalMembersMain
 
            Public Const rows As Integer = 10
            Public Const elements As Integer = 10
 
            Public Shared maxships As Integer = 10
 
            Public Shared matrix(rows - 1, elements - 1) As Integer
        End Sub
 
        Public Shared Sub Clear()
            For i As Integer = 0 To rows - 1
                For j As Integer = 0 To elements - 1
                    matrix(i, j) = 0
                Next j
            Next i
        End Sub
 
        Public Shared Sub Show()
            For i As Integer = 0 To rows - 1
                For j As Integer = 0 To elements - 1
                    Console.Write(matrix(i, j))
                    Console.Write(" ")
                Next j
                Console.Write(ControlChars.Lf)
            Next i
        End Sub
 
        Public Shared Function NumberOfShips() As Integer
            Dim c As Integer = 0
 
            For i As Integer = 0 To rows - 1
                For j As Integer = 0 To elements - 1
                    If matrix(i, j) = 1 Then
                        c += 1
                    End If
                Next j
            Next i
 
            Return c
        End Function
 
        Public Shared Sub SetShips()
            Dim s As Integer = 0
            Do While s < maxships
                Dim x As Integer = RandomNumbers.NextNumber() Mod rows
                Dim y As Integer = RandomNumbers.NextNumber() Mod elements
                If matrix(x, y) <> 1 Then
                    s += 1
                    matrix(x, y) = 1
                End If
            Loop
        End Sub
 
        Public Shared Function Attack(ByVal x As Integer, ByVal y As Integer) As Boolean
            If matrix(x, y) = 1 Then
                matrix(x, y) = 2
                Return True
            End If
            Return False
        End Function
 
        Shared Function Inputs() As Integer
            RandomNumbers.Seed(time(Nothing))
            GlobalMembersMain.Clear()
            GlobalMembersMain.SetShips()
            Dim pos1 As Integer
            Dim pos2 As Integer
            Dim prompt As SByte
            Do
                Console.Write("Please input location: ")
            cin >> pos1 >> pos2
                If GlobalMembersMain.Attack(pos1, pos2) Then
                    Console.Write("You got me! : )")
                    Console.Write(ControlChars.Lf)
                Else
                    Console.Write("Sorry no ship at that position!")
                    Console.Write(ControlChars.Lf)
                End If
                Console.Write("Number of ships left: ")
                Console.Write(GlobalMembersMain.NumberOfShips())
                Console.Write(ControlChars.Lf)
                Console.Write("Do you want to surrender (y/n)? ")
            cin >> prompt
                If prompt = AscW("y"c) Then
                    Exit Do
                End If
            Loop
            Console.Write("Game over!")
            Console.Write(ControlChars.Lf)
            GlobalMembersMain.Show()
            System("pause")
            Return 0
        End Function
    End Class
 
End Module

[Niya]

Whats wrong with it ?

[techgnome]

1) no one's going to fix your code for you blindly. Put some effort. At least mark the line(s) where you're getting errors and what the errors are.
2) No one like looking at a wall of code like that. Next time, use [code][/code] or [highlight=XXX][/highlight] tags (where XXX is the languages (SQL, VB, VB.NET, C#, etc)) It preserves the formatting and makes it easier to read. Right now it just lookslikeasentencewithnospacesinit.

-tg

[MAG x ZOMBIES]

sorry I haven't been on in a while internet has been down > OK cheers for the info techgnome but it was my first post and I will remember for next time.

but the errors are that it can,t find the Sub Main and it expects a identifier at the end of the line five where it says class for the first time and if i put anything there it mess's the whole code up

lines :
5 and 6

[MAG x ZOMBIES]

Moderators please close this thread as i am scrapping the program and working on it from scratch again.

[Nightwalker83]

Moderators please close this thread as i am scrapping the program and working on it from scratch again.

You can post the working code here when you redo the above code.