Bonjour,

Je pilote une préparation de commandes en VBA dans le petit entrepot où je travaille.
Grosso modo, j'affiche à l'écran (et je l'annonce en vocale) l'emplacement de prélèvement,
L'opérateur scanne l'emplacement,
J'annonce la quantité à prélever et le bac de dépose.
L'opérateur scanne le bac de dépose.

Ça marche plutôt bien (voir même très bien)

Je cherche à faire évoluer le système, pour ajouter des LED sur les emplacements de prélèvement.
J'ai déjà mis en place un système similaire sur un scénario de ventilation.

Pour le faire, j'ai créé un web serveur sur un Arduino, et j'envoie une requête vers ce serveur en VBA pour indiquer les Leds à allumer (ou à éteindre) via WinHttpRequest

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
 
Private Sub RequettePTL()
    Dim Envoi As Integer
    Dim PTL_envoi As Integer
    Dim Statut_envoi As Integer
    Dim whrReq As WinHttp.WinHttpRequest
    Dim strurl As String
 
    PTL_envoi = 0
    Statut_envoi = 0
    If PTL = 1 Then
       For Envoi = 1 To 3
            If Statut_envoi = 0 Then
                Statut_envoi = 1
                On Error GoTo ErrHandler
                Set whrReq = New WinHttp.WinHttpRequest
                strurl = "http://" & IP_PTL & "/" & LED & "PTL"
                With whrReq
                    .Open "GET", strurl, False
                    .Send
                End With
            End If
       Next Envoi
    End If
Exit Sub
 
ErrHandler:
    PTL_envoi = PTL_envoi + 1
    Statut_envoi = 0
    If PTL_envoi > 2 Then
        PTL = 0
            SuperTalk "Probléme de communication avec les afficheurs. On continue sans...", TTSSpeed, 100
    Else
            SuperTalk "Probléme de communication avec les afficheurs, je rééssaye", TTSSpeed, 100
    End If
    Resume Next
 
End Sub
Comme on peut le voir dans le code, si l'arduino ne réponds pas, au bout du time out, j'annonce que je rééssaye, puis au bout de 3 fois, je désactive le systéme LEDs.
J'aimerais ne pas attendre la réponse de l'arduino.
En gros, si ça fonctionne, ça s'allume, sinon, tant pis...

Je n'ai pas trouvé comment le faire avec WinHttpRequest.
Auriez-vous une idée de comment faire?

Je vous remercie par avance!!!