Hej


Jag håller på att försöka bygga ett litet program som ska räkna ut reella rötter av den kvadratiska ekvationen ax^2 + bx + c = 0 där a inte = 0.

Har hittills följande kod:

<code>

Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

Dim A As Single
Dim B As Single
Dim C As Single
Dim x1 As Single
Dim x2 As Single
Dim Result As String = ""


If txtA.Text = "" Then
Call Empty_A()
txtA.Focus()
ElseIf txtB.Text = "" Then
Call Empty_B()
txtB.Focus()
ElseIf txtC.Text = "" Then
Call Empty_C()
txtC.Focus()
Else

A = txtA.Text
B = txtB.Text
C = txtC.Text


isNulle(A)

'har två rötter
If B ^ 2 - 4 * A * C > 0 Then
x1 = (-B + Math.Sqrt(B ^ 2 - 4 * A * C)) / 2 * A
x2 = (-B - Math.Sqrt(B ^ 2 - 4 * A * C)) / 2 * A

Result = "x1= " & x1 & "; x2= " & x2 & ";"

'har en rot
ElseIf B ^ 2 - 4 * A * C = 0 Then

x1 = ???
Result = "x1=x2= " & x1 & ";"

Else
Result = "icke reella lösningar"
End If


lblResult.Text = Result

End If
End Sub


Public Sub isNulle(ByVal a As Single)
If a = 0 Then
Call Null_A()
End If
End Sub



</code>

Hur löser jag detta så jag får ut x1 när det bara är en rot??


Tacksam för all hjälp

det löste sig med lite matte formler :D