Comment programmer des équations quadratiques en Visual Basic

Une équation quadratique est un polynôme du second degré qui a la forme « ax^2 + bx + c =0 ». Le "a", "b" et "c" sont les constantes et "x" est la variable. Lorsque vous résolvez une équation quadratique, vous devez avoir les valeurs des constantes et résoudre pour x, ce qui donne toujours deux valeurs, appelées les "racines". En Visual Basic, vous pouvez écrire un programme ou une fonction qui invite l'utilisateur à saisir les valeurs a, b et c, à rechercher les racines, puis à afficher les valeurs sur le formulaire.

Étape 1

Ouvrez un nouveau programme Visual Basic. Double-cliquez sur l'outil "Bouton" pour ajouter Button1 au formulaire. Double-cliquez deux fois sur l'outil "Label" pour ajouter Label1 et Label2 au formulaire.

Étape 2

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

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

Les trois premières lignes demandent à l'utilisateur les valeurs des constantes. Il appelle ensuite un sous-programme appelé "Quadratic" et lui transmet les constantes en tant qu'arguments.

Étape 3

Insérez le curseur en dehors du sous-menu Button1. Saisissez le code suivant :

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 le sous Quadratic et accepte trois arguments. Il définit ensuite un tableau avec deux éléments pour les deux racines. Il crée ensuite trois variables décimales et attribue la valeur du discriminant, qui détermine le nombre de racines de l'équation quadratique.

Étape 4

Saisissez le code suivant :

Si disque>=0 Alors 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 &")" racines(1) ="(-" &b.ToString &"-Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" End If

La fonction "if" vérifie si la valeur du discriminant est supérieure ou égale à zéro, ce qui signifie que l'équation a une ou deux racines. Il résout alors pour x. Si le discriminant est inférieur à zéro, l'équation n'a pas de racines réelles et la partie "else" s'exécute, ce qui affiche les équations de racines complexes.

Étape 5

Saisissez le code suivant :

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

Ces lignes de code affichent simplement les racines sur les étiquettes, puis ferment le bloc de code du sous-quadratique.

Étape 6

Enregistrez le programme Visual Basic. Appuyez sur "F5" pour l'exécuter.