Utiliser un thread à chaque appui sur un bouton d'une IG

**sticks_678** · 26/04/2017, 15h16

Bonjour,

Je suis actuellement en train de travailler sur un logiciel de test. Le logicielle sera sur un ordinateur équipé d'un dongle BT. En effet, le logicielle doit être capable de communiquer avec une Raspberry via BT. J'ai donc créer un réseau PAN qui me permet d'obtenir une adresse IP pour chaque machine. Grâce à cela, j'ai pu utiliser un socket TCP/IP pour l'échange. Jusque la tout va bien.

Mon soucis dans ce logicielle c'est que j'ai une étape préliminaire qui est de tester si ma communication BT fonctionne et si une autre RPi (en reseau local avec la 1ère RPi) répond. J'ai donc utiliser la méthode du multithread pour ouvrir un thread à chaque fois que j'appui sur le bouton test de l'IG, ce qui me permet de tester si tous les réglages sont bien réalisé. Comme vous l'aurez compris, cela ne fonctionne pas.

Voici le code pour vous mettre dans le bain:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
 
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
 
Public Class Preliminary_Check
 
    Dim Ip As String = "192.168.50.2"
    Dim port As String = "1000"
    Dim Socket_client As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    Dim MyEp As IPEndPoint = New IPEndPoint(IPAddress.Parse(Ip), port)
 
    Dim check_step As Integer = 0
    Dim Thread_PreliminaryCheck As New Thread(AddressOf Test1_PreliminaryCheck)
    Delegate Sub dTest_ping_BOX1()
 
 
    Private Sub Preliminary_Check_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Supprime le fichier de Log à chaque démarrage
        My.Computer.FileSystem.DeleteFile("C:\log\log.txt")
 
        Next_Btn.Enabled = False
 
        BT_pict.Image = Image.FromFile("C:\img\BT_off.png")
        BT_Check_label.Text = " Disconnected "
 
        Box_pict.Image = Image.FromFile("C:\img\red_cross.png")
        Box_Check_Label.Text = " Disconnected "
 
        WriteInLog("Socket Client initialisé")
    End Sub
 
 
    Private Sub Quit_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit_Btn.Click
        Me.Close()
        Login.Close()
        Socket_client.Close()
    End Sub
 
 
    Public Sub Test_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Test_Btn.Click 
        Thread_PreliminaryCheck.Start()
    End Sub
 
    Private Sub Test_ping_BOX2(ByVal Socket)
        Dim cmd As Byte() = System.Text.Encoding.ASCII.GetBytes("ping box2")
        Dim buffer_byte(50) As Byte
        Dim buffer_string As String
        Socket.Send(cmd)
        Socket.Receive(buffer_byte)
        buffer_string = System.Text.Encoding.ASCII.GetString(buffer_byte)
        WriteInLog("Resultat du ping ... : " & buffer_string)
        If StrComp(buffer_string, "OK", CompareMethod.Text) = 0 Then
            Box_pict.Image = Image.FromFile("C:\img\check.png")
            Box_Check_Label.Text = " Connected "
            check_step = check_step + 1
            Socket.Close()
        End If
    End Sub
    Private Sub Test1_PreliminaryCheck()
        Me.Invoke(New dTest_ping_BOX1(AddressOf Test_ping_BOX1))
    End Sub
    Private Sub Test_ping_BOX1()
        Test_Btn.Enabled = False
        check_step = 0
        Try
            'Connexion
            WriteInLog("Connexion au serveur....")
            Socket_client.Connect(MyEp)
            WriteInLog("Connexion.... OK")
            BT_pict.Image = Image.FromFile("C:\img\BT_on.png")
            BT_Check_label.Text = " Connected "
            check_step = check_step + 1
        Catch ex As Exception
            WriteInLog("Erreur lors de la tentative de connexion : " & ex.ToString)
        End Try
 
        Try
            'Test Ping 
            WriteInLog("Envoi de la commande ping...")
            Test_ping_BOX2(Socket_client)
        Catch ex As Exception
            WriteInLog("Erreur lors de la tentative d'envoi : " & ex.ToString)
        End Try
 
        If check_step = 2 Then
            Next_Btn.Enabled = True
            If Thread_PreliminaryCheck.IsAlive = True Then
                Thread_PreliminaryCheck.Abort()
            End If
        ElseIf check_step = 1 Then
            MsgBox("Erreur lors du test. Veuillez vérifier la connexion de la BOX2", vbCritical + vbOK, "Erreur")
            Test_Btn.Enabled = True
            If Thread_PreliminaryCheck.IsAlive = True Then
                Thread_PreliminaryCheck.Abort()
            End If
        ElseIf check_step = 0 Then
            MsgBox("Erreur lors de la connexion.Veuillez vérifier la mise en tension de la BOX1", vbCritical, "Erreur")
            Test_Btn.Enabled = True
            If Thread_PreliminaryCheck.IsAlive = True Then
                Thread_PreliminaryCheck.Abort()
            End If
        End If
    End Sub
    Private Sub Next_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next_Btn.Click
        Me.Close()
        Test_Window.Show()
    End Sub
 
    Private Sub WriteInLog(ByVal Mess)
        Const ForAppending = 8 'ForReading = 1, ForWriting = 2, 
        Dim oFso, f
        oFso = CreateObject("Scripting.FileSystemObject")
        f = oFso.OpenTextFile("C:\log\log.txt", ForAppending, True)
        f.writeLine(Now & " : " & Mess)
        f.Close()
    End Sub
 
End Class

Ceci est ma fenêtre :
Nom : Capture.PNG
Affichages : 109
Taille : 16,3 Ko

Le test fonctionne la première fois que je clic sur le bouton test. Une fois terminé, si il y a un soucis j'affiche un message de résolution et je veux permettre à l'utilisateur de pouvoir réessayer le test. Avez-vous une idée?

**François DORIN** · 26/04/2017, 21h02

Bonjour,

Je pense que le problème vient du fait que l'appui sur le bouton ne lance pas un nouveau thread, mais démarre le thread déjà instancié.

A la première exécution, pas de soucis. A la seconde, cela ne passe pas, car il n'est pas possible de redémarrer un thread terminé.