EQUATION DU SECOND DEGRÈS

Commentaire de violent_ken le 11/11/2005 21:45:51

Bonjour.
Alors voici aussi ma petite critique :
-a quoi sert le Private Sub MErr_Click() ??
-effectivement, si delta<0, alors si on note z le nombre tel que z²=delta, on a z=i*sqrt(abs(delta)). On peut ensuite gérer les résultats, mais dans l'ensemble des complexes, cette fois.
x'=(-b-z)/2a   x''=(-b+z)/2a   avec x' et x'' complexes
-un conseil : gère les erreurs. Par exemple, si on valide sans avoir rentrer de chiffres, "type incompatible". Tu avais prévu que cette erreur est possible, pourquoi ne pas la gérer ??
exemple :

Private Sub CmdVal_Click()
On Error GoTo Gestion_error
a = TxtCarr.Text
b = TxtX.Text
C = TxtC.Text
Delta = ((b * b) - (4 * a * C))
    If Delta < 0 Then
        MsgBox ("Erreur 1. Delta négatif")
    Else
        TxtRepDelta.Text = Delta
        X2 = ((-b - Sqr(Delta)) / (2 * a))
        TxtRepX2.Text = X2
        X1 = ((-b + Sqr(Delta)) / (2 * a))
        TxtRepX1.Text = X1
    End If
Exit Sub
Gestion_error:
If Err.Number = 13 Then
    Beep
    MsgBox "Veuillez rentrez des nombres dans les champs correspondants", vbCritical, "Attention"
End If
End Sub

-je rappelle que les formules sont valables SEULEMENT pour les équations du SECOND degré. Or quand a=0, le degré du polynome est <=1. Donc le calcul n'est pas possible.
-Le programme existe déjà plusieurs fois sur le site. Il aurait donc fallut distinguer ton programme des autres, par exemple :
1) tu peux écrire la factorisation du polynôme (si x' et x'' sont les racines, alors P=a(x-x')(x-x'')
2) gestion des complexes
3) etc..
-enlève ce qui est inutile dans ton code:


Dim objetfile
Dim fichier
Const ForReading = 1, ForWriting = 2, ForAppending = 3


Private Sub MErr_Click()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'afficher fichier texte dans une TextBox
'Set objetfile = CreateObject("Scripting.FileSystemObject")
''Set fichier = objetfile.OpenTextFile("C:\test.txt", ForReading)
'Set fichier = objetfile.OpenTextFile("h:\EqSecDeg\Err.txt", ForReading)
''boucle pour lire le ficher
'Do While fichier.AtEndOfStream <> True
'    texte = texte & fichier.ReadLine
'Loop
'
'fichier.Close
'Err = MsgBox(texte, vbOKOnly, "Liste des Erreurs") 'affichage
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Pour afficher UN texte dans un MsgBox

Err = MsgBox("Err.1: Delta négatif" & Chr(13) & "Si le Delta est négatif alors l'opération ne peut se faire" & Chr(13) & Chr(13) & "Err.13: Type incompatible" & Chr(13) & "Vérifier si les caractères entrés sont bien des entiers" & Chr(13) & "Ne pas mettre de point pour la virgule", vbInformation, "Liste des Erreurs...")

End Sub

Private Sub Picture_Click()
End Sub



Tout çà ne sert à rien du tout.
-Enfin, je te propose une source améliorée. La voilà : http://www.vbfrance.com/code.aspx?ID=34598

@+