Cómo programar ecuaciones cuadráticas en Visual Basic

Visual Basic puede resolver las ecuaciones cuadráticas
Por laura gittins

Paso 1

Abre un programa nuevo de Visual Basic. Haz doble clic en el botón de la herramienta para añadir Button1 en el formulario. Haz doble clic en la herramienta "Etiqueta" dos veces para añadir Label1 y Label2 al formulario.


Paso 2

Haz doble clic en "Button1" en el formulario para abrir la ventana del código. Escribe el siguiente código: Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Quadratic(a, b, c)

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


Paso 3

Lleva el cursor fuera del sub Button1. Escribe el siguiente 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

La primera línea crea el sub Cuadrático y acepta los tres argumentos. Luego define una selección con dos elementos para las dos raíces. Después crea tres variables decimales y le asigna el valor de la discriminante, que determina el número de raíces que la ecuación cuadrática tiene.


Paso 4

Escribe el siguiente 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

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


Paso 5

Escribe el siguiente código: Label1.Text = roots(0) Label2.Text = roots(1) End Sub

Estas líneas del código simplementen muestran las raíces en las etiquetas y luego cierran el bloque de códigos del sub Cuadrático.


Paso 6

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