Comment Coder un entier de type long sur 4 Octets

cs_Fredo56 Messages postés 2 Date d'inscription vendredi 30 avril 2004 Statut Membre Dernière intervention 21 février 2006 - 20 févr. 2006 à 15:43
cs_Fredo56 Messages postés 2 Date d'inscription vendredi 30 avril 2004 Statut Membre Dernière intervention 21 février 2006 - 21 févr. 2006 à 10:25
Salut à tous!!!

Salut à tous, je cherche un code pouvant convertir un entier de type long vers un tableau representant 4 octets:
Exemple:
40455: v(1) =7 =00000111
v(2) =158 =10011110
v(3) =0 =00000000
v(4) =0 =00000000

3 réponses

Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
20 févr. 2006 à 16:09
Salut,









Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Private Sub Command1_Click()

Dim v(4) As Byte

Dim nbr As Long



nbr = 40455

CopyMemory v(1), nbr, 4



MsgBox v(1)

MsgBox v(2)

MsgBox v(3)

MsgBox v(4)

End Sub






Daniel
0
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
20 févr. 2006 à 20:13
On sent qu'il maitrise, le Gollibot !
Il l'aime bien son API MoveMemory !
0
cs_Fredo56 Messages postés 2 Date d'inscription vendredi 30 avril 2004 Statut Membre Dernière intervention 21 février 2006
21 févr. 2006 à 10:25
Fredo

Excellent !!!!!!!!!!!!
tu me sort d'une grosse Mer.......... Très simple et très efficace !!!!!!!!!
0
Rejoignez-nous