Convertir 32bits en 4bits [Résolu]

le cancre 292 Messages postés mercredi 25 octobre 2006Date d'inscription 27 novembre 2009 Dernière intervention - 2 nov. 2006 à 17:04 - Dernière réponse : le cancre 292 Messages postés mercredi 25 octobre 2006Date d'inscription 27 novembre 2009 Dernière intervention
- 3 nov. 2006 à 02:49
Bonjour à tous ^^
je dois remplir un champ(de 4bits) avec une valeur de 5mots de 32bits
au départ j'ai 20 octets = 160bits que je divise par 32 pour obtenir 5

j'ai trouvé une fonction mais elle prend que les valeurs 8bits
Public Function HiNibble(bytValue As Byte) As Byte
    HiNibble = (bytValue And &HF0) \ 16
End Function
'HiNibble extrait les 4 bits supérieurs d'une valeur 8bits et les renvoie comme une valeur 4bits.
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
ShareVB 2717 Messages postés vendredi 28 juin 2002Date d'inscription 13 janvier 2016 Dernière intervention - 2 nov. 2006 à 21:00
3
Merci
salut,

ca marche aussi en Long :

Public Function HiNibble(bytValue As Long) As Byte
    HiNibble = (bytValue And &HF0000000&) \ &h10000000&
End Function

ShareVB

Merci ShareVB 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de ShareVB
le cancre 292 Messages postés mercredi 25 octobre 2006Date d'inscription 27 novembre 2009 Dernière intervention - 3 nov. 2006 à 02:49
0
Merci
merci ShareVB
Commenter la réponse de le cancre

Vous n'êtes pas encore membre ?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.