Règle de trois

Soyez le premier à donner votre avis sur cette source.

Vue 7 140 fois - Téléchargée 344 fois

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003

ben ouais c clair, l'idée est bonne mais sans le source, c merdique !

$hîv@n
Messages postés
36
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
29 juin 2004

Ca serait bien de mettre le code avec le .exe

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)