bitwise 16 bit

Bonjour
je reçois sur un port com une valeur .
Je souhaite convertir cette valeur en binaire sur 16 bit pour analysé chaque bit

exemple
263
en binaire = *0000000100000111‬

93
en binaire = *0000000001011101‬

j ai essayer ceci mais cela ne fonctionne pas . Je ne comprend pas et je sollicite votre aide

Code:

---

1 2 3 4 5

Function ExamineBit(ByVal MyByte, ByVal MyBit) As Boolean Dim BitMask As Int16 BitMask = 2 ^ (MyBit - 1) ExamineBit = ((MyByte And BitMask) > 0) End Function

---

merci a vous

Une précision annexe mais importante il me semble concernant le vocabulaire.

Un Int16 (ou autre) est un type stockant des valeurs numériques.
263 et 100000111‬ sont des représentations d'une même valeur numérique dans différentes bases (resp. 10 et 2 ici)

Tu ne peux pas stocker une représentation plutôt qu'une autre dans un type numérique, car lui il s'en fout de comment tu le représentes visuellement ; c'est la même valeur.

Concernant ton code, déjà un code avec Option Explicit à Off c'est rare (vu qu'il est à On par défaut) du coup je me demande si il s'agit bien de VB.Net ou de VB6.
Ensuite, pourquoi tu t'enquiquines à manipuler les bit comme ça alors qu'il existe la classe BitArray, tu lui donnes ta valeur (sous forme d'un tableau de bits) dans son constructeur tu utilises son indexeur pour obtenir le bit que tu veux* et le tour est joué, fin de l'histoire.

(*) attention à l'endian-ness