Comment programmer des équations quadratiques dans 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ésoudre une équation quadratique, vous devez avoir les valeurs des constantes et à résoudre pour x, qui donne toujours deux valeurs, appelées les «racines». Dans Visual Basic, vous pouvez écrire un programme ou une fonction qui invite l'utilisateur à entrer les a, b et c des valeurs, trouver les racines, puis afficher les valeurs sur le formulaire.

Instructions

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

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

Dim a As Decimal = InputBox ( "Entrez A:")

Dim b Comme Decimal = InputBox ( "Enter B:")

Dim c Comme Decimal = InputBox ( "Entrez C:")

Quadratiques (a, b, c)

Les trois premières lignes invitent l'utilisateur pour les valeurs des constantes. Elle appelle ensuite un sous appelé "Quadratic" et transmet les constantes comme arguments à elle.

3 Insérez le curseur en dehors de la sous Button1. Tapez le code suivant:

Private Sub Quadratic (ByVal a Comme Decimal, ByVal b Comme Decimal, ByVal c Comme Decimal)

racines Dim (1) As String

x1 Dim, x2, disque Comme Decimal

disque = 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 affecte la valeur du discriminant, qui détermine le nombre de racines de l'équation quadratique a.

4 Tapez le code suivant:

Si le disque> = 0 Then

x1 = (-b + Math.sqrt (disque)) / (2 * a)

x2 = (-b - Math.sqrt (disque)) / (2 * a)

racines (0) = x1.ToString

racines (1) = x2.ToString

Autre

racines (0) = "" & (- b.ToString & "+ sqrt (" & disc.ToString & ")) / (2 *" & & a.ToString ")"

racines (1) = "" & (- b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 *" & a.ToString & ")"

Fin si

"If" fonction vérifie pour voir si la valeur de 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" exécute, qui affiche les racines complexes équations.

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 fermez le bloc de code de la sous Quadratic.

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