Bonjour je suis embêté avec mon port com en effet des la premier réception la ma form est plantée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager