Programming Forums - Console Problems

Programming Forums (http://www.programmingforums.org/forumindex.php)

- Visual Basic .NET (http://www.programmingforums.org/forum19.html)

- - Console Problems (http://www.programmingforums.org/showthread.php?t=11370)

Console Problems

Module Module1



    Sub Main()

        Console.Title = "Speech Calculator Demonstration"

        Console.WriteLine("Thank you for paying attention to my Speech Calculator Demonstration", vbCrLf, "for Mrs.McCurley's Class. I hope you get something out of my speech")

        Console.WriteLine("Please choose the type of problem you want to calculate")

        Console.WriteLine("-------------------------------------------------------")

        Console.WriteLine("1. Addition")

        Console.WriteLine("2. Subtraction")

        Console.WriteLine("3. Multiplication")

        Console.WriteLine("4. Division")

        Console.WriteLine("5. Exit")

        Console.WriteLine("-------------------------------------------------------")

        If Console.ReadLine = "1" Then

            Call add1()

        End If

        If Console.ReadLine = "2" Then

            Call sub1()

        End If

        If Console.ReadLine = "3" Then

            Call mul1()

        End If

        If Console.ReadLine = "4" Then

            Call div1()

        End If

        If Console.ReadLine = "5" Then

            Exit Sub

        End If

    End Sub



    Sub again()

        Console.Title = "Speech Calcualtor Demonstration"

        Console.WriteLine("Thank you for paying attention to my Speech Calculator Demonstration", vbCrLf, "for Mrs.McCurley's Class. I hope you get something out of my speech")

        Console.WriteLine("Please choose the type of problem you want to calculate")

        Console.WriteLine("-------------------------------------------------------")

        Console.WriteLine("1. Addition")

        Console.WriteLine("2. Subtraction")

        Console.WriteLine("3. Multiplication")

        Console.WriteLine("4. Division")

        Console.WriteLine("-------------------------------------------------------")

    End Sub



    Sub add1()

        Dim number1 As Double

        Dim number2 As Double

        Dim result As String

        Console.WriteLine("Please enter your first number")

        number1 = Console.ReadLine()

        Console.WriteLine("Please enter your second number")

        number2 = Console.ReadLine()

        result = number1 + number2

        Console.WriteLine("The answer to " & number1 & "+" & number2 & "=" & result)

        Console.WriteLine("Would you like to calculate another problem?")

        If Console.ReadLine = "Yes" Then

            Call Main()

        Else

            Exit Sub

        End If

    End Sub



    Sub sub1()

        Dim number1 As Double

        Dim number2 As Double

        Dim result As String

        Console.WriteLine("Please enter your first number")

        number1 = Console.ReadLine()

        Console.WriteLine("Please enter your second number")

        number2 = Console.ReadLine()

        result = number1 - number2

        Console.WriteLine("The answer to " & number1 & "-" & number2 & "=" & result)

        Console.WriteLine("Would you like to calculate another problem?")

        Console.ReadLine()

        If Console.ReadLine = "Yes" Then

            Call Main()

        Else

            Exit Sub

        End If

    End Sub



    Sub mul1()

        Dim number1 As Double

        Dim number2 As Double

        Dim result As String

        Console.WriteLine("Please enter your first number")

        number1 = Console.ReadLine()

        Console.WriteLine("Please enter your second number")

        number2 = Console.ReadLine()

        result = number1 * number2

        Console.WriteLine("The answer to " & number1 & "*" & number2 & "=" & result)

        Console.WriteLine("Would you like to calculate another problem?")

        Console.ReadLine()

        If Console.ReadLine = "Yes" Then

            Call Main()

        Else

            Exit Sub

        End If

    End Sub



    Sub div1()

        Dim number1 As Double

        Dim number2 As Double

        Dim result As String

        Console.WriteLine("Please enter your first number")

        number1 = Console.ReadLine()

        Console.WriteLine("Please enter your second number")

        number2 = Console.ReadLine()

        result = number1 / number2

        Console.WriteLine("The answer to " & number1 & "/" & number2 & "=" & result)

        Console.WriteLine("Would you like to calculate another problem?")

        Console.ReadLine()

        If Console.ReadLine = "Yes" Then

            Call Main()

        Else

            Exit Sub

        End If

    End Sub

End Module

The problem I am having is this. When I choose my type of problem instead of having to enter the # once I have to enter it twice before it calls the Sub. Then when I want to do another problem and I type yes, it wont go, so I keep typign yes and after 4 times it exits the program. I am so confused since I dont even have that many console.readline's in the sub's. Please help

I don't do .NET; that said, what do you suppose would happen if everyone that wanted to study the universe began with a call to "big bang".

Quote:

Originally Posted by DaWei (Post 114758)

I don't do .NET; that said, what do you suppose would happen if everyone that wanted to study the universe began with a call to "big bang".

It seems like you have a habit of leaving your pearls of wisdom buried in the mud, one might not always be able to see what you're talking about, but once one gets their hands sufficiently dirty it is easy enough to find.

-MBirchmeier

Module Module1
 
    Sub Main()
        Console.Title = "Speech Calculator Demonstration"
        Console.WriteLine("Thank you for paying attention to my Speech Calculator Demonstration", vbCrLf, "for Mrs.McCurley's Class. I hope you get something out of my speech")
        Console.WriteLine("Please choose the type of problem you want to calculate")
        Console.WriteLine("-------------------------------------------------------")
        Console.WriteLine("1. Addition")
        Console.WriteLine("2. Subtraction")
        Console.WriteLine("3. Multiplication")
        Console.WriteLine("4. Division")
        Console.WriteLine("5. Exit")
        Console.WriteLine("-------------------------------------------------------")
        Dim choice As String
        choice = Console.ReadLine()
        If choice = "1" Then
            Call add1()
        ElseIf choice = "2" Then
            Call sub1()
        ElseIf choice = "3" Then
            Call mul1()
        ElseIf choice = "4" Then
            Call div1()
        ElseIf choice = "5" Then
            Exit Sub
        End If
    End Sub
 
    Sub again()
        Console.Title = "Speech Calcualtor Demonstration"
        Console.WriteLine("Thank you for paying attention to my Speech Calculator Demonstration", vbCrLf, "for Mrs.McCurley's Class. I hope you get something out of my speech")
        Console.WriteLine("Please choose the type of problem you want to calculate")
        Console.WriteLine("-------------------------------------------------------")
        Console.WriteLine("1. Addition")
        Console.WriteLine("2. Subtraction")
        Console.WriteLine("3. Multiplication")
        Console.WriteLine("4. Division")
        Console.WriteLine("-------------------------------------------------------")
    End Sub
 
    Sub add1()
        Dim number1 As Double
        Dim number2 As Double
        Dim result As String
        Console.WriteLine("Please enter your first number")
        number1 = Console.ReadLine()
        Console.WriteLine("Please enter your second number")
        number2 = Console.ReadLine()
        result = number1 + number2
        Console.WriteLine("The answer to " & number1 & "+" & number2 & "=" & result)
        Console.WriteLine("Would you like to calculate another problem?")
        Dim choice As String
        choice = Console.ReadLine()
        If choice = "Yes" Then
            Call Main()
        Else
            Exit Sub
        End If
    End Sub
 
    Sub sub1()
        Dim number1 As Double
        Dim number2 As Double
        Dim result As String
        Console.WriteLine("Please enter your first number")
        number1 = Console.ReadLine()
        Console.WriteLine("Please enter your second number")
        number2 = Console.ReadLine()
        result = number1 - number2
        Console.WriteLine("The answer to " & number1 & "-" & number2 & "=" & result)
        Console.WriteLine("Would you like to calculate another problem?")
        Dim choice As String
        choice = Console.ReadLine()
        If choice = "Yes" Then
            Call Main()
        Else
            Exit Sub
        End If
    End Sub
 
    Sub mul1()
        Dim number1 As Double
        Dim number2 As Double
        Dim result As String
        Console.WriteLine("Please enter your first number")
        number1 = Console.ReadLine()
        Console.WriteLine("Please enter your second number")
        number2 = Console.ReadLine()
        result = number1 * number2
        Console.WriteLine("The answer to " & number1 & "*" & number2 & "=" & result)
        Console.WriteLine("Would you like to calculate another problem?")
        Dim choice As String
        choice = Console.ReadLine()
        If choice = "Yes" Then
            Call Main()
        Else
            Exit Sub
        End If
    End Sub
 
    Sub div1()
        Dim number1 As Double
        Dim number2 As Double
        Dim result As String
        Console.WriteLine("Please enter your first number")
        number1 = Console.ReadLine()
        Console.WriteLine("Please enter your second number")
        number2 = Console.ReadLine()
        result = number1 / number2
        Console.WriteLine("The answer to " & number1 & "/" & number2 & "=" & result)
        Console.WriteLine("Would you like to calculate another problem?")
        Dim choice As String
        choice = Console.ReadLine()
        If choice = "Yes" Then
            Call Main()
        Else
            Exit Sub
        End If
    End Sub
 
End Module

Above is the way I took your code and changed it. What I ended up doing is removing all the console.readline's you had inside of the if statements and put one before the if and and put the input into a variable instead and then checking the variable in the if. After testing it. It looks like it worked fine.

After looking through your code, I couldn't figure out where the again() sub was being used. Seems like of pointless to have it there.

Quote:

have a habit of leaving your pearls of wisdom buried in the mud

Sometimes I do. Sometimes I submit full-blown copy-and-paste solutions or long-drawn-out explications and discussions. Feed a man a fish, he'll eat for a day. Point him to the way out of the cave-in, and dirty fingernails or not, he prolly won't be digging under shaky cutbanks again.

Thanks big_k, the again was at the start where Call Main is now, I looked over my code and relized agaim and Main are the same code, before I had it call again and then changed it to call Main, thkans though.

And yes Dawei, I was a bit confused at your first post, but thanks for trying to help. Maybe when I'm older I can give advice like that. lol