1
MQTT / Re: Cayenne My Devices
« on: December 01, 2017, 01:46:05 pm »
@Labmaster - Great work! Thanks for keeping us posted!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Define PinMode Pin0 As AnalogInput Alias MoistureLevel
Define PinMode Pin6 As DigitalOutput Alias enableMoistureLevel
Class XmasTree
Shared Event measureMoisture() RaiseEvent Every 120 Seconds
enableMoistureLevel = True 'turn on voltage divider
Thread.Sleep(40000) 'sleep 40ms for voltage to stabilize
Dim voltage As Short = MoistureLevel
Dim payload As ListOfByte = New ListOfByte
Dim payString As String = ""
If voltage > 1500 Then
payString = "Dry - I NEED WATER!!"
ElseIf voltage <= 1499 And voltage >= 800 Then
payString = "Getting Low"
ElseIf voltage <= 799 And voltage >= 1 Then
payString = "Watered!"
Else
End If
enableMoistureLevel = False 'turn off voltage divider
payload.Add(payString)
Lplan.Publish("mcThings/XmasTreeLevel", payload)
End Event
Shared Event sendMQTT() RaiseEvent Every 1 Minutes
LedRed = True
Dim payload As ListOfByte = New ListOfByte()
Dim TempC As Float = TempSensor.GetTemp
Dim TempString As String = TempC.ToString()
payload.Add(TempString)
Lplan.Publish("mcThings/XmasTreeTemp", payload)
LedRed = False
End Event
Shared Event measureVoltage() RaiseEvent Every 2 Hours
Dim BattVolt As Short = Device.BatteryVoltage
If BattVolt < 2200 Then
Lplan.IFTTT("YOURIFTTTKEYHERE", "XmasTreeBatt")
Else
End If
End Event
End Class