Règle de trois
Soyez le premier à donner votre avis sur cette source.
Vue 7 236 fois - Téléchargée 351 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
- Règle de 3
- Reglement jeu barbotte - Guide
- Php tableau 3 dimensions ✓ - Forum - PHP
- Erreur http 404.3 - not found - Forum - ASP / ASP3
- Va et vient 3 interrupteurs avec telerupteur - Guide
- Pong python 3 - Guide
$hîv@n
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.