synchronisation data HID ? vendredi 16 septembre 2011 18:28:56 |
Membre depuis : 12 ans Messages: 2 |
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim testboucle As Integer ' RESET Commande_PC = Asc("R" ) BufferOut(0) = 0 BufferOut(1) = Asc("R" ) BufferOut(2) = Asc("E" ) BufferOut(3) = Asc("S" ) BufferOut(4) = Asc("E" ) BufferOut(5) = Asc("T" ) BufferOut(6) = Asc(" " ) hidWriteEx(VendorID, ProductID, BufferOut(0)) ' envoie la commande RESET au target While (reset_flag = 0) 'attente que le reset se fasse ... End While ' FLASH BufferOut(0) = 0 BufferOut(1) = Asc("F" ) BufferOut(2) = Asc("L" ) BufferOut(3) = Asc("A" ) BufferOut(4) = Asc("S" ) BufferOut(5) = Asc("H" ) BufferOut(6) = Asc(" " ) hidWriteEx(VendorID, ProductID, BufferOut(0)) ' envoie la commande FLASH au target ... End Sub
Public Sub OnRead(ByVal pHandle As Integer) '***************************************************************** ' on read event... '***************************************************************** ' read the data (don't forget, pass the whole array)... If hidRead(pHandle, BufferIn(0)) Then ' ** YOUR CODE HERE ** ' first byte is the report ID, e.g. BufferIn(0) ' the other bytes are the data from the microcontroller... If Commande_PC = Asc("R" ) Then reset_flag = 1 ... End If End If End Sub
Re: synchronisation data HID ? vendredi 16 septembre 2011 20:58:40 |
Administrateur Membre depuis : 18 ans Messages: 640 |
Re: synchronisation data HID ? vendredi 16 septembre 2011 21:15:16 |
Membre depuis : 12 ans Messages: 2 |
Re: synchronisation data HID ? mercredi 21 septembre 2011 06:20:05 |
Administrateur Membre depuis : 18 ans Messages: 640 |
Re: synchronisation data HID ? mercredi 21 septembre 2011 06:20:06 |
Administrateur Membre depuis : 18 ans Messages: 640 |