Todos conocemos la formula para averiguar raices, donde segun mi gusto D vale b^2 -4(A)(C)
Si D > 0 Entonces que muestre X1 y X2
Si D = 0 Entonces X1 = X2
Si D < 0 entonces que muestre -(b)/ 2*a + SQR o Raiz de (b)^2 -4 (A) (C) / 2*a
Acá esta el código:
Código
Private Sub cmdOperar_Click() 'Declaración de variables Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, X1 As Long, X2 As Long, aux As Long, funcion As Long 'Asignación de objetos a las variables A = Val(txtNum1.Text) B = Val(txtNum2.Text) C = Val(txtNum3.Text) D = (B) ^ 2 - 4 * (A) * (C) E = -(B) / 2 * (A) X1 = E + (Sqr(D)) / 2 * (A) X2 = E - (Sqr(D)) / 2 * (A) aux = (Sqr(D)) / 2 * (A) funcion = E + aux 'Condiciones If D > 0 Then txtRaiz1.Text = Str(X1) txtRaiz2.Text = Str(X2) End If If D = 0 Then X1 = X2 End If If D < 0 Then txtRaiz1.Text = funcion End If End Sub
Aca una imagen del programa:
Y aca les dejo el proyecto por si lo quieren revisar:
http://www.mediafire.com/?jowqozzzmmj
Muchas gracias, no sé que es lo que puede estar saliendo mal