[Visual Basic] Caculs
Résolu
Salut,
Voilà, je suis très débutant à visual basic (for application) et je voudrais savoir quel est le code pour faire un calcul mathématique avec des texte inscrit dans des TextBox. Voilà se que j'ai fais s'en ne savoir beaucoup de chose sur ce logiciel:
Private Sub CommandButton1_Click()
Label1.Caption = Label1.Caption + "(TextBox1.Value * (2 * TextBox3.Value / (((TextBox1.Value * 2) + TextBox2.Value))))"
End Sub
Merci d'avance
Voilà, je suis très débutant à visual basic (for application) et je voudrais savoir quel est le code pour faire un calcul mathématique avec des texte inscrit dans des TextBox. Voilà se que j'ai fais s'en ne savoir beaucoup de chose sur ce logiciel:
Private Sub CommandButton1_Click()
Label1.Caption = Label1.Caption + "(TextBox1.Value * (2 * TextBox3.Value / (((TextBox1.Value * 2) + TextBox2.Value))))"
End Sub
Merci d'avance
2 réponses
-
J'ai réussis à faire mon calcul finalement mais j'aimerais l'arrondir quelqu'un pourrais me dire comment je fais pour arondire mes valeurs à 2 décimales... voici mon code:
Private Sub CommandButton1_Click() Valeur1 = TextBox1 Valeur2 = TextBox2 valeur3 = TextBox3 Valeur4 = (Valeur1 * (2 * (valeur3 / (((2 * Valeur1) + Valeur2))))) Valeur4 = (Valeur1 * (2 * (valeur3 / (((2 * Valeur1) + Valeur2))))) TextBox4.Text = "Prix pour les adultes:" & vbCrLf & Valeur4 & " $" Valeur5 = (Valeur2 * (valeur3 / ((2 * Valeur1) + Valeur2))) TextBox5.Text = "Prix pour les enfants:" & vbCrLf & Valeur5 & " $" Valeur6 = (Valeur4 / Valeur1) TextBox6.Text = "Prix pour un adulte:" & vbCrLf & Valeur6 & " $" Valeur7 = (Valeur5 / Valeur2) TextBox7.Text = "Prix pour un enfant:" & vbCrLf & Valeur7 & " $" Valeur8 = (1 * (Valeur1) + (Valeur2)) TextBox8.Text = "Total de personne:" & vbCrLf & Valeur8 End Sub
Merci d'avance -
Bonjour,
Exemple :
Private Sub cmd_Calculs_Click() Dim Valeur1 As Variant, Valeur2 As Variant Dim Valeur3 As Variant, Valeur4 As Variant Dim Valeur5 As Variant, Valeur6 As Variant Dim Valeur7 As Variant, Valeur8 As Variant Valeur1 = TextBox1.Value Valeur2 = TextBox2.Value Valeur3 = TextBox3.Value Valeur4 = (Valeur1 * (2 * (Valeur3 / (((2 * Valeur1) + Valeur2))))) Valeur4 = (Valeur1 * (2 * (Valeur3 / (((2 * Valeur1) + Valeur2))))) TextBox4.Text = "Prix pour les adultes:" & vbCrLf & Format(Valeur4, "##0.00") & " $" Valeur5 = (Valeur2 * (Valeur3 / ((2 * Valeur1) + Valeur2))) TextBox5.Text = "Prix pour les enfants:" & vbCrLf & Format(Valeur5, "##0.00") & " $" Valeur6 = (Valeur4 / Valeur1) TextBox6.Text = "Prix pour un adulte:" & vbCrLf & Format(Valeur6, "##0.00") & " $" Valeur7 = (Valeur5 / Valeur2) TextBox7.Text = "Prix pour un enfant:" & vbCrLf & Format(Valeur7, "##0.00") & " $" Valeur8 = (1 * (Valeur1) + (Valeur2)) TextBox8.Text = "Total de personne:" & vbCrLf & Format(Valeur8, "##0.00") End Sub '
Lupin
