WinHttpRequest sans confirmation
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:
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!!!
