Masquage de bitRésolu

Question

Jai une petite question :

je lis le port parall&#232;le de mon PC :

portD0 = Inp(PortAddress)

Avec cette fonction, je recup&#232;re la valeur du port, mais j'aimerais
savoir comment v&#233;rifier l'&#233;tat d'un seul bit ? Par exemple je veux
tester si le bit 0 est &#224; 1 ?



Idem, lorsque j'ecris sur le port, est-il possible de n'&#233;crire que certains bits ?



Merci pour l'aide.

Renfield · Accepted Answer

AND et OR .... rien besoin de plus ...

If ( portD0 And 8 ) Then ...

ScSami · Answer

Explique moi &#231;a Renfield stp !!!
Y'a quand m&#234;me un truc que j'ai pas du piger au nivo de la manipulation binaire via les fonctions logiques!!!
Si tu pouvais me faire un petit topo voire (mais je voudrais pas te donner trop de travail), un tuto sur ce sujet pourtant si fondamentale!

Sinon, tu vas peut-&#234;tre me prendre pour un lourdingue mais j'ai chercher partout, et en VB6, j'ai pas trouv&#233; ta fonction ChrW !!! Es-tu vraiment certain que ce n'est pas d'une API dont tu parlais et si non, y'a-t-il d'autres fonctions du genre ???

Enjoy  

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Renfield · Answer

Pour vérifier l'êtat du 4ème bit, par exemple, on fera par exemple

Input = 14
If (Input And 8) Then
    '# Le 4ème bit, qui représente la valeur 8, est à 1
End if

14       -> 1110 en binaire
 8       -> 1000 en binaire
l'opération And ne prenant que les bits en commun, on obtient :
14 And 8 -> 1000

--------------------

Dans VB
F2 > recherche de "ChrW" :

Function ChrW(CharCode As Long)
    Membre de VBA.Strings
    Renvoie une chaîne contenant le caractère natif spécifié (Unicode ou ANSI)

ScSami · Answer

Mais alors, explique moi l'utilit&#233; de OR et de XOR s'il te plait...

Enjoy  

<hr size="2" width="100%">
Je vais chercher mieux pour ChrW... Merci du tuyau

Renfield · Answer

http://valetg.club.fr/prof/electron/logique/logic1.htm

philippe laschweng 1 · Answer

Oui il faut utiliser un masquage logique !


Mais je crois qu'en VB tu ne peux pas utiliser les fonctions logiques (AND, OR...) avec des mots binaires directement. Exemple :
0011 AND 1110 te donne en th&#233;orie 0010. Mais je crois que VB n'accepte pas directement cette &#233;criture (pas comme du VHDL). Je me trompe peut &#234;tre ... mais je crois pas. Il n'accepte que ces fonctions entre 2 bits. Mais tu peux facilement te construire une fonction pour cela.

Pour masquer des bits, tu fais en principe un ET logique avec ton octet (exemple 8 bits) et un second octet ou tu mets les bits &#224; masquer &#224; 0 (les autres &#233;tant &#224; 1). Mais tu peux aussi utiliser in InStr() si tu veux isoler un bit en particulier m&#234;me si ca n'est pas le plus judicieux je te l'accorde ..

Mais c'est vraie qu'en logique bool&#233;enne tu fais tout avec les op&#233;rateurs AND, OR, XOR (inverseur command&#233;) etc ...

Phil

ScSami · Answer

Merci beaucoup les gars pour toutes ces pr&#233;cieuses (&#224; mes yeux) infos

Renfield · Answer

Phil, je t'assure, VB accepte bien AND et OR pour les op&#233;rations binaires....

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

philippe laschweng 1 · Answer

Renfield : je sais bien que VB accepte AND et OR pour les op&#233;rations binaires mais tu as du mal comprendre ou je me suis mal expliqu&#233;. Ce que je voulais dire, peut &#234;tre que je me trompe, mais je ne suis pas arriv&#233; &#224; faire par exemple un AND bit &#224; bit sur un octet complet, du genre :
000011111 AND 01010101 = 00000101.
VB n'est pas capable de te donner ce r&#233;sultat directement. Les op&#233;rations ne marche que bit &#224; bit.
Ce n'est pas comme avec du VHDL (langage de description hardware) par exemple qui accepte fort heureusement ce type d'op&#233;ration. 
En VB pour faire l'op&#233;ration du dessus, je me suis fabriqu&#233; des fonctions simples mais je n'ai pas trouv&#233; le moyen de faire l'op&#233;ration directement. 
Mais je me r&#233;p&#233;te je n'affirme rien, j'ai constat&#233; et je n'ai peut &#234;tre pas trouv&#233; la solution ...

A vous de me dire ...
Phil

Renfield · Answer

tu peux pas mettre tes chiffres direct en binaire, mais VB fais bien l'opération

31 and 85 => 21

ce qui fais bien :
000011111 AND 01010101  = 10101

a moins que je comprenne mal ce que tu veux me dire

philippe laschweng 1 · Answer

Oui tu as raison en d&#233;cimal cela fonctionne. Je n'avais jamais essay&#233; en d&#233;cimal car je n'y ai jamais pens&#233; vu que mon raisonnement &#233;tait binaire. Mais c'est un peu b&#234;te que VB n'accepte direct du binaire. Pareil je crois (peut &#234;tre ai-je encore tout faut) qu'il n'existe pas de fonction DIRECTE pour faire des conversions classiques base16 --> base10, base10 -- > base2 ...

Ce qui veut dire que si tu veux faire un ET logique entre deux octets (par exemple), tu es oblig&#233; de convertir dans un premier temps les deux octets de b2 en b10, faire l'op&#233;ration et reconvertir le r&#233;sultat de b10 en b2. En plus il te faut un module pour convertir b2 en b10 et b10 en b2 (j'ai une fois trouv&#233; un module sur le net qui fait toute les conversions dans toutes les bases).

Sinon, devant ce probl&#232;me j'avais dans le pass&#233; carr&#233;ment r&#233;alis&#233; une fonction qui utilise le AND mais bit &#224; bit pour chaque bit des deux mots binaires (en parall&#232;le).

En tout cas meri pour tes explications, j'aime bien cherch&#233; &#224; comprendre ce que je ne comprends pas !! lol


Phil

Renfield · Answer

16, si, mais pas en binaire

Hex$( )  pour conversion vers hexa

dans l'autre sens :
MaVal = "C0"
DecimalValue = Val ( "&h" & MaVal )

ScSami · Answer

Je crois qu'il existe aussi une fonction de convertion octale!

philippe laschweng 1 · Answer

Oui le Hex je conaissais mais binaire rien trouv&#233; dessus !

Masquage de bit

14 réponses

Discussions similaires