Hello,
I’ve been attempting to run the magnetic reed switch code and the getting started with Losant guide. I’ve tried it multiple times, made sure all case is accurate etc but I cannot get the modules/gateway to connect to Losant. Here is the guide I’m referencing: https://www.losant.com/blog/getting-started-with-mc-things-and-losant
Here is the 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