none
VB.NET AJUDA! RRS feed

  • Pergunta

  • Bom eu queria saber muito como é que eu faço para o if não diferenciar as letras maiúsculas e minúsculas por exemplo

    Dim Resposta as String

    Resposta = InputBox("Sim ou não?")

    If Resposta = "Sim" then

    MsgBox("Sim novamente")

    end if

    se o usuário digitar "SIM", o programa não reconhece a resposta dele, porque tudo está em maiúsculo o mesmo acontece se tudo ficar minúsculo, o programa só reconhecerá se o usuário digitar "Sim"

    quarta-feira, 27 de setembro de 2017 16:20

Respostas

  • Voce tem que "forçar" a conversao para maiusculas ou minusculas, deste jeito:

    Dim Resposta as String
    
    Resposta = InputBox("Sim ou não?")
    
    If Resposta.ToUpper() = "SIM" then
    
    MsgBox("Sim novamente")
    
    end if

    ou  assism:

    Dim Resposta as String
    
    Resposta = InputBox("Sim ou não?")
    
    If Resposta.ToLower() = "sim" then
    
    MsgBox("Sim novamente")
    
    end if

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    quarta-feira, 27 de setembro de 2017 16:23
    Moderador
  • Boa noite, Ezequiel

    Para que seu código funcione, deve-se primeiramente converter para maiúsculas ou minúsculas, assim:

    Dim Resposta As String
            Resposta = InputBox("Sim ou não?")

            If Resposta.ToLower.Contains("sim") Then

                MsgBox("Sim Novamente")

    End If

    Ou assim:

    Dim Resposta As String
            Resposta = InputBox("Sim ou não?")

            If Resposta.ToUpper.Contains("SIM") Then

                MsgBox("Sim Novamente")

    End If

    Ou assim, sem necessidade da variável

    If InputBox("Sim ou não?").ToUpper.Contains("SIM") Then

                MsgBox("Sim Novamente")

    End If

    Para algo mais completo, o código ficaria assim:

           Dim Resposta As String = InputBox("Sim ou Não?").ToLower


            If Resposta.Contains("sim") Then

                MsgBox("Você selecionou Sim.")

            ElseIf Resposta.Contains("não") Then

                MsgBox("Você selecionou Não.")

            Else

                MsgBox("Você não selecionou nenhuma alternativa válida.")

            End If

    quarta-feira, 1 de novembro de 2017 00:51

Todas as Respostas

  • Voce tem que "forçar" a conversao para maiusculas ou minusculas, deste jeito:

    Dim Resposta as String
    
    Resposta = InputBox("Sim ou não?")
    
    If Resposta.ToUpper() = "SIM" then
    
    MsgBox("Sim novamente")
    
    end if

    ou  assism:

    Dim Resposta as String
    
    Resposta = InputBox("Sim ou não?")
    
    If Resposta.ToLower() = "sim" then
    
    MsgBox("Sim novamente")
    
    end if

    att


    William John Adam Trindade
    Analyste-programmeur


    Sogi Informatique ltée
    If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer". Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".

    quarta-feira, 27 de setembro de 2017 16:23
    Moderador
  • Bom eu encontrei um jeito de fazer isso através do seu código

            Dim Resposta As String
            Resposta = InputBox("Sim ou não?")
            If Resposta.ToUpper = "SIM" Or Resposta.ToLower = "sim" Then
                MsgBox("Sim Novamente")
            End if                                                                                                                                                                ' e funcionou como eu esperava

    obrigado!

    quarta-feira, 27 de setembro de 2017 16:31
  • Veja se ajuda?

    if Resposta.Constains("sim") then

    msgbox("Sim Novamente")

    end if

    quarta-feira, 27 de setembro de 2017 19:19
  • Boa noite Deivison

    O seu código realmente funciona, porém é redundante. É quase o mesmo que dizer:

    Dim Resposta As Int32
            Resposta = InputBox("3 ou 5?")
            If Resposta. + 1 = 4 Or Resposta - 1 = 4 Then
                MsgBox("Sim Novamente")
    End if 

    Basta utilizar uma das soluções propostas acima pelo colega William John Adam Trindade. 

    quarta-feira, 1 de novembro de 2017 00:30
  • Boa noite, Ezequiel

    Para que seu código funcione, deve-se primeiramente converter para maiúsculas ou minúsculas, assim:

    Dim Resposta As String
            Resposta = InputBox("Sim ou não?")

            If Resposta.ToLower.Contains("sim") Then

                MsgBox("Sim Novamente")

    End If

    Ou assim:

    Dim Resposta As String
            Resposta = InputBox("Sim ou não?")

            If Resposta.ToUpper.Contains("SIM") Then

                MsgBox("Sim Novamente")

    End If

    Ou assim, sem necessidade da variável

    If InputBox("Sim ou não?").ToUpper.Contains("SIM") Then

                MsgBox("Sim Novamente")

    End If

    Para algo mais completo, o código ficaria assim:

           Dim Resposta As String = InputBox("Sim ou Não?").ToLower


            If Resposta.Contains("sim") Then

                MsgBox("Você selecionou Sim.")

            ElseIf Resposta.Contains("não") Then

                MsgBox("Você selecionou Não.")

            Else

                MsgBox("Você não selecionou nenhuma alternativa válida.")

            End If

    quarta-feira, 1 de novembro de 2017 00:51