Comment programmer des équations quadratiques dans Visual Basic

Visual Basic peut résoudre des équations quadratiques

Étape 1

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

Étape 2

Double-cliquez sur "Button1" dans le formulaire pour ouvrir la fenêtre de code. Écrivez 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 se rend ensuite dans un sous-répertoire appelé "Quadratic" et lui transmet les constantes comme arguments.

Étape 3

Sortez le curseur du sous Button1. Écrivez le code suivant: Private Sub Quadratic (ByVal à As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim Racines (1) As String Dim x1, x2, disque As Decimal disc = b ^ 2 - 4 * a * c

La première ligne crée le sous quadratique et accepte les trois arguments. Définissez ensuite une sélection avec deux éléments pour les deux racines. Créez ensuite trois variables décimales et attribuez la valeur du discriminant, qui détermine le nombre de racines de l’équation quadratique.

Étape 4

Écrivez le code suivant: Si disque> = 0 Alors x1 = (-b + Math.Sqrt (disque)) / (2 * a) x2 = (-b - Math.Sqrt (disque)) / (2 * a) racines (0) = x1.ToString roots (1) = x2.ToString Autre racine (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 " & a. ToString & ")" roots (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")" End If

La fonction "si" est définie si la valeur du discriminant est supérieure ou égale à zéro, ce qui signifie que l'équation a une ou deux racines. Alors résolvez x. Si le discriminant est inférieur à zéro, l'équation n'a pas de racine réelle et la partie "else" est exécutée, montrant les équations de racine complexes.