Lire un bit : MISSION POSSIBLEMENT IMPOSSIBLE

[Psycode]

Mais quel cinéma pour lire 1 bit !!!!!!!!!!!!!!!!!!!!!! :

Code : Tout sélectionner

c$=Chr(PeekB(*Buffer+i))
z= Asc(c$)
b$=Bin(z)
c$="00000000"+b$
b$=Right(c$, 8)
c$=Mid(b$,NumeroDuBit,1)
valeur = Val(c$)

A moins qu'il existe une instruction bien caché dans le manuel...

[Oliv]

Dans ton code quand tu fais

Code : Tout sélectionner

c$=Chr(PeekB(*Buffer+i)) 
z= Asc(c$)

ça revient à faire z = PeekB(*Buffer+i) puisque Chr() convertit la valeur en caractère et le caractère eest ensuite convertit en code ASCII donc tu te retrouves avec la même chose

[nico]

il faut utiliser un masque:

Ex:

Code : Tout sélectionner

a.b=%00100110
b.b=1
For i =1 To 8
  c=a &  b
  b<<1
  If c=0
    Debug 0
  Else
    Debug 1
  EndIf
Next

[Psycode]

@oliv : certes, mais ca fait toujours un gros paquet de ligne

@nico : tres interessant ce code !!

[nico]

Je viens de me rendre comte d'un truc:
Avec une valeur supérieur à 128 où négatif, je n'affiche que des 1
Je sais que c'est un nombre signé mais pour moi, je devrais avoir la même chose qu'il soit signé ou pas.

Code : Tout sélectionner

a.b=152
b.b=1 
For i =1 To 8 
  c=a &  b 
  b<<1 
  If c=0 
    Debug 0 
  Else 
    Debug 1 
  EndIf 
Next

Pour moi, y a un problème!!??

[filperj]

En remplaçant "c" par "c.b", ça semble résoudre le problème.
Mais on dirai bien un bug, en effet.

[nico]

Ok, je fais peut être une opération non conforme avec un type long!

Merci

[LavaLava]

Peut-être que j'arrive trop tard mais voila ...

Code : Tout sélectionner

B = PeekB(*Buffer+i) & (1 << NumeroDuBit) )
If B > 0
 B = 1
Endif

[/code]