Conversion d'un mots decimal 32 bits en 2 mots 16 bits [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Conversion d'un mots decimal 32 bits en 2 mots 16 bits [Résolu]

ptitnico22 8 Messages postés lundi 27 mars 2006Date d'inscription 18 septembre 2008 Dernière intervention - 17 sept. 2008 à 17:36 - Dernière réponse : Kevin.Ory 843 Messages postés mercredi 22 octobre 2003Date d'inscription 7 janvier 2009 Dernière intervention

- 18 sept. 2008 à 18:49

VB.NET Posez votre question Signaler Répondre au sujet

Bonjours,

Voila je voudrais pouvoir transformer le mot décimal 32 bits deux mots de 16 bits le tout sur Visual Basic 2005

par ex : le mot 16809983 en 32 bits se transforme en 256 et 32767 en 16 bits

Si vous pouvez me dire comment procéder etc ...

Merci d'avance

Afficher la suite

12 réponses

Répondre au sujet

Signaler Commenter la réponse de Kevin.Ory

Kevin.Ory 843 Messages postés mercredi 22 octobre 2003Date d'inscription 7 janvier 2009 Dernière intervention - 17 sept. 2008 à 21:22

+3

Utile

Salut,
nhervagault, il existe déjà une classe permettant la conversion entre les type de base et des tableaux de bytes dans le framework

' L'integer (entier 32 bits) :
Dim IntegerValue As Integer = 34
Dim tab() As Byte = BitConverter.GetBytes(IntegerValue)
' Les 2 short (entier 16 bits) :
Dim ShortValue1 As Short = BitConverter.ToInt16(tab, 0)
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, 3)

Cette réponse vous a-t-elle aidé ? Oui Non

Commenter la réponse de Kevin.Ory

Signaler Commenter la réponse de Kevin.Ory

Kevin.Ory 843 Messages postés mercredi 22 octobre 2003Date d'inscription 7 janvier 2009 Dernière intervention - 18 sept. 2008 à 03:20

+3

Utile

Little ou big endian, je connais pas

Mais je viens de voir que j'avais fais une erreur:
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, <strike>3</strike>)
devient:
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, 2)

Cette réponse vous a-t-elle aidé ? Oui Non

Commenter la réponse de Kevin.Ory

Signaler Commenter la réponse de cs_casy

cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 17 sept. 2008 à 18:00

0

Utile

Ca devrait je pense, quelque chose comme :

mot16_1 = mot32 \ 32768
mot16_2 = mot32 MOD 32768

---- Sevyc64 (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

Commenter la réponse de cs_casy

Signaler Commenter la réponse de nhervagault

nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 17 sept. 2008 à 19:54

0

Utile

Salut

Avec les 2 methodes suivantes c'est surement possible

public static byte[] UInt32ToBytes(UInt32 pNumber)
{
byte[] res = new byte[4];
res[0] = (byte)(pNumber >> 24);
res[1] = (byte)((pNumber << 8) >> 24);
res[2] = (byte)((pNumber << 16) >> 24);
res[3] = (byte)((pNumber << 24) >> 24);
return res;
}

publicstaticshort MakeWord(byte bLow, byte bHigh)
{
      return (short)(bLow | (bHigh << 8));

}

Commenter la réponse de nhervagault

Signaler Commenter la réponse de nhervagault

nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 17 sept. 2008 à 20:24

0

Utile

Oups,

J'ai mis le code en c# en voici un en vb.net (à partir de 2005) pour l'autre fonction je te laisse traduire ;-)

Public Shared Function MakeWord(ByVal
bLow As Byte, ByVal bHigh As Byte) As Short


Return Convert.ToInt16(bLow Or (bHigh << 8))

End Function

Commenter la réponse de nhervagault

Signaler Commenter la réponse de nhervagault

nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 17 sept. 2008 à 21:34

0

Utile

Oui,

Mais avec cette classe, il faut faire attention comme avec ma méthode.
J'ai oublié de le préciser, si on travaille en little endian ou en big endian (ca dépend sur quelle plateforme de travail ;-)
ma méthode fonction avec l'une des plateforme et bitconverter avec l'autre.

Je l'avais oubliée cette classe ;-)

De plus pour le bitconverter, la longeur d'entrée me semble infini contrairement à ma méthode.

Voila, maintenant il suffit de trier pour prendre la méthode qui convient ;-)

Commenter la réponse de nhervagault

Signaler Commenter la réponse de ptitnico22

ptitnico22 8 Messages postés lundi 27 mars 2006Date d'inscription 18 septembre 2008 Dernière intervention - 18 sept. 2008 à 00:26

0

Utile

Merci de toute vos réponses je vous direz demain se qu'il en est.

Commenter la réponse de ptitnico22

Signaler Commenter la réponse de nhervagault

nhervagault 6069 Messages postés dimanche 13 avril 2003Date d'inscription 15 juillet 2011 Dernière intervention - 18 sept. 2008 à 09:36

0

Utile

Pour la culture
http://fr.wikipedia.org/wiki/Big_endian
x86 --> little endian
IBM/Motorola/... --> big endian

Commenter la réponse de nhervagault

Signaler Commenter la réponse de ptitnico22

ptitnico22 8 Messages postés lundi 27 mars 2006Date d'inscription 18 septembre 2008 Dernière intervention - 18 sept. 2008 à 16:00

0

Utile

Donc les méthodes de Kevin.Ory
et de casy s'intègres parfaitement.
Merci de votre aide.
A bientôt

Commenter la réponse de ptitnico22

Signaler Commenter la réponse de Kevin.Ory

Kevin.Ory 843 Messages postés mercredi 22 octobre 2003Date d'inscription 7 janvier 2009 Dernière intervention - 18 sept. 2008 à 18:44

0

Utile

Ah oui, octets de poids faible et de poids fort inversé, bon à savoir effectivement. Merci pour l'info

Mais sinon, la méthode de casy reste la plus simple :

   Dim Int32 As Int32 = 123
   Dim Int16a As Int16
   Dim Int16b As Int16 = Math.DivRem(int32, 65536, CInt(Int16a))

Commenter la réponse de Kevin.Ory

Signaler Commenter la réponse de Kevin.Ory

Kevin.Ory 843 Messages postés mercredi 22 octobre 2003Date d'inscription 7 janvier 2009 Dernière intervention - 18 sept. 2008 à 18:49

0

Utile

Ah ben non, fonctionne pas avec mon CInt()

Faut faire un truc comme ça, car Math.DivRem n'accepte pas les Short:

Dim Int32 As Int32 = 4213654
Dim Reste As Int32
Dim Int16a As Int16 = Math.DivRem(Int32, 65536, Reste)
Dim Int16b = Reste

Commenter la réponse de Kevin.Ory

Accepted Answer

+3

Utile

Tiens, je constate que mon code est faux.

C'est 65536 le diviseur et non pas 32768

---- Sevyc64 (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

Cette réponse vous a-t-elle aidé ? Oui Non

Accepted Answer

+3

Utile

Salut,
nhervagault, il existe déjà une classe permettant la conversion entre les type de base et des tableaux de bytes dans le framework

' L'integer (entier 32 bits) :
Dim IntegerValue As Integer = 34
Dim tab() As Byte = BitConverter.GetBytes(IntegerValue)
' Les 2 short (entier 16 bits) :
Dim ShortValue1 As Short = BitConverter.ToInt16(tab, 0)
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, 3)

Cette réponse vous a-t-elle aidé ? Oui Non

Accepted Answer

+3

Utile

Little ou big endian, je connais pas

Mais je viens de voir que j'avais fais une erreur:
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, <strike>3</strike>)
devient:
Dim ShortValue2 As Short = BitConverter.ToInt16(tab, 2)

Cette réponse vous a-t-elle aidé ? Oui Non

Conversion d'un mots decimal 32 bits en 2 mots 16 bits [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !