none
console de calculadora no vb RRS feed

  • Pergunta

  • estou fazendo um console de uma calculadora a principio ja terminei mais o meu problema e o seguinte na divisao o valor 2 nao pode ser igual a 0 se for tem que dar uma msg de erro como que eu faço isso.
    nao onde estou errando mais esta dando erro na hora de executar..

        Sub Main()
            Dim valor1, valor2, result As Double
            Dim opcao As Integer
            Do
                System.Console.WriteLine("Escolha a Operação:")
                System.Console.WriteLine("1 - Somar")
                System.Console.WriteLine("2 - Substrair")
                System.Console.WriteLine("3 - Dividir")
                System.Console.WriteLine("4 - Multiplicar")
                System.Console.WriteLine("5 - Sair")
                System.Console.Write("Escolha a opção:")
                opcao = CInt(System.Console.ReadLine())

                If opcao >= 1 And opcao <= 4 Then
                    System.Console.Write("Valor 1: ")
                    valor1 = CDbl(System.Console.ReadLine())
                    System.Console.Write("Valor 2: ")
                    valor2 = CDbl(System.Console.ReadLine())

                    Select Case opcao
                        Case 1
                            result = valor1 + valor2
                        Case 2
                            result = valor1 - valor2
                        Case 3
                            result = valor1 / valor2
                            If valor2 = 0 Then
                                System.Console.WriteLine("ERROR")

                        Case 4
                                result = valor1 * valor2
                        Case 5

                                End


                    End Select

                    System.Console.WriteLine(result)
                    If (result) = 0 Then
                        System.Console.WriteLine("ERROR: Valor 2 = 0!")

                        System.Console.ReadLine()
                    End If
            Loop Until (opcao = 5)
        End Sub

    End Module
    • Movido AndreAlvesLimaModerator quinta-feira, 7 de outubro de 2010 12:38 (De:Opiniões e sugestões sobre o site e programas do MSDN)
    quinta-feira, 7 de outubro de 2010 00:17

Respostas

  • veja se é isto que pretende:

    Sub Main()

            Dim valor1, valor2, result As Double
            Dim opcao As Integer
            Do
                System.Console.WriteLine("Escolha a Operação:")
                System.Console.WriteLine("1 - Somar")
                System.Console.WriteLine("2 - Substrair")
                System.Console.WriteLine("3 - Dividir")
                System.Console.WriteLine("4 - Multiplicar")
                System.Console.WriteLine("5 - Sair")
                System.Console.Write("Escolha a opção:")
                opcao = CInt(System.Console.ReadLine())

                If opcao >= 1 And opcao <= 4 Then
                    System.Console.Write("Valor 1: ")
                    valor1 = CDbl(System.Console.ReadLine())
                    System.Console.Write("Valor 2: ")
                    valor2 = CDbl(System.Console.ReadLine())

                    Select Case opcao
                        Case 1
                            result = valor1 + valor2
                        Case 2
                            result = valor1 - valor2
                        Case 3
                            If valor2 = 0 Then
                                System.Console.WriteLine("ERRO-O DIVIDENDO NAO PODE SER 0.")
                            Else
                                result = valor1 / valor2
                            End If
                           
                        Case 4
                            result = valor1 * valor2
                        Case 5
                            Return
                    End Select
                    If valor2 <> 0 Then
                        System.Console.WriteLine("Resultado: {0}", result)
                    End If
                  
                End If
            Loop Until (opcao = 5)


        End Sub


    espero ter ajudado.
    quinta-feira, 7 de outubro de 2010 15:33

Todas as Respostas

  • Prezado(a),

    Estou migrando seu post para o fórum de VB.

    Por favor, das próximas vezes que for postar alguma dúvida referente a esse assunto, poste por lá.

    Obrigado.


    André Alves de Lima
    Visite o meu site: http://andrealveslima.spaces.live.com
    Me siga no Twitter: @andrealveslima
    quinta-feira, 7 de outubro de 2010 12:38
    Moderador
  • veja se é isto que pretende:

    Sub Main()

            Dim valor1, valor2, result As Double
            Dim opcao As Integer
            Do
                System.Console.WriteLine("Escolha a Operação:")
                System.Console.WriteLine("1 - Somar")
                System.Console.WriteLine("2 - Substrair")
                System.Console.WriteLine("3 - Dividir")
                System.Console.WriteLine("4 - Multiplicar")
                System.Console.WriteLine("5 - Sair")
                System.Console.Write("Escolha a opção:")
                opcao = CInt(System.Console.ReadLine())

                If opcao >= 1 And opcao <= 4 Then
                    System.Console.Write("Valor 1: ")
                    valor1 = CDbl(System.Console.ReadLine())
                    System.Console.Write("Valor 2: ")
                    valor2 = CDbl(System.Console.ReadLine())

                    Select Case opcao
                        Case 1
                            result = valor1 + valor2
                        Case 2
                            result = valor1 - valor2
                        Case 3
                            If valor2 = 0 Then
                                System.Console.WriteLine("ERRO-O DIVIDENDO NAO PODE SER 0.")
                            Else
                                result = valor1 / valor2
                            End If
                           
                        Case 4
                            result = valor1 * valor2
                        Case 5
                            Return
                    End Select
                    If valor2 <> 0 Then
                        System.Console.WriteLine("Resultado: {0}", result)
                    End If
                  
                End If
            Loop Until (opcao = 5)


        End Sub


    espero ter ajudado.
    quinta-feira, 7 de outubro de 2010 15:33