Discussion :

[maxmarie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Aspic]

Normal :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[maxmarie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Aspic]

Normal toujours des histoires de type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[maxmarie]

ok, merci encore