Lire un bit précis dans les registre du port LPT

Question

Bonjour

J'arrive a lire les registre du port LPT mais j'aimerais etre capable de lire un bit spécifique

au fond j'aimerais savoir si le bit est a 1 ou 0 sans a avoir a lire tous le registre

voici la routine que j'utilise pour un registre

Public Function read_DataReg()

If Self Then Exit Function
  
  initc = True
  register = Inp(PortAddress)
  read_DataReg = register

End Function

cs_casy · Answer

Tu ne peux pas lire un bt, il te faut lire le registre entier (8 bits) et faire un masque sur la valeur pour avoir l'état de ton bit.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

Moritus · Answer

J'aime l'idée..

peut-tu developper un peu svp

cs_casy · Answer

Une fois que tu as lu ta valeur, tu applique un masque dessus pour isoler le bit

Par exemple si tu veux lire le bit 3, tu lis ta valeur, tu applique un masque avec 8 (2^3=8). Si le résultat est égal au masque (ici 8) c'est que le bit est à 1 sinon le résultat =0

If read_DataReg and 8 = 8 Then 
    msgbox("le bit 3 est à 1") ' le bit 3 correspondant évidement au 4eme bit 
End If

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

Moritus · Answer

merci..

seul problème, c'est que ca fonctionne que si seulement un des bit est mis a 1

quoi que c'est peut être moi alors voici comment je me suis pris

Public Function read_Data(bytes As Integer)
If Self Then Exit Function
  
  initc = True
  
  register = Inp(PortAddress)
  If register = 2 ^ bytes Then
     read_Data = 1
  Else
    read_Data = 0
  End If

End Function

Mikaels35 · Answer

Tu écris:  

If register = 2 ^ bytes Then
 
Le test fonctionne en effet si  "register" n'à qu'un seul bit positionné et au bon endroit, n'importe quel autre bit à "1" en plus de celui testé entrainera une condition fausse !

Pour tester un bit quelconque quelle que soit la valeur de "register", il faut faire:

If (register And 2^ bytes) = 2^ bytes Then (comme le dit Casy)

ou on peut tout simplement écrire (puisqu'on fait un masque sur un seul bit, tous les autres sont mis à "0")

If (register And 2^ bytes) > 0 Then

@+

Moritus · Answer

j'avais essayer mais ca ne fonctionnait pas...
par contre ca ma donner une bonne piste et j'ai réussi a trouver comment faire!!

Merci!

Lire un bit précis dans les registre du port LPT

6 réponses

Votre réponse

Discussions similaires