Règle de trois

Télécharger le projet
Commenter

Description

Permet d'effectuer la célebre règle de trois.

Source / Exemple : 


Private Sub LbtCalculer_Click()
Dim Valeur1 As String
Dim Valeur2 As String
Dim Valeur3 As String
Dim Reponse As String
Dim Search As String

If (Text1.Text = "X") Then
Text1.Text = ""
ElseIf (Text2.Text = "X") Then
Text2.Text = ""
ElseIf (Text3.Text = "X") Then
Text3.Text = ""
ElseIf (Text4.Text = "X") Then
Text4.Text = ""
End If

If (Text1.Text = "") And (Text2.Text = "") Or (Text1.Text = "") And (Text3.Text = "") _
Or (Text1.Text = "") And (Text4.Text = "") Or (Text2.Text = "") And (Text3.Text = "") _
Or (Text2.Text = "") And (Text4.Text = "") Or (Text3.Text = "") And (Text4.Text = "") Then
message = MsgBox("Vous devez entrer au moins 3 nombres pour pouvoir effectuer un calcul.", , "Règle de 3")
Text1.SetFocus
SendKeys "{Home}+{End}"

ElseIf (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") And (Text4.Text <> "") Then
message = MsgBox("Vous ne devez entrer que 3 nombres maximum. Sinon, pourquoi avoir besoin de moi ??", , "Règle de 3")

ElseIf (Text1.Text = "") Then
Text1.Text = "X"
Text2.Text = Replace(Text2.Text, ".", ",")
Valeur1 = (Text2.Text)
Search = Text2.Text
Text3.Text = Replace(Text3.Text, ".", ",")
Valeur2 = (Text3.Text)
Text4.Text = Replace(Text4.Text, ".", ",")
Valeur3 = (Text4.Text)

Reponse = (Valeur2 / Valeur3) * Valeur1

ElseIf (Text2.Text = "") Then
Text2.Text = "X"
Text1.Text = Replace(Text1.Text, ".", ",")
Valeur1 = (Text1.Text)
Search = Text1.Text
Text3.Text = Replace(Text3.Text, ".", ",")
Valeur2 = (Text3.Text)
Text4.Text = Replace(Text4.Text, ".", ",")
Valeur3 = (Text4.Text)

Reponse = (Valeur3 / Valeur2) * Valeur1

ElseIf (Text3.Text = "") Then
Text3.Text = "X"
Text1.Text = Replace(Text1.Text, ".", ",")
Valeur1 = (Text1.Text)
Text2.Text = Replace(Text2.Text, ".", ",")
Valeur2 = (Text2.Text)
Text4.Text = Replace(Text4.Text, ".", ",")
Valeur3 = (Text4.Text)
Search = Text4.Text

Reponse = (Valeur1 / Valeur2) * Valeur3

ElseIf (Text4.Text = "") Then
Text4.Text = "X"
Text1.Text = Replace(Text1.Text, ".", ",")
Valeur1 = (Text1.Text)
Text2.Text = Replace(Text2.Text, ".", ",")
Valeur2 = (Text2.Text)
Text3.Text = Replace(Text3.Text, ".", ",")
Valeur3 = (Text3.Text)
Search = Text3.Text

Reponse = (Valeur2 / Valeur1) * Valeur3
End If

List1.AddItem "X (" & Search & ") = " & "" & Reponse, 0
LbtEffacerLst.Enabled = True

End Sub

Private Sub LbtEffacer_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

Text1.SetFocus
SendKeys "{Home}+{End}"

End Sub

Private Sub LbtEffacerLst_Click()
List1.Clear
Text1.SetFocus
SendKeys "{Home}+{End}"
LbtEffacerLst.Enabled = False

End Sub

Private Sub LbtQuitter_Click()
End
End Sub

Private Sub Text1_Change()
If (Text1.Text = "") Then
LbtEffacer.Enabled = False
Else
LbtEffacer.Enabled = True
End If

End Sub

Private Sub Text2_Change()
If (Text2.Text = "") Then
LbtEffacer.Enabled = False
Else
LbtEffacer.Enabled = True
End If
End Sub

Private Sub Text3_Change()
If (Text3.Text = "") Then
LbtEffacer.Enabled = False
Else
LbtEffacer.Enabled = True
End If
End Sub

Private Sub Text4_Change()
If (Text4.Text = "") Then
LbtEffacer.Enabled = False
Else
LbtEffacer.Enabled = True
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 (simonboily)