Uma equação quadrática é um polinômio de segundo grau que tem a forma "ax ^ 2 + bx + c = 0". O "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 solicite ao usuário inserir os valores a, bec, encontrar as raízes e, em seguida, exibir os valores no Formato.
Passo 1
Abra um novo programa Visual Basic. Clique duas vezes na ferramenta "Botão" para adicionar o Button1 ao formulário. Clique duas vezes na ferramenta "Rótulo" duas vezes para adicionar Rótulo1 e Rótulo2 ao formulário.
Vídeo do dia
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 ("Enter A:") Dim b As Decimal = InputBox ("Enter B:") Dim c As Decimal = InputBox ("Enter C:") Quadrático (a, b, c)
As primeiras três linhas solicitam ao usuário os valores das constantes. Em seguida, ele chama uma sub-rotina chamada "Quadrática" e passa as constantes como argumentos para ela.
etapa 3
Insira o cursor fora do sub Button1. Digite o seguinte código:
Sub Quadrático Privado (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Raizes dim (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
A primeira linha cria o sub Quadrático e aceita três argumentos. Em seguida, define uma matriz com dois itens para as duas raízes. Em seguida, ele cria três variáveis decimais e atribui o valor do discriminante, que determina o número de raízes da equação quadrática.
Passo 4
Digite o seguinte código:
Se disco> = 0 Então x1 = (-b + Math. Sqrt (disco)) / (2 * a) x2 = (-b - Matemática. Sqrt (disco)) / (2 * a) raízes (0) = x1. Raízes ToString (1) = x2.ToString Raízes Else (0) = "(-" & b. ToString & "+ Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" raízes (1) = "(-" & b. ToString & "-Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" End If
A função "se" 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, ele resolve para x. Se o discriminante for menor que zero, a equação não tem raízes reais e a parte "senão" é executada, exibindo as equações de raízes complexas.
Etapa 5
Digite o seguinte código:
Label1.Text = roots (0) Label2.Text = roots (1) End Sub
Essas linhas de código simplesmente exibem as raízes nos rótulos e, em seguida, fecham o bloco de código do sub Quadrático.
Etapa 6
Salve o programa Visual Basic. Pressione “F5 ″ para executá-lo.
