Como Programar Equações Quadráticas no Visual Basic

Uma equação quadrática é um polinômio de segundo grau que tem a forma "ax² + bx + c = 0". Os "a", "b" e "c" são as constantes e "x" é a variável. Ao resolver uma equação quadrática, você deve ter os valores das constantes e resolver para x, que sempre resulta em dois valores, chamados de "raízes". No Visual Basic, você pode escrever um programa ou função que solicita ao usuário que insira os valores a, b e c, encontre as raízes e exiba os valores no formulário.

Passo 1

Abra um novo programa Visual Basic. Clique duas vezes na ferramenta "Button" para adicionar Button1 ao formulário. Clique duas vezes na ferramenta "Label" duas vezes para adicionar Label1 e Label2 ao formulário.

Passo 2

Clique duas vezes em "Button1" no formulário para abrir a janela de código. Digite o seguinte código:

Dim a As Decimal = InputBox("Digite A: ")
Dim b As Decimal = InputBox("Digite B: ")
Dim c As Decimal = InputBox("Digite C: ")
Quadratic(a, b, c)

As três primeiras linhas solicitam ao usuário os valores das constantes. Em seguida, chama um sub chamado "Quadratic" e passa as constantes como argumentos para ele.

Passo 3

Insira o cursor fora do sub Button1. Digite o seguinte código:

Private Sub Quadratic(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal)
Dim roots(1) As String
Dim x1, x2, disc As Decimal
disc = b ^ 2 - 4 * a * c

A primeira linha cria o sub Quadratic e aceita três argumentos. Em seguida, define um array com dois itens para as duas raízes. Cria três variáveis decimais e atribui o valor do discriminante, que determina o número de raízes que a equação quadrática tem.

Passo 4

Digite o seguinte código:

If disc >= 0 Then
    x1 = (-b + Math.Sqrt(disc)) / (2 * a)
    x2 = (-b - Math.Sqrt(disc)) / (2 * a)
    roots(0) = x1.ToString
    roots(1) = x2.ToString
Else
    roots(0) = "(-" & b.ToString & "+Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
    roots(1) = "(-" & b.ToString & "-Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
End If

A função "if" verifica se o valor do discriminante é maior ou igual a zero, o que significa que a equação tem uma ou duas raízes. Em seguida, resolve para x. Se o discriminante for menor que zero, a equação não tem raízes reais e a parte "else" executa, exibindo as equações das raízes complexas.

Passo 5

Digite o seguinte código:

Label1.Text = roots(0)
Label2.Text = roots(1)
End Sub

Estas linhas de código simplesmente exibem as raízes nos labels e fecham o bloco de código do sub Quadratic.

Passo 6

Salve o programa Visual Basic. Pressione "F5" para executá-lo.

• O Que Significa o Círculo Cinza no Facebook?
• Como Receber Chamadas a Cobrar com MetroPCS