Private Sub AppStart
mqtt.Initialize(wifiClient.Stream, serverIp, serverPort, idDevice, "mqtt_MessageArrived", "mqtt_Disconnected")
End Sub
Sub tmrWifi
If Not(wifi.IsConnected) Then
Log("tmrWIfiRecconect")
wifiConnected=wifiConnect
Else
Log("CNX OK")
ConnectWS(0)
End If
End Sub
Private Sub wifiConnect As Boolean
If wifi.Connect2(ssid, wifiPwd) Then
Log("WIFI CONNECTED")
setLed(True, False, False,0)
'ConnectWS
Return True
Else
Log("CANT CONNECT")
setLed(True, False, False,0)
Return False
End If
End Sub
Sub ConnectWS(unused As Byte)
If mqttState=False Then
If mqtt.Connect Then 'ws.ConnectIp(wifiClient.Stream, serverIp, serverPort, "/?idDevice=10150") Then
Log("Connected...")
setLed(False, True, False,0)
mqttState=True
mqtt.Subscribe(JoinStrings(Array As String(idDevice, "/CLIENT")), 0)
Else
setLed(True, False, False,0)
Log("Connection failed")
mqttState=False
End If
End If
End Sub
Sub mqtt_Disconnected
Log("Disconnected")
mqtt.Close
mqttState=False
End Sub