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 « racines ». Dans 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 former.
É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 "Étiquette" pour ajouter Label1 et Label2 au formulaire.
Vidéo du jour
Étape 2
Double-cliquez sur « Button1 » sur le formulaire pour ouvrir la fenêtre de code. Tapez le code suivant :
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Quadratique (a, b, c)
Les trois premières lignes invitent l'utilisateur à saisir les valeurs des constantes. Il appelle ensuite un sous appelé « Quadratique » et lui passe les constantes en tant qu'arguments.
Étape 3
Insérez le curseur à l'extérieur du sous-titre Button1. Tapez le code suivant :
Private Sub Quadratique (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Racines Dim (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
La première ligne crée le sous-ensemble 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
Tapez 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 racines (1) = x2.ToString Sinon racines (0) = "(-" & b. ToString & "+Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" racines (1) = "(-" & b. ToString & "-Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" Fin si
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 "autre" s'exécute, ce qui affiche les équations de racines complexes.
Étape 5
Tapez 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-système Quadratic.
Étape 6
Enregistrez le programme Visual Basic. Appuyez sur "F5" pour l'exécuter.
