conversion implicite etrange

Bonjour,

je suis en train d'améliorer un ancien programme, écrit a l'époque sous VB 2003, pour PPC.

Je l'ai converti pour VB 2005 dans visual studio 2005, et je suis en train de re ecrire certaines partie du code pour les améliorer avec ce que j'ai appris depuis.

J'ai commencé par un truc super simple :

Code:

---

1 2 3 4 5 6 7 8

Dim poids As New Integer Dim hbd As New Integer Dim hbs As New Integer   poids = NumericUpDown1.Value hbd = NumericUpDown2.Value hbs = NumericUpDown3.Value

---

et j'ai un avertissement de conversion implicite de Decimal en integer sous chaque numericupdown.value....

Quelqu'un peut m'expliquer ?

Normal :

Tu as déclaré 3 variables Integer et tu affectes des valeurs Decimal... D'ou l'avertissement !

Code:

---

1 2 3 4 5 6 7

Dim poids As Decimal Dim hbd As Decimal Dim hbs As Decimal   poids = NumericUpDown1.Value hbd = NumericUpDown2.Value hbs = NumericUpDown3.Value

---

Pas la peine d'instancier ce type de variable !

D'ac, va falloir que je revoye d'un peu plus près les variables...

Second point, du même ordre je pense, lorsque je fais des calculs avec ces variables et que je les affiche dans un label ou une textbox.

Code:

---

1 2 3 4

TextBox1.Text = Math.Round(((5.16 * poids) + 29.8), 1) TextBox2.Text = ((2 * age1) + 90) TextBox3.Text = Math.Round(((age1 * 2) + 8), 1) TextBox4.Text = Math.Round(((4 * poids + 7) / (poids + 90)), 1)

---

pour la textbox1 , il me met conversion implicite de double en string, et pour les 3 autres, de Decimal en string... J'ai compris pourquoi la première ligne, c'est une Double qu'il converti implicitement, et les autres des Decimal, mais je ne vois pas comment le contenter... :?

Normal toujours des histoires de type :

Code:

---

1 2 3 4

TextBox1.Text = Math.Round(((5.16 * poids) + 29.8), 1).ToString TextBox2.Text = ((2 * age1) + 90).ToString TextBox3.Text = Math.Round(((age1 * 2) + 8), 1).ToString TextBox4.Text = Math.Round(((4 * poids + 7) / (poids + 90)), 1).ToString

---

Facile pour ne pas se tromper :

Code:

---

1 2	Dim VarTest as Type 'où type represente un string, Integer... VarType = QuelqueChoseDuMemeType 'tu affectes a ta variable une valeur du MEME TYPE que cette dernière sinon il y a conversion implicite !

---

:king:

ok, merci encore