• Home
 · 
• Math/Dates
 · 
• Calculadora cuadratica con resultados reales y complejos.

Calculadora cuadratica con resultados reales y complejos.

Calculadora cuadratica con resultados reales y complejos.

Rate Calculadora cuadratica con resultados reales y complejos.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' NOMBRES: Daniel González, Cristian Grao
Option Explicit ' especifica que todas la variables deben ser declaradas
Dim a, B, C As Single 'declaracion de variables de tipo single

Private Sub Command1_Click() ' comando "limpiar"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub ' fin del private sub del comando 1

Private Sub Command2_Click()
a = Val(Text1.Text) ' las variables evaluadas
B = Val(Text2.Text)
C = Val(Text3.Text)
Dim h  As Single ' declaracion de variables
Dim i As Double
Dim T As Double
T = C / a

If a = 0 And B = 0 Then ' si a=0 y b=0 entonces....
Text4.Text = "error" 'aparece un error

End If ' fin si
If a = 0 And C = 0 Then ' si a=0 y b=0 entonces....
Text4.Text = "error" 'aparece un error
End If 'fin si
If B <> 0 Then ' si b es distinto de 0 entonces...
If a = 0 Then 'si a es igual a 0 entonces...
 Text4.Text = -C / B
  End If
  If a = 0 Then 'si a es igual a 0 entonces...
  Text5.Text = 0
  End If ' fin si
  End If 'fin si
  If a <> 0 Then ' si a es distinto de cero entonces...
If C = 0 Then 'si c es igual cero entonces...
Text4.Text = -B / a
End If 'fin si
If C = 0 Then 'si c es igual a 0 entonces...
Text5.Text = 0
  End If 'fin si
End If 'fin si


If B = 0 And T > 0 Then ' si b es igual 0 y t es mayor a 0 siendo t igual a la division de c por a
Text7.Text = -Sqr(Abs(T))
If B = 0 And T > 0 Then ' si b es igual a 0 y t mayor a 0 entonces...
Text5.Text = 0
End If 'fin si
End If 'fin si
If B = 0 And T < 0 Then 'si b es igual a 0 y t menor a 0 entonces...
Text4.Text = Sqr(Abs(T))
If B = 0 And T < 0 Then ' si b es igual a 0 y t menor a 0 entonces...
Text6.Text = 0
End If 'fin si
End If 'fin si
If B = 0 And T < 0 Then ' si b es igual a 0 y t menor a 0 entonces...
Text5.Text = -Sqr(Abs(T))
If B = 0 And T < 0 Then
Text7.Text = 0
End If
End If
If B = 0 And T > 0 Then
Text6.Text = Sqr(Abs(T))
If B = 0 And T > 0 Then
Text4.Text = 0
End If
End If


If a <> 0 And B <> 0 And C <> 0 Then 'si a distinto de 0,b distinto de 0 y c distinto de 0 entonces...

Text4.Text = -B / (2 * a)

Text5.Text = -B / (2 * a)
h = (B * B) - (4 * a * C)
i = Sqr(Abs(h))
    If h > 0 Then 'si h mayor a 0
 Text4.Text = (-B + i) / (2 * a)
End If
 If h > 0 Then 'si h es mayor a 0
 Text5.Text = (-B - i) / (2 * a)
End If

If h < 0 Then ' si h es menor a 0
 i = Sqr(-1 * h) / (2 * a)
 Else
 If (h > 0) Then i = 0 'si h mayor a 0
 End If
 Text6.Text = -i
Text7.Text = i
 End If
 
 
 

End Sub ' fin del private sub del comando 2

Private Sub Command3_Click() ' comando para salir
Unload Form1

End Sub ' fin del private sub del comando 3