Résolution des équations du second dégré

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 865 fois - Téléchargée 26 fois

Contenu du snippet


Imports System.Math
Public Class Form1
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, x, x1, x2 As Double
        Try
            a = CDbl(TextBox1.Text)
            b = CDbl(TextBox2.Text)
            c = CDbl(TextBox3.Text)
            d = CDbl((b * b) - 4 * (a * c))
            If d < 0 Then
                MsgBox("Votre équation n'a pas de solution réèlle")
            ElseIf d = 0 Then
                x = CDbl(-b / (2 * a))
                MsgBox("La solution de votre équation est:" & x)
            Else
                x1 = CDbl(((-b) - (Sqrt(d))) / (2 * a))
                x2 = CDbl(((-b) + (Sqrt(d))) / (2 * a))
                MsgBox("Les solutions de votre équation sont :" & x1 & " et " & x2)
            End If
        Catch
            MsgBox("ERROR")
        End Try
    End Sub
End Class



EDIT : Ajout des balises de code !
Merci d'y penser la prochaine fois. (jordane)

A voir également

Ajouter un commentaire

Commentaires

jordane45
Messages postés
26072
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
9 août 2019
313 -
Bonjour,
Le code est bien écrit ... mais (et oui il y a toujours un mais...) :

- J'ai édité ton message pour ajouter les balises de code.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

- A la place d'un IF d=0 ... Utilises un SWITCH ( je trouve ça plus propre...)

- Renommes tes boutons pour leur mettre des noms "parlants" .. plutôt que :
Private Sub Button2_Click
J'aurais fait :
Private Sub RAZ_Click


- Plutôt que de faire une déclaration de tes variables sur une ligne, initialise les au moment de les utiliser
Dim  a  as Double = CDbl(TextBox1.Text)
Dim  b as Double  = CDbl(TextBox2.Text)
Dim  c as Double = CDbl(TextBox3.Text)
Dim  d as Double = CDbl((b * b) - 4 * (a * c))


- Il manque une déscription à ta source...
Expliques y qu'il faut créer une FORM.. y mettre 3 TextBox... 2 Boutons ..etc...

- Bien que bien écrite.. ta "source" est un peu légère...
Pour rappel.. il est précisé dans la charte du site qu'on ne dépose une source que si :
* Elle n'existe pas déjà dans de nombreux exemplaires sur le site
* Qu'elle ne doit pas contenir que quelques lignes de codes "basiques"...
Voir ici :
Vérifier avant de poster ma source si une source équivalente n'est pas déjà présente et si ma source apporte réellement quelque chose.

C'est très souvent le cas. Certaines sources (calculatrices, convertisseurs, msgbox, démineur, chronomètres, et autres routines plus que nombreuses) seront directement supprimées.

Ne postez pas une source ne faisant qu'utiliser une ou deux fonctions standard du langage.
Mettre un titre explicite et on décrit correctement la source.

Toute source sans description sera supprimée. De même qu'une source avec un titre ne correspondant pas.


Je ne vais pas supprimer ta source... mais rien ne dit qu'un autre modérateur ne le fera pas.


Mais bon.. pour un début.. je le redis.. c'est propre ... bien indenté..
Je dirais que pour poursuivre ton apprentissage du DOTNET.. l'idéal serait, même si pour un si "petit" programme il n'y a pas forcément d'utilité.. de te mettre à utiliser des CLASS;
Une class EQUATION par exemple... dans laquelle tu effectuerais tes calculs.. plutôt que de réaliser ton calcul directement dans le code de ta form....
SobNash
Messages postés
3
Date d'inscription
vendredi 14 novembre 2014
Statut
Membre
Dernière intervention
17 novembre 2014
> jordane45
Messages postés
26072
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
9 août 2019
-
ok;
merci beaucoup...
J'en prend bonne note

EDIT : Pas de langage SMS. Merci (je corrige ton message).
( Jordane)
jordane45
Messages postés
26072
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
9 août 2019
313 > SobNash
Messages postés
3
Date d'inscription
vendredi 14 novembre 2014
Statut
Membre
Dernière intervention
17 novembre 2014
-
J'en prend bonne note

N'oublies pas d'aller ajouter une description à ta source...
SobNash
Messages postés
3
Date d'inscription
vendredi 14 novembre 2014
Statut
Membre
Dernière intervention
17 novembre 2014
-
okay

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.