résoudre ax+b=0 en VB

Voir le sujet précédent Voir le sujet suivant Aller en bas

résoudre ax+b=0 en VB

Message  boudal yassine le Sam 11 Avr - 8:25

voilà un programme pour résoudre une équation du 1er degré

Dim a, b, c As Double

Private Sub Command2_Click()
a = 0
b = 0
c = 0
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub cmditialis_Click()
txtvara.Text = ""
txtvarb.Text = ""
txtvarc.Text = ""
End Sub

Private Sub cmdquit_Click()
End
End Sub

Private Sub cmdresou_Click()
a = CDbl(txtvara.Text)
b = CDbl(txtvarb.Text)
If a = 0 Then
MsgBox "impossible de résoudre"
Else: c = -b / a
txtvarc.Text = c
End If
End Sub
Wink

boudal yassine

Messages : 11
Date d'inscription : 11/04/2009
Age : 27
Localisation : casablanca

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: résoudre ax+b=0 en VB

Message  salima le Sam 11 Avr - 8:43

merci bcp yassine Smile

salima

Messages : 1
Date d'inscription : 11/04/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: résoudre ax+b=0 en VB

Message  Hassan EL GASSIMI le Mar 14 Avr - 11:01

merci pqp yassine Very Happy

Hassan EL GASSIMI

Messages : 11
Date d'inscription : 14/04/2009
Age : 28
Localisation : Mohammedia

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: résoudre ax+b=0 en VB

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum