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 : Sélectionner tout - Visualiser dans une fenêtre à part
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