Discussion :

[marko2989]

Salut,

Bon je suis présentement à développer un petit logiciel qui me permettra de faire plussieurs calcul rapide lors d'estimation...

Mais je fais face à un problème que je n'arrive pas a résoudre meme après plussieurs recherche et heure de lecture de code et actuce sur différent site.

Bref lors de mon formulaire de calcul cubique + % de perte ( Calcul pour quantité de béton nécessaire ) le % ne ce calcule pas j'aimerais savoir ou je commet mon erreur voici la parti en question de mon code.

Code :

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

1
2
3
4
5
6
        Dim v As Integer = CInt(TextBox1.Text)
        Dim w As Integer = CInt(TextBox2.Text)
        Dim x As Integer = CInt(TextBox3.Text)
        Dim y As Integer = CInt(NumericUpDown1.Text)
        Dim z As Integer = (((v * w) * x) + y / 100)
        TextBox4.Text = z.ToString()

J'ai tenter aussi cette forme ci :

Code :

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

1
2
3
4
5
6
7
 
        Dim v As Integer = CInt(TextBox1.Text)
        Dim w As Integer = CInt(TextBox2.Text)
        Dim x As Integer = CInt(TextBox3.Text)
        Dim y As Integer = CInt(NumericUpDown1.Text)
        Dim z As Integer = v * w * x + y / 100
        TextBox4.Text = z.ToString()

Merci pour votre aide !

[StringBuilder]

J'avoue que j'ai un peu de mal à comprendre ce que tu cherches à faire comme calcul.

J'ai l'impression que tu as deux problèmes :

Code :

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

... + y / 100

Va diviser y par 100 puis ajouter le reste de la ligne au résultat. Je ne pense pas que ce soit ce que tu cherches à faire.

Quant à la valeur finale, qui semble être censée être un nombre entre 0 et 1 d'après le "/ 100", tu la stockes dans un Integer.
Accessoirement, tous les opérandes de la formule sont des Integer.
Par conséquent, au lieu de retourner un double, ça va retourne un Integer, donc 0 ou 1.

[marko2989]

J'avoue que j'ai un peu de mal à comprendre ce que tu cherches à faire comme calcul.

J'ai l'impression que tu as deux problèmes :

Code :

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

... + y / 100

Va diviser y par 100 puis ajouter le reste de la ligne au résultat. Je ne pense pas que ce soit ce que tu cherches à faire.

Quant à la valeur finale, qui semble être censée être un nombre entre 0 et 1 d'après le "/ 100", tu la stockes dans un Integer.
Accessoirement, tous les opérandes de la formule sont des Integer.
Par conséquent, au lieu de retourner un double, ça va retourne un Integer, donc 0 ou 1.

Merci pour votre réponse mais je dois avouer que je suis un peu perdu et mélangé....

Ce que je cherche a faire dans le fond et des calculers le total Cubique d'une forme

w * x * y = z³

2 * 2 * 2 = 8³

et la par la suite si je veux inscrire + 10% de perte

2 * 2 * 2 = 8³
8³ + 10% = 8,8³

Voila je sais pas si tu comprends un peux mieux ma question

c'est une petite application pour calculer la quantiter nécessaire pour des travaux de construction lors d'une couler de béton d'une forme cubique + rajouter un % de perte car il faut tjr prévoir un minimum de perte....

merci!

[clementmarcotte]

Bonjour,

Sauf horreur de ma part. Encore que cela me semble préférable de tout compter en Double et convertir le résultat final en Integer. Parce Integer tronque et n'arrondit pas. Et surtout c'est à la volée, non testé et cela manque de garde-fous. Surtout pour ne pas utiliser une mauvaise réponse et rejeter un nombre négatif. Oui le code pourrait être compacté. Mais comme cela, c'est beaucoup plus facile à déboguer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim ZCubeTemporaire as Double = 0
Dim ZCubeFinal as Integer = 0
Dim CompenseErreur as double =0
Dim w as double = 0
Dim x as Double = 0
Dim y as Double = 0
dim réponse as boolean = false
ZCubeTemporaire = w * X * y
CompenseErreur = ZCubeTemporaire /100
ZcubeTemporaire =ZCubeTemporaire + CompenseErreur
'Au besoin ajouter un arrondissement supériieur
'à ZCubeTemporaire si le résultat final tombe trop bas
réponse =integer.tryparse(ZcubeTemporaire,ZCubeFnal )
select case reponse
     case true
         messageboxshow("Réponse finale = " &  " " & ZCubeFinal.tostring
     Case False
         messageBox.show("Erreur dans le calcul ou la conversion du résultat")
end select

[marko2989]

Bonjour,

Sauf horreur de ma part. Encore que cela me semble préférable de tout compter en Double et convertir le résultat final en Integer. Parce Integer tronque et n'arrondit pas. Et surtout c'est à la volée, non testé et cela manque de garde-fous. Surtout pour ne pas utiliser une mauvaise réponse et rejeter un nombre négatif. Oui le code pourrait être compacté. Mais comme cela, c'est beaucoup plus facile à déboguer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim ZCubeTemporaire as Double = 0
Dim ZCubeFinal as Integer = 0
Dim CompenseErreur as double =0
Dim w as double = 0
Dim x as Double = 0
Dim y as Double = 0
dim réponse as boolean = false
ZCubeTemporaire = w * X * y
CompenseErreur = ZCubeTemporaire /100
ZcubeTemporaire =ZCubeTemporaire + CompenseErreur
'Au besoin ajouter un arrondissement supériieur
'à ZCubeTemporaire si le résultat final tombe trop bas
réponse =integer.tryparse(ZcubeTemporaire,ZCubeFnal )
select case reponse
     case true
         messageboxshow("Réponse finale = " &  " " & ZCubeFinal.tostring
     Case False
         messageBox.show("Erreur dans le calcul ou la conversion du résultat")
end select

Merci de votre aide! J'ai modifier votre code un petit peu pour l'adapter au textbox que j'utilise j'arrive a calculer mon cube mais pas mon % de facteur d'erreur qui ne se rajoute pas. Si vous pouvez m'éclairer un peu plus merci!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim ZCubeTemporaire As Double = 0
        Dim ZCubeFinal As Integer = 0
        Dim CompenseErreur As Double = TextBox4.Text
        Dim w As Double = TextBox1.Text
        Dim x As Double = TextBox2.Text
        Dim y As Double = TextBox3.Text
        Dim réponse As Boolean = False
        ZCubeTemporaire = w * x * y
        CompenseErreur = ZCubeTemporaire / 100
        ZCubeFinal = ZCubeTemporaire + CompenseErreur
        'Au besoin ajouter un arrondissement supériieur
        'à ZCubeTemporaire si le résultat final tombe trop bas
        réponse = Integer.TryParse(ZCubeTemporaire, ZCubeFinal)
        TextBox5.Text = ZCubeFinal
    End Sub
End Class

[clementmarcotte]

Bonjour,

Si c'est systématiquement 10 % de pertes (désolé, je n'avais pas remarqué le 10 %)

au lieu de

Code :

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

CompenseErreur = ZCubeTemporaire /100

Mets:

Code :

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

CompenseErreur = ZCubeTemporaire * 10 /100

et sans utiliser de TextBox

Si ta compensation d'erreur n'est pas systématiquement à 10 %, cela dépend de la façon dont elle est indiquée dans le TextBox. Si quelqu'un met 0,1; un autre 10 %, un autre 10, un autre 20 etc. C'est à toi de gérer cela. (Quand je parle d'un garde-fou, c'est à toi de voir. ) Tu peux imposer une entrée genre 10 que tu convertis dans ton code en 10/100 ou en 0,10; 10 %, que tu convertis toi-même en 0,1 ou en 10/100 ou 0,1 que tu utilises directement. Mais l'entrée détermine le calcul à effectuer

P.S.

Si jamais tu as

Code :

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

Option strict on

Ces lignes vont planter; parce que option strict à on interdit les conversions implicites de VB.
SI cela ne plante pas, c'est parce que tu as option strict à Off et tu dois redoubler de prudence, parce que la conversion implicite mal maîtrisée peut être source d'ho(e)rreurs difficiles à déceler

Code :

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

1
2
3
4
Dim CompenseErreur As Double = TextBox4.Text
 Dim w As Double = TextBox1.Text
 Dim x As Double = TextBox2.Text
 Dim y As Double = TextBox3.Text