un calcul tout simple devenu une usine a gazRésolu

Question

je suis toujours avec mon petit programme de cacul

au debut j'avais une inversion avec une addition et une concat&#233;nations
j'ais modifier ma ligne comme ci dessous
puissance17 = (Val(Wh1) + Val(Wh2) + Val(Wh3) + Val(Wh4) + Val(Wh5) + Val(Wh6) + Val(Wh7) + Val(Wh8) + Val(Wh9) + Val(Wh10) + Val(Wh11) + Val(Wh12))
maintenant ca fonction mais j'ai un probleme avec les decimals dans le resultat il n'y a pas de chiffre apres la virgule
j'ais effectu&#233; une recherche dans le forum j'ai trouv&#233; la fonction CDbl 
l&#224; commence mon usine a gaz fonction +fonction pour faire juste une addition 

avez vous une solution plus facile, rapide , ou une autre methode 


cordialement 
pascal

econs · Accepted Answer

remplace Val() par CDbl()

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Gobillot · Answer

avec Val() il faut un point d&#233;cimal Val("123.46")
avec CDbl() &#231;a d&#233;pend de ta configuration, soit &#231;a passe soit &#231;a se plante.

pour simplifier il faudrait un groupe de contr&#244;le si c'est des contr&#244;les ou un tableau si c'est des variables:

puissance17 = 0
For i = 1 to 12
      puissance17 = puissance17 + Val (Wh(i))
      next

Daniel

pascallac · Answer

le remplacement de Val() par CDbl() c'est tres bien pass&#233; 
mercis econs pour votre reponse

Gobillot pour la suite 
puissance17 = 0
For i = 1 to 12
      puissance17 = puissance17 + Val (Wh(i))
      next
j'ais une erreur 
j'essaye de la trouv&#233;e 

cordialement 
pascal

FFkiller · Answer

met next i

FFkiller

pascallac · Answer

merci FFkiller 
marche pas non plus 
c'est une erreur "Sub, Function ou Property non d&#233;finie (erreur 35)"


cordialement 
pascal

cs_casy · Answer

n'aurait-tu pas mis par hasard un espace entre Val et (Wh(i))



sinon c'est Wh(i) qu'il ne reconnais pas comme tableau et cherche la fonction Wh  qu'il ne trouve pas. 




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

&#224; toi de cr&#233;er ton tableau de variables:
Dim Wh (1 to 12) As Double

ou ton groupe de TextBox avec comme nom "Wh" et les index de 1 &#224; 12

PS: 
- le i apr&#232;s le Next n'est pas obligatoire, il est m&#234;me superflu, il est l&#224; juste pour la compr&#233;hension mais &#224; tendance &#224; ralentir le programme
- pour les espaces, VB les corrige automatiquement

Daniel

cs_casy · Answer

Je suis d'accord avec toi Daniel, VB corrige automatiquement les
espaces sauf justement pour Val (sur mon PC au moins). Je rencontre
r&#233;guli&#232;rement cette erreur lorsque j'utilise Val. D'ailleurs il ne me
corrige pas la majuscule pour la premi&#232;re lettre non plus, il faut que
je supprime manuellement l'espace pour qu'il reconnaisse la fonction
Val et mettre la majuscule.



Mais &#224; vrai dire j'utilise tr&#232;s peu Val, je pref&#232;re cint et ses petits fr&#232;res.




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Gobillot · Answer

on doit pas avoir le m&#234;me &#233;diteur alors, je met 50 espaces et il y a pas de probl&#232;me je me retrouve avec z&#233;ro espace, surtout que la parenth&#232;se est bien un caract&#232;re de s&#233;paration, c'est pas comme "&" qui lui peut &#234;tre pris comme la fin d'un nom de variable si on oublie de mettre l'espace.
dans certains cas il laisse les espaces, ce qui permet d'aligner les zones:
Dim Wh1   As String
Dim Wh2   As String
une esp&#232;ce d'indentation pour faire joli.

entre Val et Cint il y a pas de concurrence, ce sont des fonctions diff&#233;rentes et chacune &#224; son r&#244;le, au d&#233;veloppeur d'utiliser la fonction qui lui convient, Val ne se plante pas mais peut tronquer la variable, pour Cint il faut obligatoirement une zone num&#233;rique avec le point d&#233;cimal et le s&#233;parateur de millier d&#233;finis dans les options r&#233;gionales, aucun rapport avec Val qui ne reconnait que le point et l'espace .

Daniel

pascallac · Answer

ok c'est bon ca fonctionne 
j'ais fait plusieur erreur 
ce n'est pas un tableau mais des champs rajout&#233;s non index&#233;s Wh1 Wh2 Wh3 ....
je l'ais donc index&#233;s Wh1(0) Wh1(1) Wh1(2).....

apres je me suis servis du code de gobillot avec 2 modif  en bleu

puissance17 = 0
For i = 0 To 11
      puissance17 = puissance17 + Val(Wh1(i))
      Next

pour les espace ce n'&#233;tait pas un  probleme VB me l'ais corrige

donc merci a tous 

cordialement 
pascal

Un calcul tout simple devenu une usine a gaz

10 réponses

Discussions similaires