Lecture de bits

**Benji59** · 13/04/2008, 10h11

Bonjour,

Je vais vous expliquer mon problème,

Alors voila, j'ai une carte d'entrées/sorties relié au PC via RS232, je m'amuse à lire les ports A,B,C et D qui sont sur 8 bits.

Je recupere donc une trame de 8 bits et ensuite je dispose d'un panneau de "LED" (en fait ce sont des cercles coloriés sous VB) et je souhaiterai allumer la LED correspondante au bit.

J'ai trouvé uné méthode mais elle est relativement longue à réaliser, je convertis la valeur du port en décimal (1111 1111 = 255) et ensuite je regarde si mon nombre peut avoir 255, si oui j'allume une led si non je prends le bit suivant. (Le programme devient une usine à gaz avec tous les if imbriqués pour que tous les cas soient traités)

J'aimerai savoir s'il y a une façon plus efficace ou plus rapide de réaliser cette petite application, merci !

**SfJ5Rpw8** · 13/04/2008, 10h27

Envoyé par Benji59

et ensuite je regarde si mon nombre peut avoir 255..

tu fais comment pour "regarder"...?

Utilise un AND ..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 Dim bPort As Byte
 Dim bNumbit As Byte
 
 bPort = 254
 bNumbit = 0
 
 If (bPort And 2 ^ bNumbit) Then
    MsgBox "le bit " & bNumbit & " dans " & bPort & " Et à TRUE"
  Else
    MsgBox "le bit " & bNumbit & " dans " & bPort & " Et à FALSE"
 End If

**Benji59** · 13/04/2008, 10h30

En fait lorsque je lis le port choisi, j'ai une instruction qui me permet d'avoir la valeur du port en décimal et à partir de là je soustrais les valeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
A7 = A - 255
if A7>=0 then 
'allume la led
       A6 = A7 - 128
else A<0
       A6 = A - 128
end if

et ainsi de suite

**SfJ5Rpw8** · 13/04/2008, 10h49

255 ..? c'est tout les bits à 1..?

**Benji59** · 13/04/2008, 10h50

Oui 255 ca correspond à 1111 1111, je me suis trompé, c'est 128 et non 255 pour tester le MSB

En fait lorsque je lis le port choisi, j'ai une instruction qui me permet d'avoir la valeur du port en décimal et à partir de là je soustrais les valeurs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
A7 = A - 128
if A7>=0 then 
'allume la led A7
       A6 = A7 - 64
       if A6 >=0 then
            'allume la led A6
            A5= A6 - 32
       else A6<0
       A5 = A7-32
else A7<0
       A6 = A - 64
       If A6 >=0 then
           'allume la led A6
            A5 = A6-32
       else A6<0
             A5 = A - 32
end if

et ainsi de suite