Resolveur de l'equation de second degré

Télécharger le projet
Commenter

Description

Dim b, a, c As Long
Dim d As Double
Private Sub Command1_Click()
If (Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "") Then
MsgBox "il faux donner a ,b et c ?!"
Else
a = Text1.Text
b = Text2.Text
c = Text3.Text
d = b * b - 4 * a * c
If (d < 0) Then
MsgBox "c'est une equation dont les solution sont en complexe!"
ElseIf (d = 0) Then
Text4.Visible = True
Text5.Visible = True
Text4.Text = (-b / 2 * a)
Text5.Text = (-b / 2 * a)
MsgBox "la solution est double"
Else
Text4.Visible = True
Text5.Visible = True
Text4.Text = ((-b - Sqr(d)) / 2 * a)
Text5.Text = ((-b + Sqr(d)) / 2 * a)
End If
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 800
Timer2.Interval = 100
Timer3.Interval = 5000
End Sub
Private Sub Timer1_Timer()
If Form1.Caption = Time + Date Then
Form1.Caption = "Resolveur"
Else
Form1.Caption = Time + Date
End If

End Sub
Private Sub Timer2_Timer()
If Label7.Caption = "" Then
Label7.Caption = "Realiser par korchid Radhouane"
Else
Label7.Caption = ""
End If
End Sub

Private Sub Timer3_Timer()
If (Text4.Visible = True And Text5.Visible = True) Then
Text4.Visible = False
Text5.Visible = False
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_radwano)