Petit probleme avec une fonctionRésolu

Question

Bonjour :)



Mon probl&#232;me est tres simple :)



J'ai une fonction  Arrondir dans un module:



Function Arrondi(nb)

    nb = Fix((nb + 0.0001) * 1000) / 1000

End Function



Dans un autre module, j'ai :

toto=arrondi(toto)



Le probleme, c'est que ca me renvoie toujours Vide :(

Dans la fonction Arrondi, c'est bien calcul&#233; mais ca 'suis' pas apres.



Merci de m'indiquer mon erreur

cs_SyS_ · Accepted Answer

Salut ! 
Dans un premier temps, comme une fonction ('Arrondi' ici) renvoit toujours une valeur, il vaut mieux que tu précises le type de cette valeur. Tu peux d'ailleurs préciser aussi le type de la variable en entrée ('nb' dans ton cas). Par exemple, tu peux écrire :

Function Arrondi(nb as Single) as Single

Ton problème vient du fait que tu attribues la valeur à renvoyer à ta variable en entrée ('nb'), alors qu'il faut l'attribuer à la fonction :

Function Arrondi(nb as Single) as Single
    Arrondi = Fix((nb + 0.0001) * 1000) / 1000
End Function

Ainsi, ça devrait suivre après!! ;-)
En espérant avoir été aussi clair que possible.

++++++++++++++++++++++++++++

Smu2015 · Answer

Salut :)



Merci beaucoup pour ta r&#233;ponse rapide.

Malheuresement, mon probleme n'est tjs pas r&#233;solu..



Function Arrondi(nb as Double) as Double

    Arrondi = Fix((nb + 0.0001) * 1000) / 1000

End Function



1er souci : si je met (nb as double) g un type d'argument byref
incompatible (ce qui est tres &#233;trange puisque le 'toto' est en double
aussi



2eme souci : le resultat ne suis toujours pas ... au lieu de vide, j'ai 0

gallyhc · Answer

Bonjour,

Public Function Arrondi(byval nb as Single) as long
    Arrondi = Fix((nb + 0.0001) * 1000) / 1000
End Function

@++
[Gally Home Corp]

Smu2015 · Answer

Ohhh le boulet, d&#233;sol&#233;, la r&#233;ponse &#233;tait bonne d&#232;s la seconde r&#233;ponse...

Je continuais a mettre nb= au lieu de arrondi=



Merci beaucoup sys_ 

Merci aussi a toi Gally, avec le byval, plus de message d'erreur 



@ +

cs_SyS_ · Answer

De rien ,
bonne continuation ! :-)

Fred800202 · Answer

Salut tout le monde, j'esp&#232;re ne pas me tromper dans le post, je voudrais savoir comment je puis retranscrire l'expression suivante: lpFindFileData.cAlternate = String$(14, 0) qui est en VB6 en VB.Net.

Je joue en effet avec les fonctions API FindFirstFile, FindNextFile et FindClose mais je bloque sur cette convertion de syntaxe, si quelqu'un pouvait m'aider ce serrait tr&#232;s sympas &#224; lui 

Merci &#224; tout ceux qui participe &#224; ces forums aussi bien pour le Visual Basic que le C++ ou les autres langages de programmation  

La programmation, c bien, mais la programmation avec utilisation du multim&#233;dia (directX) c'est mieux, mais pas facile d'apprendre  Sinon, le graphisme 3D c'est cool aussi avec 3D Studio Max et Bryce que j'apprend

Petit probleme avec une fonction

6 réponses

Discussions similaires