Decomposer un nombe binaire 8bit en 8 variables et vis versa

Question

Bonjour je cherche a décomposer un nombre binaire en 8 variable, ex:
10010111
V1=1
V2=0
V3=0
V4=1
V5=0
V6=1
V7=1
V8=1

et faire l'inverse.
Pour convertire les 8 variables en un nombre binaire, j'ai deja une idéé pour le probleme du dessu, je vois pas de trop.

Merci d'avance PCMAN5

pcman5 · Answer

mon idée pour convertire les 8 variables en un nombre binaire, n'est pas bonne, donc si vous avez aussi une solution pour ca...

Encore merci.
PCMAN5

pcman5 · Answer

>mon idée pour convertire les 8 variables en un nombre
>binaire, n'est pas bonne, donc si vous avez aussi une
>solution pour ca... 

Non au faite ca marche:


Public Function convert_var_to_bin(V0 As Integer, V1 As Integer, V2 As Integer, V3 As Integer, V4 As Integer, V5 As Integer, V6 As Integer, V7 As Integer, inversion As Boolean) As Long
convert_var_to_bin = V0 & V1 & V2 & V3 & V4 & V5 & V6 & V7
End Function

pcman5 · Answer

C bon j'ai trouvé une solution, apré avoir compris à quoi sert MID. Pour ce a qui sa interesse voila ce que j'ai fait:

B0 = Mid(Valeur, 1, 1)
B1 = Mid(Valeur, 2, 2)
B2 = Mid(Valeur, 3, 3)
b3 = Mid(Valeur, 4, 4)
B4 = Mid(Valeur, 5, 5)
B5 = Mid(Valeur, 6, 6)
B6 = Mid(Valeur, 7, 7)
B7 = Mid(Valeur, 8, 8)

pcman5 · Answer

Oups je me suis tromper en recopiant:

B0 = Mid(Valeur, 1, 1)
B1 = Mid(Valeur, 2, 1)
B2 = Mid(Valeur, 3, 1)
B3 = Mid(Valeur, 4, 1)
B4 = Mid(Valeur, 5, 1)
B5 = Mid(Valeur, 6, 1)
B6 = Mid(Valeur, 7, 1)
B7 = Mid(Valeur, 8, 1)

Decomposer un nombe binaire 8bit en 8 variables et vis versa

4 réponses

Discussions similaires