Demander que mon programme reconnaise les chiffres avec et sans virgule ### (SVP

Question

J'aimerais savoir s'il est possible de faire reconnaitre au programme les chiffres avec et sans virgules.
   Car, si j'ai un chiffre sas virgules, je n'est pas besoin d'effectu&#233; quelques op&#233;rations et s'il y a des virgules, je dois le transformer en d&#233;cimal sans virgule.
   J'aimerais aussi savoir qu'est_ce que c'est r&#233;ellement la norme IEEE (le truc qui permet de calculer les nombres a virgules).
   Quelqu'un peut me dire aussi si se que j'ai fait est correcte pour transformer les nombres a virgules?
   Ce que j'ai fait pour les chiffres a virgule c'est:
   trouver l'exposant, le signe et la mantisse (tout en binaire) et je retransforme en decimal.

cs_ITALIA · Answer

Essayes la Fonction CLng()

It@li@

Gobillot · Answer

Italia a un peu raison, en ce sens que Vb fait tr&#232;s bien la conversion lui m&#234;me.

mais je comprend tr&#232;s bien qu'il est int&#233;ressant de comprendre comment est cod&#233; un nombre en virgule flottante.

mais comment v&#233;rifier qu'on a raison et que le calcul est bon ?

le seul moyen de v&#233;rifier est d'aller voir le r&#233;sultat trouv&#233; par Vb lui-m&#234;me.

(utilise RtlMoveMemory pour &#231;a)

je te conseille une source de CanisLupus:

     http://www.vbfrance.com/code.aspx?ID=23026



    (d&#233;sol&#233; le cr&#233;ateur de Lien marche plus  ??? )



contrairement a ce que j'avais dis &#224; l'&#233;poque, il y a des erreurs dans
le calcul des derniers bits, bien s&#251;r c'est toujours Vb qui a raison,
ceci est d&#251; aux erreurs de calculs et au tronquage du Double.


Daniel

cs_dragon · Answer

moi j'ai souvent fait

if int(chiffre) = chiffre then
pas de virgule
else
virgule pr&#233;sente
end if


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Gobillot · Answer

Int() va se planter si &#231;a d&#233;passe la capacit&#233;.

de m&#234;me avec CLng()

de plus le probl&#232;me d'arrondi va entra&#238;ner des erreurs.





    Dim n As Double

    

    n = 111222333444556#    'avec virgule ????



    

    If Fix(n) = n Then

       MsgBox "sans virgule"

       Else

       MsgBox "avec virgule"

       End If

    

    MsgBox Fix(n) - n


Daniel

Sojojo · Answer

moi la je devient un peu perdu
en plus je crois ke j'ai r&#233;ussi a faire quelque chose mais, je n'arrive pas a modifer les valeurs des param&#232;tres de mon variateur (pasque c ca que je dois faire....).
mon probl&#232;me c les chiffres float paske je sais pas trop comment ca marche, j'ai r&#233;ussi a avoir pour la valeur 50.5 -> 1112067276 mais ap&#232;rs mon variateur veut pas le prendre et pourtant normalemen c se que je dois avoir 
apr&#232;s si mon variaeur veut pas changer la valeur ca ne rel&#232;ve plus du langage vb ...
o pire si quelqu'un peuuuut m'aiiderr
merci

Gobillot · Answer

c'est quoi variateur ?

et ce nombre 1112067276 correspond &#224; quoi ?



sinon 50,5 en IEEE 754 est cod&#233; comme &#231;a:

&H4049400000000000


Daniel

Sojojo · Answer

1112067276, c'est la valeur que je trouve avec la norme IEEE.
j'explique:
je rentre la valeur 50.5
je calcule le signe l'exposant et la mantisse.
tout ca c sur des bits pr&#233;cis
bit(31) 0 >signe (signe positif)bit(30) &#224;  bit(23) 10000100 >exposant (je suis pas sur ke ce soit pour la valeur 50.5)bit(22) &#224; bit(0) 100000....> mantisse

ensuite je fait 
for i = 31 to 0
nombre = nombre + Bit(i)*2^i
et la je trouve 1112067276 

Il est possible ke ce que je fasse ne tienne pas du tout la route, pour moi en faisant ca je suis retourn&#233; a une valeur d&#233;cimale sans virgule correspondant a 50.5

Gobillot · Answer

ok je pense que c'est parce que je suis en Double.

j'ai &#231;a:


Signe    --> 0

Exposant --> 10000000100

Mantisse --> 1001010000000000000000000000000000000000000000000000


Daniel

Sojojo · Answer

ouais ben la on est enti&#232;rement d'accord je trouve pareil donc apr&#232;s je le retransforme en decimal avec :
for i = 31 to 0
nombre = nombre + Bit(i)*2^i
et nombre = 1112067276 
ca c juste ou c totalement faut.???
parce que si ca c'est bon ca veu dire que mon envoie de telegramme au variateur n'est pas bon mais pourtant il fonctionne avec les variable sans virgules ... Bizzzzard ...

Gobillot · Answer

je pense que tu as une erreur dans la mantisse:

10010100000000000000000



ce qui donne --> 1112145920

Daniel

Gobillot · Answer

comment je calcule &#231;a



50.5 / 32 - 1 --> 0.578125





0.5000000    bit 22  =  1

0.0625000    bit 19  =  1

0.0156250    bit 17  =  1

Daniel

Sojojo · Answer

toi tu est sur 64 bits?
moi mon signe mopn exposant et ma mantisse sont sur 32 bits
ca change bcp?

Sojojo · Answer

je suis d'accord avec toi c ce que je trouve ausii
Bit(30) = 1
Bit(25) = 1
Bit(22) = 1
Bit(19) = 1
Bit(17) = 1
 et tous les autres sont a z&#233;ro et je suis sur 32 bits

Gobillot · Answer

j'ai adapt&#233; le programme vite fait.

de 1 + 11 + 52     (1023 pour exposant)

&#224;   1 + 8 + 23      (127 pour exposant)



et je retrouve le m&#234;me que Vb

Daniel

Sojojo · Answer

Ca repr&#233;sente quoi tout ca !! svp

Gobillot · Answer

Pourquoi tu laisses pas faire les calculs par VB

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)





    Dim V      As Single

    Dim B()    As Byte

    

' valeur d'entr&#233;e dans text1.text

    V = CSng(Text1.Text)

    ReDim B(3)

    CopyMemory B(0), V, 4

' r&#233;sultat dans text2.text

    Text2.text = B(3) * 16777216 + B(2) * 65536 + B(1) * 256 + B(0)


Daniel

Sojojo · Answer

ben je veu bien mais je declare :
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

apr&#232;s option explicit
et je mets 
Dim V      As Single
    Dim B()    As Byte
    

' valeur d'entr&#233;e dans text1.text
    V = CSng(Text1.Text)
    ReDim B(3)
    CopyMemory B(0), V, 4

' r&#233;sultat dans text2.text
    Text2.text = B(3) * 16777216 + B(2) * 65536 + B(1) * 256 + B(0)

a l'endroit ou je veu dans ma feuille
mais j'ai un message d'erreur : "erreur de compilation : fonction proc&#233;dure ou sub non defini" et j'ai CopyMemory qui et surlign&#233;

Sojojo · Answer

non c bon ca marche g parl&#233; trop vite mais ca me donne quand meme la valeur (1112145920) que j'avais avant.... en mins long, ok en moin risqu&#233;, ok

Demander que mon programme reconnaise les chiffres avec et sans virgule ### (SVP

18 réponses

Discussions similaires