Hello.
I am done renovating my kitchen and after some time spending looking at different light solutions it ended up with IKEA Ansluta LED Light.
The light is operated wireless from a IKEA ansluta remote control, and that is not as smart as the rest of my house so I had to automate this lights as well.
I made a very simple solution, i opened the wireless controller and replaced the manual switch with a transistor that i control from a mcModule and MQTT, i have also added a manual switch just in case you want to change it from the automated light schedule.
The mcModule is not battery powered so no need to worry about any battery (Lplan.SetMidPowerMode(100))
I am running this in the kitchen right now but still just on a mcDevboard, i will have to create a better installation but I just wanted to make sure that it works as it should.
A very simple code for a very simple solution
Define PinMode Pin0 As DigitalOutput Alias Send = False
Define PinMode Pin1 As DigitalInputPullUp Alias Button
Class IKEA_Ansluta
Shared Event Boot()
Lplan.SetMidPowerMode(100)
Lplan.Subscribe("mcModule/000111E0/kitchen/ikeaansluta/cmd")
End Event
Shared Event SubscriptionDelivery()
Dim msg As Message = Lplan.GetDelivery()
Dim payload As ListOfByte = msg.PayLoad
If payload(0).ToString() = "49" Then
sendCMD()
ElseIf payload(0).ToString() = "50" Then
sendCMD()
Thread.Sleep(500000)
sendCMD()
ElseIf payload(0).ToString() = "51" Then
sendCMD()
Thread.Sleep(500000)
sendCMD()
Thread.Sleep(500000)
sendCMD()
ElseIf payload(0).ToString() = "52" Then
sendRegister()
End If
End Event
Shared Event Pin1FallingEdge()
sendCMD()
End Event
Public Function sendCMD() As Boolean
Send = True
Send = False
End Function
Public Function sendRegister() As Boolean
Send = True
Thread.Sleep(5000000)
Send = False
End Function
End Class