Voila un bou de code qui peut te permettre de recevoir des données avec la méthode d'interruption. Voila avec sa t tranquille
Public MesurePoids As String
Private Delegate Sub _Affiche_ASCII(ByVal Buffer_Mesure_BALANCE As String)
Private Sub SerialPortBalance_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim nb_octet As Integer = Me.SerialPort1.BytesToRead ' on récupère le nombre d'octet présent dans le tampon
Dim trame(nb_octet - 1) As Byte ' Tableau acceuillant les données au format byte
Dim Buffer_Mesure_BALANCE As String = Me.SerialPort1.ReadLine() 'on lit le port
If Me.InvokeRequired Then
Me.Invoke(New _Affiche_ASCII(AddressOf Traitement_Trames_BALANCE), Buffer_Mesure_BALANCE)
End If
End Sub
Sub Traitement_Trames_BALANCE(ByVal Buffer_Mesure_BALANCE As String)
MesurePoids = Buffer_Mesure_BALANCE
Label1.Text = MesurePoids
Label1.Refresh()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Open()
End Sub