Você está aqui: VB.NET ::: Dicas & Truques ::: Matemática e Estatística |
Como resolver uma equação do segundo grau em VB.NET - Como calcular Bhaskara em VB.NETQuantidade de visualizações: 413 vezes |
Como resolver uma equação do 2º grau usando VB.NET Nesta dica mostrarei como encontrar as raízes de uma equação quadrática, ou seja, uma equação do 2º usando a linguagem VB.NET. Definimos como equação do 2º grau ou equações quadráticas qualquer equação do tipo ax² + bx + c = 0 em que a, b e c são números reais e a ≠ 0. Ela recebe esse nome porque, no primeiro membro da igualdade, há um polinômio de grau dois com uma única incógnita. Note que, dos coeficientes a, b e c, somente o a é diferente de zero, pois, caso ele fosse igual a zero, o termo ax² seria igual a zero, logo a equação se tornaria uma equação do primeiro grau: bx + c = 0. Independentemente da ordem da equação, o coeficiente a sempre acompanha o termo x², o coeficiente b sempre acompanha o termo x, e o coeficiente c é sempre o termo independente. Como resolver uma equação do 2º grau Conhecemos como soluções ou raízes da equação ax² + bx + c = 0 os valores de x que fazem com que essa equação seja verdadeira. Uma equação do 2º grau pode ter no máximo dois números reais que sejam raízes dela. Para resolver equações do 2º grau completas, existem dois métodos mais comuns: a) Fórmula de Bhaskara; b) Soma e produto. O primeiro método é bastante mecânico, o que faz com que muitos o prefiram. Já para utilizar o segundo, é necessário o conhecimento de múltiplos e divisores. Além disso, quando as soluções da equação são números quebrados, soma e produto não é uma alternativa boa. Como resolver uma equação do 2º grau usando Bhaskara Como nosso código VB.NET vai resolver a equação quadrática usando a Fórmula de Bhaskara, o primeiro passo é encontrar o determinante. Veja: \[\Delta =b^2-4ac\] Nem sempre a equação possui solução real. O valor do determinante é que nos indica isso, existindo três possibilidades: a) Se determinante > 0, então a equação possui duas soluções reais. b) Se determinante = 0, então a equação possui uma única solução real. c) Se determinante < 0, então a equação não possui solução real. Encontrado o determinante, só precisamos substituir os valores, incluindo o determinante, na Fórmula de Bhaskara: \[x = \dfrac{- b\pm\sqrt{b^2- 4ac}}{2a}\] Vamos agora ao código VB.NET. Nossa aplicação vai pedir para o usuário informar os valores dos três coeficientes a, b e c e, em seguida, vai apresentar as raizes da equação: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' os coeficientes Dim a, b, c As Double ' as duas raizes, a imaginaria e o discriminante Dim raiz1, raiz2, imaginaria, discriminante As Double ' vamos pedir para o usuário informar os valores dos coeficientes Console.Write("Valor do coeficiente a: ") a = Double.Parse(Console.ReadLine()) Console.Write("Valor do coeficiente b: ") b = Double.Parse(Console.ReadLine()) Console.Write("Valor do coeficiente c: ") c = Double.Parse(Console.ReadLine()) ' vamos calcular o discriminante discriminante = (b * b) - (4 * a * c) ' a equação possui duas soluções reais? If discriminante > 0 Then raiz1 = (-b + Math.Sqrt(discriminante)) / (2 * a) raiz2 = (-b - Math.Sqrt(discriminante)) / (2 * a) Console.Write("Existem duas raizes: x1 = " & raiz1 _ & " e x2 = " & raiz2) ElseIf discriminante = 0 Then ' a equação possui uma única solução real? raiz1 = raiz2 = -b / (2 * a) Console.Write("Existem duas raizes iguais: x1 = " _ & raiz1 & " e x2 = " & raiz2) ElseIf discriminante < 0 Then ' a equação não possui solução real? raiz1 = raiz2 = -b / (2 * a) imaginaria = Math.Sqrt(-discriminante) / (2 * a) Console.Write("Existem duas raízes complexas: x1 = " & raiz1 & " + " & imaginaria & " e x2 = " & raiz2 _ & " - " & imaginaria) End If Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Valor do coeficiente a: 1 Valor do coeficiente b: 2 Valor do coeficiente c: -3 Existem duas raizes: x1 = 1 e x2 = -3 |
Link para compartilhar na Internet ou com seus amigos: |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como contar as ocorrências de um caractere em uma string em VB.NET usando o método IndexOf()Quantidade de visualizações: 12540 vezes |
Nesta dica mostrarei como podemos usar o método IndexOf() da classe String do VB.NET e o laço While para contar quantas vezes um determinado caractere ocorre em uma palavra, frase ou string. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim frase As String = "Gosto muito de VB.NET e você?" Dim letra As Char = "o" Dim quant As Integer = 0 Dim pos As Integer = -1, pos_ant As Integer = -1 Dim cont As Integer = 0 ' mostra a frase Console.WriteLine("A frase é: " & frase) While cont < frase.Length pos = frase.IndexOf(letra, cont) If pos <> pos_ant And pos <> -1 Then Console.WriteLine("""" & letra & """ encontrada na posição " & pos) quant += 1 End If cont += 1 pos_ant = pos End While ' mostra a quantidade de ocorrências da letra "o" Console.WriteLine("Encontrei " & quant & " ocorrências da " _ & "letra " & letra) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: A frase é: Gosto muito de VB.NET e você? "o" encontrada na posição 1 "o" encontrada na posição 4 "o" encontrada na posição 10 "o" encontrada na posição 25 Encontrei 4 ocorrências da letra o |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como testar se uma variável do tipo string ainda é null ou vazia em VB.NET usando a função IsNullOrEmpty()Quantidade de visualizações: 15057 vezes |
Em algumas situações nós precisamos verificar se uma variável do tipo String ainda é null ou vazia. Para isso nós podemos usar o método IsNullOrEmpty(). Note que null em VB.NET é representado pela palavra-chave Nothing. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim var1 As String ' ainda não foi inicializada...é null Dim var2 As String = Nothing ' é null Dim var3 As String = "" ' está vazia If String.IsNullOrEmpty(var1) Then Console.WriteLine("A variável var1 ainda é null ou vazia") End If If String.IsNullOrEmpty(var2) Then Console.WriteLine("A variável var2 ainda é null ou vazia") End If If String.IsNullOrEmpty(var3) Then Console.WriteLine("A variável var3 ainda é null ou vazia") End If Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: A variável var1 ainda é null ou vazia A variável var2 ainda é null ou vazia A variável var3 ainda é null ou vazia |
VB.NET ::: Dicas & Truques ::: Strings e Caracteres |
Como converter uma string para letras maiúsculas em VB.NET usando o método ToUpper() da classe StringQuantidade de visualizações: 10231 vezes |
Nesta dica mostrarei como podemos usar o método ToUpper() da classe String do VB.NET para converter todos os caracteres de uma palavra, frase ou texto para letras maiúsculas. Veja o código completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) Dim frase As String = "VejA esta FRASe" ' vamos mostrar a frase original Console.WriteLine("Frase original: " & frase) ' transforma tudo em letras maiúsculas frase = frase.ToUpper() ' agora mostramos a frase em letras maiúsculas Console.WriteLine("Em letras maiúsculas: " & frase) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module Ao executar este código VB.NET nós teremos o seguinte resultado: Frase original: VejA esta FRASe Em letras maiúsculas: VEJA ESTA FRASE |
VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Exercício Resolvido de VB.NET - Como ler um número inteiro e imprimir seu sucessor e seu antecessor em VB.NETQuantidade de visualizações: 542 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET para ler um número inteiro e imprimir seu sucessor e seu antecessor. O usuário poderá informar um valor positivo ou negativo. Sua saída deverá ser parecida com: Informe um número inteiro: 16 O número informado foi: 16 O antecessor é 15 O sucessor é: 17 Veja a resolução comentada deste exercício usando VB.NET: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Imports System Module Program Sub Main(args As String()) ' vamos pedir ao usuário que informe um número inteiro Console.Write("Informe um número inteiro: ") Dim numero As Integer = Integer.Parse(Console.ReadLine()) ' vamos calcular o sucessor do número informado Dim sucessor As Integer = numero + 1 ' vamos calcular o antecessor do número informado Dim antecessor As Integer = numero - 1 ' e agora mostramos os resultados Console.WriteLine("O número informado foi: {0}", numero) Console.WriteLine("O antecessor é {0}", antecessor) Console.WriteLine("O sucessor é: {0}", sucessor) Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
VB.NET ::: Fundamentos da Linguagem ::: Estruturas de Controle |
Como usar a instrução Select...Case do VB.NETQuantidade de visualizações: 20617 vezes |
As instruções If...Then e If...Then...Else são muito úteis para testarmos condições em nossos códigos. Porém, há situações em que os caminhos a serem testados são tantos que se torna um pouco tedioso escrever tantos ElseIfs. Para estas situações nós temos a instrução Select...Case. Veja seu uso no trecho de código abaixo:---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- Dim valor As Integer = 7 Select Case valor Case 1 To 5 Console.WriteLine("Entre 1 e 5 (inclusive)") Case 6, 7, 8 Console.WriteLine("Entre 6 e 8 (inclusive)") Case 9 To 10 Console.WriteLine("Igual a 9 ou 10") Case Else Console.WriteLine("Não encontrado no teste") End Select Os valores a serem testados em cada passo da instrução podem ser separados por vírgulas ou por faixa, usando a palavra-chave To. Neste último caso, o valor limite também é incluído no teste. O tipo de dados da variável de teste deve se enquadrar nos tipos: Boolean, Byte, Char, Date, Double, Decimal, Integer, Long, Object, SByte, Short, Single, String, UInteger, ULong e UShort. |
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
Quem Somos |
Programador Freelancer - Full Stack Developer, Professional Java Developer, PHP, C/C++, Python Programmer, wxWidgets Professional C++ Programmer, Freelance Programmer. Formado em Ciência da Computação pela UNIP (Universidade Paulista Campus Goiânia) e cursando Engenharia Civil pela PUC-Goiás. Possuo conhecimentos avançados de Java, Python, JavaScript, C, C++, PHP, C#, VB.NET, Delphi, Android, Perl, e várias tecnologias que envolvem o desenvolvimento web, desktop, front-end e back-end. Atuo há mais de 20 anos como programador freelancer, atendendo clientes no Brasil, Portugal, Argentina e vários outros paises.
Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
Programador Freelancer - Formado em Sistemas de Informação pela Faculdade Delta, Pós graduado em Engenharia de Software (PUC MINAS), Pós graduado Marketing Digital (IGTI) com ênfase em Growth Hacking. Mais de 15 anos de experiência em programação Web. Marketing Digital focado em desempenho, desenvolvimento de estratégia competitiva, analise de concorrência, SEO, webvitals, e Adwords, Métricas de retorno. Especialista Google Certificado desde 2011 Possui domínio nas linguagens PHP, C#, JavaScript, MySQL e frameworks Laravel, jQuery, flutter. Atualmente aluno de mestrado em Ciência da Computação (UFG)
Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |
Códigos Fonte |
Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |