Port Com et Threading

Bonjour je suis embêté avec mon port com en effet des la premier réception la ma form est plantée

Code:

1
2
3
    Private Sub RS232_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles RS232.DataReceived
        Me.Invoke(New EventHandler(AddressOf reception))
    End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Private Sub reception()
        donnee = RS232.ReadTo(Chr(13) & Chr(10) & Chr(13) & Chr(10))
        Dim Trans As New Transmission() With
            {
            .Tram = donnee
            }
        Trans.Analyse()
        'Trans.Events.send()
        i = i + 1
        Dim Detect As New DI_SEND() With
            {
        .Type_Event = "AF",
        .DateHeure = "01/12/2020",
        .Zone = "23",
        .Adresse = "2312",
        .Txt = "ypoufffffy",
        .sender = "MOfffI1"
        }
 
 
 
        Dim setter = client.Set(Detect.sender + "/" & i, Detect)
 
 
    End Sub

le client sert a transmettre des infos a Firebase.
Le code fonctionne très bien a partir d'un bouton. je pense que c'est un problème de Thread mais je n'ai jamais fais

Si vous avez une Idée:roll: