Loop

I want to put a loop on this program

Code:

---

Module Module1
    Class Arithmetical
        Public Function Add(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A + B + C
        End Function
        Public Function Mult(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A * B * C
        End Function
    End Class
    Sub Main()

        Dim obj As New Arithmetical
        Dim A, B, C, Sum, Product As Integer
        Dim Repeater As String
        Console.WriteLine("Please enter a number value.")
        A = Console.ReadLine
        B = Console.ReadLine
        C = Console.ReadLine
        Sum = (obj.Add(A, B, C))
        Console.WriteLine("Here is the result when the numbers are added:")
        Console.WriteLine(Sum)
        Product = (obj.Mult(A, B, C))
        Console.WriteLine("Here is the result when the numbers are divided:")
        Console.WriteLine(Product)

        Console.WriteLine("Would you like to run this program again? Y/N")
        Repeater = Console.ReadLine
        If Repeater = "Y" Then



        End If


        Console.ReadKey()



    End Sub


End Module

---

Where it says If repeater = Y I want it to go back to the top of the program.
How would I go about doing this?

Code:

---

Module Module1
        Public Repeater As String

    Class Arithmetical

        Public Function Add(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A + B + C
        End Function

        Public Function Mult(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A * B * C
        End Function
    End Class

Public Function DoMath()
        Dim obj As New Arithmetical
        Dim A, B, C, Sum, Product As Integer
        Console.WriteLine("Please enter a number value.")
        A = Console.ReadLine
        B = Console.ReadLine
        C = Console.ReadLine
        Sum = (obj.Add(A, B, C))
        Console.WriteLine("Here is the result when the numbers are added:")
        Console.WriteLine(Sum)
        Product = (obj.Mult(A, B, C))
        Console.WriteLine("Here is the result when the numbers are divided:")
        Console.WriteLine(Product)

        Console.WriteLine("Would you like to run this program again? Y/N")
        Repeater = Console.ReadLine
End Function

Sub Main()
    DoMath()
    If Repeater = "Y" Then
      DoMath()
    End If
End Sub

---

Erm, that code doesn't seem to work for me. It's saying that DoMath is not declared?

Do you have this line in your code?

vb Code:

Public Function DoMath()

Did you remember to add End Module?

Okay, I realized the problem-- I was ending the class AFTER the DoMath Function. However, now when I am debugging, I attempt to run the program again but after I hit Y and enter, the cursor goes down a line, and upon hitting enter again, ends?

Try this:

vb Code:

Sub Main()
    DoMath()
    If Repeater.ToUpper = "Y" Then
       DoMath()
    End If
End Sub

Also look at this line: Console.WriteLine("Here is the result when the numbers are divided:")
You're multiplying the numbers, not dividing them...

Now it says NullReferenceException was unhandled, when and it points to The Then after If Repeater.toUpper = Y.

Works for me...Post your code again as it is now.

And also, assuming you want to run this until the user does not press 'N', your code should be:

vb Code:

Sub Main()
        DoMath()
        Do While Repeater.ToUpper = "Y"
            DoMath()
        Loop
    End Sub

Or perhaps:

vb Code:

Sub Main()
    Do
        DoMath()
    Loop While Repeater.ToUpper = "Y"
End Sub

?

http://tinypic.com/r/28vboma/7

so thats what its saying..

Same issue again, even with the new code.

Anyway, if no one can help me with that, I was wondering if I could get some help with exception handling, like a try-catch to make sure the user inputs numbers instead of letters.

I tried to help...See post #9.

Sorry, did the tinypic not get the full code?

Click the link, you tell me.

Code:

---

Module Module1
    Public Repeater As String
    Class Arithmetical
        Public Function Add(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A + B + C
        End Function
        Public Function Mult(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer)
            Return A * B * C
        End Function
    End Class

    Public Function DoMath()

        Dim obj As New Arithmetical
        Dim A, B, C, Sum, Product As Integer
        Dim Repeater As String
        Console.WriteLine("Please enter three values.")
        A = Console.ReadLine
        B = Console.ReadLine
        C = Console.ReadLine
        Sum = (obj.Add(A, B, C))
        Console.WriteLine("Here is the result when the numbers are added:")
        Console.WriteLine(Sum)
        Product = (obj.Mult(A, B, C))
        Console.WriteLine("Here is the result when the numbers are multiplied:")
        Console.WriteLine(Product)

        Console.WriteLine("Would you like to run this program again? Y/N")
        Repeater = Console.ReadLine

    End Function



  Sub Main()
        DoMath()
        Do While Repeater.ToUpper = "Y"
            DoMath()
        Loop
    End Sub


End Module

I tried the version posted both by you and by Evil Giraffe. The End Function after the DoMath function has something wrong with it... although I can't tell what.

---

Remove this line in the DoMath function:

vb Code:

Dim Repeater As String

And take Evil_Giraffe's advice:

vb Code:

Sub Main()
        Do
            DoMath()
        Loop While Repeater.ToUpper = "Y"
    End Sub

That did it. Thank you.

How would i go about adding a Catch Try Finally so no users input a letter as opposed to a number?

Test to see if A, B, and C are numeric. E.G.

vb Code:

If Not IsNumeric(A) Then
                'Do Something
            End If

Also you should turn on 'Option Explicit' and 'Option Strict' within VB, Don't know what I mean? Search for them online.

And your function returns nothing, which is why it's underlined in green.