CONVERTIR UN OCTET EN 8 BITS (10011101) BYTESTOBITS
cs_Willi
Messages postés
2375
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
-
18 févr. 2007 à 22:24
cs_yvesyves Messages postés 561 Date d'inscription samedi 10 janvier 2004 Statut Membre Dernière intervention 11 octobre 2010 - 19 févr. 2007 à 19:44
cs_yvesyves Messages postés 561 Date d'inscription samedi 10 janvier 2004 Statut Membre Dernière intervention 11 octobre 2010 - 19 févr. 2007 à 19:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/41532-convertir-un-octet-en-8-bits-10011101-bytestobits
https://codes-sources.commentcamarche.net/source/41532-convertir-un-octet-en-8-bits-10011101-bytestobits
19 févr. 2007 à 19:44
Dim TblBits(7) As Boolean 'Tableau de bits (Boolean)
For Iteration As Integer = 0 To 7 'Boucle
TblBits(Iteration) = Octet And 1
Octet >>= 1
Next
Return TblBits 'On renvoit
End Function
Voici donc le code le plus court de Draluorg. Merci a vous d'avoir optimiser mon code.
Oulà, je ne savais pas qu'il fallait tant d'octet pour codée une valeur String en .NET. Si j'ai bien compris vaut mieux travailler avec un tableau de Chars ou Bytes si on veut de la performence en recodant les fonction tel que Mid() Left() Instr() les comparaisons.
Non je ne voulais pas tester un Bit mais bien transformer tout l'octet en une suite de Bits que l'on peut manipuler après. Ce que je trouve sympa c'est qu'après on peut faire des fonctions pour transformer en x Bits. Si j'ai fais cette fonction c'est surtout pour les I/O sur les fichiers.
19 févr. 2007 à 18:03
a = OctetATes >> Position
If a And 1 Then POSITIONNE
19 févr. 2007 à 17:56
pour savoir si un bit est à 0 ou à 1
car je pense que c'est le but recherché de yvesyves
Return (OctetATest And (2 ^ (Position - 1))) = 2 ^ (Position - 1)
OctetATest = le nombre décimal
Position = bit à tester
19 févr. 2007 à 17:54
Pour vous c'est BSTR, 1 pointeur d'adresse (4 octets), 1 pointeur sur les données (4 octets), les donnéees à l'adresse (x octets), champ LEN, etc...
La lenteur n'est pas due au hasard.
19 févr. 2007 à 17:51
19 févr. 2007 à 17:49
Avant de faire une méthode, il faudrait regarder si
elle n'existe pas déjà dans le framework !
19 févr. 2007 à 17:47
Ici le but est de faire une fonction qui converti et non pas d'appeler un fonction qui le fait...
19 févr. 2007 à 17:44
System.Convert.ToInt64(Valeur, FromBase), ToBase
Valeur = nombre à convertir
FromBase = 10
ToBase = 2
Cela renvoi un string
19 févr. 2007 à 17:41
For i = 0 To 7
TblBits(i) = Octet And 1
Octet >>= 1
Next i
19 févr. 2007 à 17:28
19 févr. 2007 à 09:33
System.Convert.ToInt64(Valeur, FromBase), ToBase
Valeur = nombre à convertir
FromBase = 10
ToBase = 2
Cela renvoi un string
On peut ansi passer de n'importe quelle base vers une autre
19 févr. 2007 à 01:13
Affecter -1 à un bit n'aurait aucun sens, un nbr est vu comme négatif si son bit de poids fort est psotionné, il est donc clair qu'un bit seul n'est ni négatif ni positif, seulement 0 ou <> 0.
Je persiste à croire que toucher aux interprétés avant d'avoir étudié ASM et C est une pure calamité.
19 févr. 2007 à 01:07
for i = 0 to 7
if octet And 1 Then TblBits(i) = True
Else TblBits(i) = False
End if
octet >>= 1
next
Ne ferait pas idem en plus court ?
18 févr. 2007 à 23:58
18 févr. 2007 à 22:24