Comment programmer des équations quadratiques en Visual Basic

Une équation quadratique est un polynôme de second degré de la forme « ax² + bx + c = 0 ». Les lettres « a », « b » et « c » sont des constantes, « x » est la variable. Résoudre une équation quadratique nécessite de connaître les constantes pour trouver les deux valeurs de x, appelées « racines ». En Visual Basic, vous pouvez écrire un programme qui demande à l'utilisateur d'entrer a, b et c, calcule les racines et les affiche.

Étape 1

Ouvrez un nouveau projet Visual Basic. Double-cliquez sur l'outil « Button » pour ajouter Button1 au formulaire. Double-cliquez deux fois sur l'outil « Label » pour ajouter Label1 et Label2.

Étape 2

Double-cliquez sur « Button1 » pour ouvrir la fenêtre de code. Saisissez le code suivant :

Dim a As Decimal = InputBox("Entrez A : ")
Dim b As Decimal = InputBox("Entrez B : ")
Dim c As Decimal = InputBox("Entrez C : ")
Quadratic(a, b, c)

Les trois premières lignes demandent les valeurs des constantes, puis appellent la procédure « Quadratic » en passant les constantes comme arguments.

Étape 3

Placez le curseur en dehors de la procédure Button1. Saisissez :

Private Sub Quadratic(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal)
    Dim roots(1) As String
    Dim x1, x2, disc As Decimal
    disc = b ^ 2 - 4 * a * c

La première ligne crée la procédure Quadratic acceptant trois arguments. Elle définit un tableau à deux éléments pour les racines, crée trois variables décimales et calcule le discriminant, qui détermine le nombre de racines.

Étape 4

Saisissez le code suivant :

If disc >= 0 Then
    x1 = (-b + Math.Sqrt(disc)) / (2 * a)
    x2 = (-b - Math.Sqrt(disc)) / (2 * a)
    roots(0) = x1.ToString
    roots(1) = x2.ToString
Else
    roots(0) = "(-" & b.ToString & "+Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
    roots(1) = "(-" & b.ToString & "-Sqrt(" & disc.ToString & "))/(2_" & a.ToString & ")"
End If

La condition vérifie si le discriminant est supérieur ou égal à zéro (une ou deux racines réelles). Elle calcule alors x. Si le discriminant est négatif, l'équation n'a pas de racines réelles et la partie « Else » affiche les équations des racines complexes.

Étape 5

Saisissez :

Label1.Text = roots(0)
Label2.Text = roots(1)
End Sub

Ces lignes affichent les racines sur les étiquettes et ferment le bloc de code de la procédure Quadratic.

Étape 6

Enregistrez le programme. Appuyez sur « F5 » pour l'exécuter.