elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / PROBLEMA CON NUMERO IMAGINARIO en: 22 Noviembre 2011, 04:53 am
Estoy realizando un programa que resuelve ecuaciones de segundo grado con la formula general .. Asi obtener las dos raices ..

Bueno .. toda va bien el programa corre excelente y da resultados correctos , el problema es cuando metes algun dato que hace que nos de un numero imaginario
sqr(numero negativo) .. Ahi es donde esta el problema .. Tengo que agregar una i que representa un numero imaginario les paso el codigo para que lo chequen .. la pregunta del millon es

¿Como hacerle para agregarle la i ?




Option Explicit
Dim a As Double
Dim b As Double
Dim c As Double
-------------------------------------------------------------------------------------------------

Private Sub Formula(a As Double, b As Double, c As Double, d As Double)

Dim raiz1 As Double
Dim raiz2 As Double

d = (b ^ 2 - 4 * a * c)

If d < 0 Then ' Aqui me atore

raiz1 = (-b + Sqr(d)) / (2 * a)

raiz2 = (-b - Sqr(d)) / (2 * a)

lblResultado1.Caption = raiz1
lblResultado2.Caption = raiz2

end sub

-------------------------------------------------------------------------------------------------

Private Sub cmdCalcular_Click()
If txta = "" Then
    MsgBox "Ingrese el valor a", vbCritical, "Error"
        txta.SetFocus
ElseIf txtb = "" Then
    MsgBox "Ingrese el valor b", vbCritical, "Error"
        txtb.SetFocus
ElseIf txtc = "" Then
    MsgBox "Ingrese el valor c", vbCritical, "Error"
        txtc.SetFocus
    Else
        a = Val(txta.Text)
        b = Val(txtb.Text)
        c = Val(txtc.Text)
       
End If


Call Formula(a, b, c)


End Sub

Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines