Cómo programar ecuaciones cuadráticas en Visual Basic

Una ecuación cuadrática es un polinomio de segundo grado que tiene la forma "ax^2 + bx + c =0". La "a", "b" y "c" son las constantes y "x" es la variable. Cuando resuelve una ecuación cuadrática, debe tener los valores de las constantes y resolver para x, que siempre produce dos valores, llamados "raíces". En Visual Basic, puede escribir un programa o una función que solicite al usuario que ingrese los valores a, b y c, encuentre las raíces y luego muestre los valores en el formulario.

Paso 1

Abra un nuevo programa de Visual Basic. Haga doble clic en la herramienta "Botón" para agregar el Botón1 al formulario. Haga doble clic en la herramienta "Etiqueta" dos veces para agregar Label1 y Label2 al formulario.

Paso 2

Haga doble clic en "Botón1" en el formulario para abrir la ventana de código. Escribe el siguiente código:

Dim a Como Decimal =InputBox("Ingrese A:") Dim b Como Decimal =InputBox("Ingrese B:") Dim c Como Decimal =InputBox("Ingrese C:") Cuadrático(a, b, c)

Las tres primeras líneas solicitan al usuario los valores de las constantes. Luego llama a un sub llamado "Cuadrático" y le pasa las constantes como argumentos.

Paso 3

Inserte el cursor fuera del sub Button1. Escribe el siguiente código:

Subcuadrático privado (ByVal a como decimal, ByVal b como decimal, ByVal c como decimal) Raíces dim (1) como cadena Dim x1, x2, disco como decimal disco =b ^ 2 - 4 * a * c

La primera línea crea el subcuadrático y acepta tres argumentos. Luego define una matriz con dos elementos para las dos raíces. Luego crea tres variables decimales y asigna el valor del discriminante, que determina el número de raíces que tiene la ecuación cuadrática.

Paso 4

Escribe el siguiente código:

Si disco>=0 Entonces x1 =(-b + Math.Sqrt(disco)) / (2 * a) x2 =(-b - Math.Sqrt(disco)) / (2 * a) raíces(0) =x1 .ToString raíces(1) =x2.ToString Else raíces(0) ="(-" &b.ToString &"+Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" raíces(1) ="(-" &b.ToString &"-Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" End If

La función "if" verifica si el valor del discriminante es mayor o igual a cero, lo que significa que la ecuación tiene una o dos raíces. Luego resuelve para x. Si el discriminante es menor que cero, la ecuación no tiene raíces reales y se ejecuta la parte "si no", que muestra las raíces complejas de las ecuaciones.

Paso 5

Escribe el siguiente código:

Etiqueta1.Texto =raíces(0) Etiqueta2.Texto =raíces(1) End Sub

Estas líneas de código simplemente muestran las raíces en las etiquetas y luego cierran el bloque de código de Quadratic sub.

Paso 6

Guarde el programa de Visual Basic. Presiona "F5" para ejecutarlo.