[Visual Basic] Caculs

Résolu

oliman200 Messages postés 59 Date d'inscription Statut Membre Dernière intervention -
Utilisateur anonyme - 23 oct. 2006 à 14:39

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

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

Réponse 1 / 2

oliman200 Messages postés 59 Date d'inscription Statut Membre Dernière intervention 5

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

Réponse 2 / 2

Utilisateur anonyme

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

Discussions similaires

Site de confiance ou non ?

Microsoft Visual C++ ? C'est quoi ?

Votre réponse

Discussions similaires