Recomposer un Single avec quatre octect

Résolu
toxjamescook Messages postés 45 Date d'inscription vendredi 1 avril 2005 Statut Membre Dernière intervention 6 février 2007 - 23 sept. 2006 à 17:55
toxjamescook Messages postés 45 Date d'inscription vendredi 1 avril 2005 Statut Membre Dernière intervention 6 février 2007 - 24 sept. 2006 à 02:22
Bonjour voila mon problème

j'ai 4 informations byte qui représente les bits (0 à 7), les bits (8 à 15) , les bits (16 à 23) ,les bits (24 à 31) de la variable Single souhaité

Mais je ne sais pas quel astuce pour recomposé le single :

Exemple je déclare un tab de 4 byte

tab(1)=92   MSB N
tab(2)=143 LSB N
tab(3)=34   MSB N+1
tab(4)=64   LSB N+1

Et j'aimerais retrouvé ma valeur single de 2.54

Merci d'avance

2 réponses

cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 40
23 sept. 2006 à 18:08
'--- Déclaration -----------------------------------------------------------------------------


Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) 

'--- Utilisation -----------------------------------------------------------------------------
Dim TonTab(1 To 4) As Byte 
Dim TonSingle As Single 

TonTab(1) = 92  'MSB N
TonTab(2) = 143  'LSB N
TonTab(3) = 34  'MSB N+1
TonTab(4) = 64  'LSB N+1

CopyMemory TonSingle, TonTab(1), LenB(TonSingle) 

MsgBox TonSingle 

<small>Coloration syntaxique
automatique</small>







---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
3
toxjamescook Messages postés 45 Date d'inscription vendredi 1 avril 2005 Statut Membre Dernière intervention 6 février 2007
24 sept. 2006 à 02:22
Merci a toi casy, ca marche du tonnerre


 
0
Rejoignez-nous