Salut,

Le fait est que j'ai besoin de lire un certain pin caractéristique d'un régistre et je n'arrive qu'à lire la valeur de l'ensemble du régistre.
Plus spécifiquement, un pin déterminé du régistre Status du port parallèle.
Je ne reçois que la valeur de l'ensemble du régistre en décimal. Serait-ce une solution que de le convertir en binaire? Mais alors cmt faire une conversion d'un nombre décimal en binaire - et non pas en format d'octet?!
Idée?

Merci d'avance,
Rhea

Conversion d'un entier en bit

Dim Bit(15) As Boolean
Dim data As long
Dim i As Integer

    ' data = 4 exmple
    For i = 0 To 15
        Bit(i) = IIf((data And (2 ^ i)) = (2 ^ i), True, False)
    Next
   ' Affichage
    Text1.Text = ""
    For i = 0 To 15
        Text1.Text = Text1.Text & IIf(Bit(i), 1, 0) & "|"
    Next

Bye.