Visual Basic - Equacion de segundo grado

Life is soft - evento anual de software empresarial
   
Vista:

Equacion de segundo grado

Publicado por Anonimo69 (1 intervención) el 24/11/2009 13:52:49
Weno,estoy haciendo 1 programa para mi colegio ke se basa en calcular equaciones de segundo grado,pero a la hora de ejecutar el programa me da 1 error
Me da el error en las raices

Aqui el script:

Private Sub Command1_Click()
Dim a, b, c, r As Single
Dim calcul1, calcul2, calcul3 As Integer

a = Val(Text1.Text) 'definim a com a val
b = Val(Text2.Text) 'definim b com a val
c = Val(Text3.Text) 'definim c com a val

If a = 0 Then
divisio = c / b//Aqui tmbn
rplus = divisio * 1
rest = divisio * -1
MsgBox " Aixo es una equació de primer grau", vbInformation 'missatge informatiu,es una equació de primer grau

Else:
If b > 0 Then
calcul1 = b ^ 2 - 4 * a * c
arrel = calcul1 ^ (1 / 2)//AQUI ME DA EL ERROR
rest = -b + arrel / (2 * a) * -1
rplus = -b + arrel / (2 * a) * 1
'crec que hi ha un error a l'arrel,no la calcula

Else

If b < 0 Then
calcul2 = -4 * a * c
calcul3 = calcul2 ^ (1 / 2)
rplus = calcul3 / 2 * a
rest = calcul3 / 2 * a * -1

End If
End If
End If

If a = 0 Then
If b = 0 Then
MsgBox " Això no és una equació de segon grau", vbCritical 'missatge,no es 1 equació de segon grau

End If
End If



End Sub

Private Sub Command2_Click()
End
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Equacion de segundo grado

Publicado por juan carlos (518 intervenciones) el 27/11/2009 05:04:19
intentale asi Anonimo

Private Sub Command1_Click()
Dim a, b, c, r As Single
Dim calcul1 As Integer
Dim calcul2 As Integer
Dim calcul3 As Integer

a = Text1 'definim a com a val
b = Text2 'definim b com a val
c = Text3 'definim c com a val

If a = 0 Then
divisio = c '/ b/Aqui tmbn
rplus = divisio * 1
rest = divisio * -1
MsgBox " Aixo es una equació de primer grau", vbInformation 'missatge informatiu,es una equació de primer grau

Else:
If b > 0 Then
calcul1 = (b ^ 2 - (4) * (a) * (c))
arre1 = calcul1 ^ 1 / 2
rest = -b + arrel / 2 * (a) * -1
rplus = -b + arrel / (2 * a) * 1
'crec que hi ha un error a l'arrel,no la calcula
Else

If b < 0 Then
calcul2 = -4 * a * c
calcul3 = calcul2 ^ (1 / 2)
rplus = calcul3 / 2 * a
rest = calcul3 / 2 * a * -1
End If
End If
End If

If a = 0 Then
If b = 0 Then
MsgBox " Això no és una equació de segon grau", vbCritical 'missatge,no es 1 equació de segon grau

End If
End If


End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar