1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Maths
  5. Règle de trois

Règle de trois

0/5 (2 avis)

Vue 7 490 fois - Téléchargée 362 fois

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

Ajouter un commentaire Commentaires
cs_shivan Messages postés 363 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 25 août 2003
24 janv. 2002 à 12:27
ben ouais c clair, l'idée est bonne mais sans le source, c merdique !

$hîv@n
Cara53 Messages postés 36 Date d'inscription mercredi 4 octobre 2000 Statut Membre Dernière intervention 29 juin 2004
24 janv. 2002 à 01:02
Ca serait bien de mettre le code avec le .exe
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)