bon petite remonté d'info, ca peut servir à d'autre 
j'ai tenté ma chance avec différente boucle ... rien à faire, tant que je faisais une tâche, je savais pas en faire une autre
tiens ça me dit un truc... à oui les threads 
étant débutant, j'ai cherché un petit moment à comprendre les threads
mon code n'est pas beau à lire par des experts mais il marche
si vous voyez une horreur d'écrire, ne crier pas 
déclaration du thread
Dim th As New Thread(New ParameterizedThreadStart(AddressOf Envoie_Data))
donc là, au click de bouton, on démarre le thread
1 2 3 4 5 6
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
th.Start()
End Sub |
et la nouvelle méthode d'envoie
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Public Sub Envoie_Data()
' 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(" ")
BufferOut(7) = &H0
BufferOut(8) = &H3
BufferOut(9) = &H0
hidWriteEx(VendorID, ProductID, BufferOut(0)) ' envoie la commande RESET au target
While (reset_flag = 0)
'attente que le pic reponde au reset
End While
... |
et donc maintenant mon thread attend la réponse avant de continuer
seul bémol, je sais pas encore arreter le thread "proprement" 
au bout d'un moment, il est pas content
Partager