Résolution des équations du second dégré

Commenter

Contenu du snippet 


Imports System.Math
Public Class Form1
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, x, x1, x2 As Double
        Try
            a = CDbl(TextBox1.Text)
            b = CDbl(TextBox2.Text)
            c = CDbl(TextBox3.Text)
            d = CDbl((b * b) - 4 * (a * c))
            If d < 0 Then
                MsgBox("Votre équation n'a pas de solution réèlle")
            ElseIf d = 0 Then
                x = CDbl(-b / (2 * a))
                MsgBox("La solution de votre équation est:" & x)
            Else
                x1 = CDbl(((-b) - (Sqrt(d))) / (2 * a))
                x2 = CDbl(((-b) + (Sqrt(d))) / (2 * a))
                MsgBox("Les solutions de votre équation sont :" & x1 & " et " & x2)
            End If
        Catch
            MsgBox("ERROR")
        End Try
    End Sub
End Class


EDIT : Ajout des balises de code !
Merci d'y penser la prochaine fois. (jordane)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.