Les additions, division en VB

Code:

---

1 2 3 4 5 6 7 8 9

Select Case Me.txtnompiece.Text ... Case "Profil Carrés" txtresu.Text = (txtlarg.Text + txthaut.Text) * (comface.Text) Case "Profil Rond" txtresu.Text = (txtlarg.Text * comface.Text) ... End Select

---

Alors voilà, j'ai ça et quand je rentre des chiffres, exemple :

txtlarg = 100
txthaut = 100
comface = 2

ça devrai me faire (100 + 100) donc 200
200 * 2 = 400

Vous etes d'accord avec moi, je suis pas fou...

Bah en vb, ça me donne 100 + 100 * 2 = 200200

Si quelqu'un peux m'éclairer SVP :king:

Bonjour

Tu concatène du texte, convertit les données de tes textbox

Code:

---

1 2 3 4 5 6

Case "Profil Carrés" txtresu.Text = (cdbl(txtlarg.Text) + cdbl(txthaut.Text)) * cdbl((comface.Text)) Case "Profil Rond" txtresu.Text = (cdbl(txtlarg.Text) * cdbl(comface.Text))

---

pas testé
Starec

Et pour avoir 3 chiffres après la virgule derrière quoi qu'il arrive...
(100+100)*2 = 400.000


PS : Merci Starec de ta réponse rapide, en plus je ne connaissais pas "cdb1"

Re

Ce n'est pas cdb1, mais cdbl, pour les trois chiffres va voir du coté de la fonction Format :f1:

Starec

comment ça
Format + :f1:
No comprendo

Re Lulux80

moi non plus je ne connaissais pas le cdb1 :mouarf:
Tu peut utiliser la propriété Format de ton textbox pour définir le format de tes nombres

A+
(PS : Jamais tu te repose ?)

Non jamais, je ne dors jamais jamais jamais

Code:

---

txttot.Text = Round(((txtresu.Text * txtlong.Text * txtpiece.Text) / 1000000), 3)

---

On m'a dit ça mais ça ne marche pas.

moi ce que je voudrai c'est que quoi qu'il arrive même si c'est 2,4 le résultat bah qu'il affiche 2.400

Round s'est pour les arrondis pas pour les décimales
Consulte l'aide de VB tu trouveras la réponse à ton problème.

A+

Code:

---

Round(((CSng(txtresu.Text * txtlong.Text * txtpiece.Text)) / 1000000), 3)

---

J'ai mis ça mais ça ne marche pas, et l'aide y'a rien qui dit

Y vas finir par nous péter un cable le mome !!!

Ta regardé à Format ou à Round ?
Autre solution : modifie le champ de ta base de données, de mémoire d'homme, donc peut fiable, tu peut préciser le nombre de décimales automatiquement.

A+

Ah la la quand je suis pas la lulu il trouve rien! Lui ne dors pas mais moi j'aurais pas du faire la sieste :mouarf:
Peux tu sil te plait regarder FORMAT - car c'est bien ca quil te faut - dans l'aide de VB tu vas tout comprendre! et demain matin ne me reveillez pas trop tot les gars!

Salut lulux

Passe le contenu de tes textBox dans des variables avant de faire les calculs. Ce sera plus facile de vérifier si la conversion se fait bien.

Et pour afficher trois décimales, utilise la fonction Format...

Bon je vais mettre le calcul de côté car ça me .... rend fou...
2,4 le transformer quoiqu'il arrive en 2,400

@+

Code:

---

txttot.Text = Round(((CSng(txtresu.Text * txtlong.Text * txtpiece.Text)) / 1000000), 3)

---

avec un "format" une fois que tu l'as forcer en double

Je n'ai pas compté combien de fois on t'a dit de regarder à la fonction Format.
En tout cas, c'est depuis hier 16h30.

T'arrive-t-il de lire ce qu'on t'écrit?

Et, une fois que tu as lu, en fais-tu quelque chose?

je suis débutant en VB alors la fonction format je ne vois pas comment l'utiliser.

Où ça, dans la propriété, j'utilise evB donc y'a pas de propriété FORMAT !!!

La fonction format() existe dans vb6 et a un equivalent dans la plupart des langages. Il y a fort a parier que c'est dans evb aussi. Il faut bien sur s'aider de l'aide de evb pour connaitre les arguments que prend cette fonction. Et puis tiens (chuis trop bonne) j'ai cherche et j'ai trouve:yaisse2: http://plasserre.developpez.com/v4-8.htm

L'application est pour un pocket PC