Cherche comment automatiser un calcul

Question

Bonjour le Forum,

Je cherche comment automatiser un calcul avec un bouton, je m'explique, l'utilisateur rentre des valeurs décimal dans 19 Textbox, puis en appuyant sur un bouton il faut que la valeur finale soit de 1000, mais seules certaines Textbox peuvent être modifiées par ce calcul "X1; X2; X3 et Y1; Y2", tout en gardant le même rapport entre X1; X2; X3 et Y1; Y2. Je pensais incorporer des pourcentages, mais reste le comment.

Voici le code.

If X3 = 0 And X2 = 0 And X1 = 0 Or Y1 = 0 And Y2 = 0 Then
            Valeure.Text = Str(CDec(0))
        Else
            Valeure.Text = CStr(CDec((X3 + X2 + X1) / (Y1 + Y2)))
        End If

RESULTAT.Text = CStr(X3 + X2 + X1 + Y1 + Y2 + B1 + A1 + A2 + D1 + D2 + D3 + D4 + J1 + J2 + J3 + J4 + Z1 + Z2 + V)

Merci pour votre aide,

Whismeril · Answer

Bonjour

pour la présentation du code merci de choisir le langage basic, je te l'ai déjà dit il y a quelques jours.

On t'a déjà dit, aussi et à maintes reprises, d'enlever la référence à visual basic dans tes projets, ainsi qu'activer Option Strict et Option Explicit.

Pour tes variables, puisque le "calcul" est une somme de 19 valeurs, tu devrais utiliser une List(of double) et sa méthode Sum.

Pour ton calcul,

tu fais la somme.
	si elle ne vaut pas 1000, tu calcules la différence et tu la répartis proportionnellement entre les variables qu'il faut. Tu peux refaire la somme pour voir, mais ça devrait le faire au pouillemme près à cause de l'imprecision des doubles et éventuellement des arrondis si tu en fait,

NHenry · Answer

Je ne regarde que le code :

If X3 = 0 And X2 = 0 And X1 = 0 Or Y1 = 0 And Y2 = 0 Then
            Valeure.Text = Str(CDec(0))
        Else
            Valeure.Text = CStr(CDec((X3 + X2 + X1) / (Y1 + Y2)))
        End If

si Y1=5 et Y2=-5, les 2 sont différents de 0, mais tu aura une erreur de division par 0.
Il serait préférable de tester Y1+Y2 plutot que les 2 séparés.
Et concernant les X, pas besoin de tester, car 0/Y donnera toujours 0.

Tempus01 · Answer

Bonsoir à vous deux,

Je vais essayer d'apporter un peu plus de précision.

je dois trouver une solution pour augmenter ou diminuer les valeurs des Textbox "X1; X2; X3 et Y1; Y2" en gardant le même ratio entre elles , tout en prenant en compte qu'il faut que l'utilisateur remplisse 2 valeurs au minimum, un X et un Y pour que le calcul se fasse.

Par exemple si Y1 = 157.89; Y2 = 171.76; X1 = 113.21; X2=92.59; X3= 149.25; B1=300 et V= 200

le total est de 978.45

Valeure.Text = CStr(CDec((X3 + X2 + X1) / (Y1 + Y2))) => (113.21+92.59+149.25)/(157.89+171.76) =1.07

il faut donc augmenter les valeurs X1 ,X2 ,X3 ,Y1 et Y2 proportionnellement jusqu'à 1000 tout en gardant le rapport de 1.07, après il peut aussi arriver que cela dépasse 1000, si au dessous tel code si en dessous tel code.

If RESULTAT.Text > Str(CDec(1000)) Then
Else if RESULTAT.Text < Str(CDec(1000)) Then

sinon mon projet est bien en Option Strict et Option Explicit.

Tempus01 · Answer

Oui, cela n'a pas été précisé mais les lettres sont des variables

exemple => Dim Y1 As Decimal

Pour Str et Cdec, VB.net ne me donne pas le choix, sinon j'ai une erreur de conversion String en Decimal.

Tempus01 · Answer

Bonjour NHenry,

Merci pour vos conseils, je viens de tester Decimal.parse et cela fonctionne parfaitement, j'étais resté sur Cdec car cela faisait le taf aussi

Cherche comment automatiser un calcul

5 réponses

Votre réponse

Discussions similaires