RECEPTION TRAMES USB

Question

Bonjour , 

Je me permets de vous poser la questuion , je suis actuellement sur un projet d'envoi et reception de données . 

J'ai reussi à envoyer des caractères avec la fonction hidWriteEx mais je ne maitrise pas totalement  la fonction hidread . ( je n'arrive pas à recevoir dans le box les caractères )

Pourriez vous m'aider sur ce problème en vous remerciant d'avance.

igor941 · Answer

Voici le code que j'utilise :

Public Sub OnRead(ByVal pHandle As Long)



      Dim Index2 As Byte
      Buffer(0) = 0
      BufferIn(0) = 0
'        hidReadEx VendorID, ProductID, BufferIn(0)
          If hidRead(pHandle, BufferIn(0)) Then   ' Lecture des données du périphérique  (Buffer(0) report ID) 0
          MsgBox ("A")
           Text1.Text = "A"
           For Index2 = 1 To BufferInSize               ' pass the whole array but skip (0)
          If Chr(BufferIn(Index2)) <> 0 Then       ' valid data?
            Text1.Text = Text1.Text & Chr(BufferIn(Index2))
            End If
            Next Index2

End Sub

RECEPTION TRAMES USB

1 réponse

Votre réponse

Discussions similaires