[Visual Basic] Caculs
Résolu
oliman200
Messages postés
61
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
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
A voir également:
- [Visual Basic] Caculs
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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:
Merci d'avance
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 :
Lupin
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
