4
« on: June 18, 2017, 09:24:03 pm »
Hello,
I've had some serious difficulties with connecting to Losant and running the following code
Class LosantDoor
// Device ID of Peripheral in Losant
Const LosantDeivceId As String = "594445eb57dcc600060018d5"
// MQTT topic in Losant
Const LosantTopic As String = "losant/" + LosantDeivceId + "/state"
Shared _doorState As String
Shared _doorcount As Integer
Shared Event Boot()
_doorState = "Open"
_doorcount = 0
End Event
Shared Event ReedSwitchChanged()
'debounce interrupt
Thread.Sleep(100000)
Thread.ClearHardwareEvent()
LedRed = True
If ReedSwitch = True Then
_doorState = "Open"
_doorcount = _doorcount + 1
Else
_doorState = "Closed"
End If
sendMQTTData()
LedRed = False
End Event
Shared Event CheckSensors() RaiseEvent Every 60 Seconds
sendMQTTData()
End Event
Private Sub sendMQTTData()
Dim tempTMP102string As String = TempSensor.GetTemp().ToString()
Dim battShort As Short = Device.BatteryVoltage()
Dim battFloat As Float = battShort / 1000
Dim battString As String = battFloat.ToString()
// Create data JSON object
Dim dataJson As Json = New Json
dataJson.Add("battery", battString)
dataJson.Add("temperature", tempTMP102string)
dataJson.Add("doorState", _doorState)
dataJson.Add("doorCount", _doorcount)
// Create Losant preferred JSON object
Dim losantPayload As Json = New Json
losantPayload.Add("data", dataJson)
// Publish to Losant MQTT
Lplan.Publish(LosantTopic, losantPayload.ToListOfByte)
End Sub
End Class
I did everything listed in the "Getting started with MC-Things and Losant" guide and could not get the gateway or mc-module to connect to Losant. I tried it on both my home network and mobile hotspot. For both the gateway and module it says "Awaiting first connection to Losant".
Any tips?