Vinnerliste

Det er det samme maset hvert år: "Hvorfor må vi alltid ha disse kjedelige juletrelysene? Klart jeg kan bruke RGBW-lys, men de er så... statiske.". Vi har alle vært der. Vel, Twinkly er svaret. Det er juletrelys som kan styres via en app, man kan legge til animasjoner, og man kan til og med lage egne og "tegne" fargene på treet i sanntid. Og nå kan man også selvfølgelig styre treet fra HomeSeer. Lagre scriptet under som Twinkly.vb i /scripts-mappen, endre IPen (nest øverste linje), og lag et event der du kjører "Setup"-funksjonen. Hvis du oppdaterer, så kan du istedenfor kjøre "AddDeviceButtons"-funksjonen og bruke deviceID'en til eksisterende Twinkly-devicer som parameter (en om gangen). Twinkly.vb 'Moskus 2019-2020 Dim IP As String Dim debug As Boolean = False Public Sub Main(ByVal something As Object) End Sub Public Sub ButtonPress(ByVal input As Object) Dim deviceRef As Integer = input(0) IP = DirectCast(hs.GetDeviceByRef(deviceRef), Scheduler.Classes.DeviceClass).Device_Type_String(hs) Dim cmd As String = input(1) If cmd.StartsWith("Brightness_") Then Dim value As Integer = cmd.Split("_")(1) DoCmd("Brightness", value) Else If DoCmd(cmd) Then hs.SetDeviceString(deviceRef, cmd, True) End If If DoCmd(cmd) Then hs.SetDeviceString(deviceRef, cmd.Replace("_", " "), True) End Sub Public Function DoCmd(ByVal command As String, Optional ByVal value As Integer = 100) As Boolean 'SetMode("rt") 'SetMode("demo") 'SetMode("movie") 'SetMode("effect") 'SetMode("off") If debug Then hs.WriteLog("Twinkly", "Starting DoCmd()") Dim code As String = GetRandomCode() If debug Then hs.WriteLog("Twinkly", "Code: " & code) Dim auth As TwinklyAuthentication = Login(code, forceNew:=True) If debug Then hs.WriteLog("Twinkly", "Authentication_token: " & auth.authentication_token) Dim success As Boolean = Verify() If debug Then hs.WriteLog("Twinkly", "Verified: " & success) If command = "Brightness" Then SetBrightness(value) Else SetMode(command) End If Return True End Function Public Sub Setup(ByVal not_used As String) Dim new_ref As Integer = hs.NewDeviceRef("Twinkly") Dim dv As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(new_ref) dv.Location(hs) = "Twinkly" dv.Location2(hs) = "Twinkly" dv.Can_Dim(hs) = False dv.DeviceType_Set(hs) = New HomeSeerAPI.DeviceTypeInfo dv.Status_Support(hs) = True dv.Can_Dim(hs) = False dv.MISC_Set(hs, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) 'This is &H100 dv.MISC_Clear(hs, HomeSeerAPI.Enums.dvMISC.STATUS_ONLY) 'This is &H10 hs.SaveEventsDevices() AddDeviceButtons(new_ref) hs.WriteLog("Twinkly", "Initiation done!") End Sub Public Sub AddDeviceButtons(ByVal device_ref As String) Dim devID As Integer = CInt(device_ref) hs.DeviceScriptButton_DeleteAll(devID) hs.DeviceProperty_dvMISC(device_ref, HomeSeerAPI.Enums.eDeviceProperty.MISC_Set, HomeSeerAPI.Enums.dvMISC.SHOW_VALUES) Try hs.WriteLog("Twinkly", "Added button 1: " & hs.DeviceScriptButton_AddButton(devID, "Movie", 101, "Twinkly.vb", "ButtonPress", "Movie", 1, 1, 1)) hs.WriteLog("Twinkly", "Added button 2: " & hs.DeviceScriptButton_AddButton(devID, "Effect", 102, "Twinkly.vb", "ButtonPress", "Effect", 1, 2, 1)) hs.WriteLog("Twinkly", "Added button 3: " & hs.DeviceScriptButton_AddButton(devID, "Demo", 103, "Twinkly.vb", "ButtonPress", "Demo", 1, 3, 1)) hs.WriteLog("Twinkly", "Added button 4: " & hs.DeviceScriptButton_AddButton(devID, "Pause", 104, "Twinkly.vb", "ButtonPress", "RT", 1, 4, 1)) hs.WriteLog("Twinkly", "Added button 5: " & hs.DeviceScriptButton_AddButton(devID, "Off", 0, "Twinkly.vb", "ButtonPress", "Off", 1, 5, 1)) For i As Integer = 10 To 100 Step 10 hs.WriteLog("Twinkly", "Added dimming " & i & " : " & hs.DeviceScriptButton_AddButton(devID, (i & "%").ToString, i, "Twinkly.vb", "ButtonPress", "Brightness_" & i, 2 + Math.Floor(i / 51), (i / 10 - Math.Floor(i / 51) * 5), 1)) Next Catch ex As Exception hs.WriteLog("Twinkly", "Error adding buttons: " & ex.Message) End Try End Sub Public Sub SetMovieConfig(ByVal frameDelay As Integer, ByVal numberOfLEDs As Integer, ByVal framesNumber As Integer, ByVal loopType As Integer) Dim data As New System.Collections.Generic.Dictionary(Of String, Integer) data.Add("frame_delay", frameDelay) data.Add("leds_number", numberOfLEDs) data.Add("frames_number", framesNumber) Dim output As String = RunAPI("led/movie/config", Newtonsoft.Json.JsonConvert.SerializeObject(data)) If debug Then hs.WriteLog("Twinkly", "SetMovieConfig: " & output) End Sub Public Sub GetMovieConfig() ' {"frame_delay":66,"leds_number":175,"loop_type":0,"frames_number":212,"sync":{"mode":"none","slave_id":"","master_id":""},"code":1000} Dim output As String = RunAPI("led/movie/config") If debug Then hs.WriteLog("Twinkly", "GetMovieConfig: " & output) End Sub Public Sub GetMovieFull() If debug Then hs.WriteLog("Twinkly", "GetMovieFull: ") Dim output As Byte() = RunAPIraw("led/movie/all") If debug Then hs.WriteLog("Twinkly", ConvertByteArrayToString(output) & " ... done!") End Sub Public Sub SetMovieFull(ByVal octetString As String) Dim movie() As Byte = ConvertStringToByteArray(octetString) If debug Then hs.WriteLog("Twinkly", "SetMovieFull: ") Dim ret = RunAPIraw("led/movie/full", movie) If debug Then hs.WriteLog("Twinkly", System.Text.Encoding.ASCII.GetString(ret) & " ... done!") End Sub ''' <summary> ''' Get brightness ''' </summary> Public Function GetBrightness() As Integer Console.Write("Getting brigthness...") Dim output As String = RunAPI("led/out/brightness") Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(output) Return json("value") End Function ''' <summary> ''' Set brightness ''' </summary> ''' <param name="brightness">0-100</param> Public Sub SetBrightness(ByVal brightness As Integer) If debug Then hs.WriteLog("Twinkly", "Setting brigthness to '" & brightness & "'...") Dim data As New System.Collections.Generic.Dictionary(Of String, Object) data.Add("mode", "enabled") data.Add("value", brightness) data.Add("type", "A") Dim output As String = RunAPI("led/out/brightness", Newtonsoft.Json.JsonConvert.SerializeObject(data)) If debug Then hs.WriteLog("Twinkly", IIf(output.Contains("1000"), " was a success!", " failed. :(")) End Sub ''' <summary> ''' Sets the display ''' </summary> ''' <param name="mode">rt, movie, demo, restart, effect, off</param> Public Sub SetMode(ByVal mode As String) If debug Then hs.WriteLog("Twinkly", "Setting mode to '" & mode & "'") Dim data As New System.Collections.Generic.Dictionary(Of String, String) data.Add("mode", mode.ToLower()) Dim output As String = RunAPI("led/mode", Newtonsoft.Json.JsonConvert.SerializeObject(data)) Dim success As Boolean = output.Contains("1000") If debug Then hs.WriteLog("Twinkly", "Mode set: " & IIf(success, " was a success!", " failed. :(")) If Not success And debug Then hs.WriteLog("Twinkly", "Output: " & output) End Sub Public Function GetAuthentication() As TwinklyAuthentication Dim auth As TwinklyAuthentication = New TwinklyAuthentication Dim authString As String = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini") Try If authString <> "" Then auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString) End If Catch ex As Exception End Try Return auth End Function Public Function Verify() As Boolean Dim auth As TwinklyAuthentication = GetAuthentication() Dim data As New System.Collections.Generic.Dictionary(Of String, String) data.Add("challenge-response", auth.challengeresponse) Dim output As String = RunAPI("verify", Newtonsoft.Json.JsonConvert.SerializeObject(data)) Return output.Contains("1000") End Function Public Function Login(ByVal challenge As String, Optional ByVal forceNew As Boolean = False) As TwinklyAuthentication Dim auth As TwinklyAuthentication = Nothing Dim authString As String = "" authString = hs.GetINISetting("Twinkly", "Authentication", "", "Twinkly.ini") Try If authString <> "" Then auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(authString) Catch ex As Exception End Try If auth Is Nothing OrElse forceNew Then Dim data As New System.Collections.Generic.Dictionary(Of String, String) data.Add("challenge", challenge) Dim output As String = RunAPI("login", Newtonsoft.Json.JsonConvert.SerializeObject(data)) hs.SaveINISetting("Twinkly", "Authentication", output, "Twinkly.ini") auth = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TwinklyAuthentication)(output) End If Return auth End Function Private Function RunAPI(ByVal urlFunction As String, Optional ByVal query As String = "") As String Dim source As String = "" Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction Dim auth As TwinklyAuthentication = GetAuthentication() Using client As New System.Net.WebClient client.Headers.Add("Content-Type", "application/json") If auth.authentication_token <> "" Then client.Headers.Add("X-Auth-Token", auth.authentication_token) End If If query <> "" Then source = client.UploadString(url, "POST", query) Else source = client.DownloadString(url) End If End Using Return source End Function Private Function RunAPIraw(ByVal urlFunction As String, Optional ByVal bytes() As Byte = Nothing) As Byte() Dim auth As TwinklyAuthentication = GetAuthentication() Dim source As Byte() = {} Dim url As String = "http://" & IP & "/xled/v1/" & urlFunction Using client As New System.Net.WebClient Net.ServicePointManager.DefaultConnectionLimit = 9999 client.Headers.Add("Content-Type", "application/octet-stream") If auth.authentication_token <> "" Then client.Headers.Add("X-Auth-Token", auth.authentication_token) End If If bytes IsNot Nothing Then source = client.UploadData(New Uri(url), bytes) Else source = client.DownloadData(url) End If End Using Return source End Function Public Function GetRandomCode(Optional ByVal forceNew As Boolean = False) As String Dim code As String = hs.GetINISetting("Twinkly", "Code", "", "Twinkly.ini") If code = "" OrElse forceNew Then code = GetRandomString(32) hs.SaveINISetting("Twinkly", "Code", code, "Twinkly.ini") End If Return code End Function Private Function GetRandomString(ByVal length As Integer) Dim s As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" Dim r As New Random Dim sb As New Text.StringBuilder For i As Integer = 0 To length - 1 Dim idx As Integer = r.Next(0, 35) sb.Append(s.Substring(idx, 1)) Next Return sb.ToString() End Function Public Function ConvertStringToByteArray(ByVal input As String) As Byte() Dim lst As New System.Collections.Generic.List(Of Byte) For i As Integer = 0 To input.Length - 1 Step 2 Dim temp As String = input.Substring(i, 2) Dim val As Integer = Convert.ToInt32(temp, 16) lst.Add(Convert.ToByte(val)) Next Return lst.ToArray() End Function Public Function ConvertByteArrayToString(ByVal bytes() As Byte) As String Dim ret As String = "" For Each b As Byte In bytes ret &= Convert.ToChar(b).ToString() Next Return ret End Function Public Class TwinklyAuthentication Private _authentication_token As String Public Property authentication_token() As String Get Return _authentication_token End Get Set(ByVal value As String) _authentication_token = value End Set End Property Private _authentication_token_expires_in As Integer Public Property authentication_token_expires_in() As Integer Get Return _authentication_token_expires_in End Get Set(ByVal value As Integer) _authentication_token_expires_in = value End Set End Property Private _challengeresponse As String Public Property challengeresponse() As String Get Return _challengeresponse End Get Set(ByVal value As String) _challengeresponse = value End Set End Property Private _code As Integer Public Property code() As Integer Get Return _code End Get Set(ByVal value As Integer) _code = value End Set End Property End Class Gammelt script: Da får du en device som dette: Gå inn på Devicen, og gå til Advanced. Legg så IP-adressen til Twinkly-lenken inn under "Device Type (String)": ... og siden vi endrer Device Types, må vi huske å vise alle etter på: Den nye versjonen støtter altså flere lenker på samme script, man slipper å lage kopier av scriptet hvis man har flere lenker.

Interresant at dere begge har timer hvor dere har brukt energi på kjøling. Jeg har tilsynelatende nok til å kunne gjøre noe. Men dette blir ett stykke bak i køen siden det ikke fungerer hos meg og er mer under <nice to have>. Det som blir største jobben blir egentlig å gjøre endringer i oppsett slik at man kan velge om man vil ha dette og hvor ofte det skal oppdatere seg. Selve uthenting og visning tror jeg er rimelig plankekjøring (fameous last words).

Selges ikke enkeltvippe som selges løst til Elko plus så blir å montere begge med dobbeltvippe med en gang.

Den Nexaen er i utgangspunktet ett potensialfritt rele. I praksis for ditt bruksomeråde så utgjør ikke en loddekladd kontra wago noen forskjell. 🙂 Det man må huske på er at den ikke lengre er å anse som potensialfri da ene relekontakten blir modifisert fast til 220volt.

Dette var ikke helt sant, se

"Well, there's your problem"... Men Den vil forbli aktiv hvis går frem og tilbake når du har så lang timeout. Da kan du gjøre det på en annen måte, istedenfor å bruke Remove Delayed, kan du trigge lyset på når bevegelsessensoren blir satt til Motion, og av når bevegelsessensoren har vært av i... f.eks. 10 minutter. Det gjør jeg her (hvis statusen er "Kveld" og det er mørkt ute):

Det er foreløpig bare til test. Jeg har et oppegående Domoticz system på Raspberry pi som har rullet noen år, så nå vil jeg bare se om gresset er grønnere på andre siden[emoji4] Har også et par ekstra Rpii liggende, men tanken var at så lenge min Synology står der og putrer uansett, så kan jeg jo prøve først med den.

Og noen sticks med hot glue og litt lodding i hjørnene er min nesten klar. Kapper og limer på plexiglass i morgen, så har trehytta stjerne på taket. Takk for tips!

Fant ut av det ved å følge denne guiden: http://philhawthorne.com/installing-home-assistant-io-on-a-synology-diskstation-nas/

Du kan vel iallfall gå veien om IFTTT. Der kan du sette opp en webhook som kan trigge "noe" når det pekes på en adresse. Ja, men det er det telefonen som i så fall som gjør. Undersøk f.eks. Tasker, men vær obs at det er litt tungt...

Edit: Jeg kjører HomeSeer, men tror Homey skal klare å finne disse på 433MHz. Selv så bruker jeg fra Telldus (433MHz) med lite display (temp + fukt). Jeg tror du kan ha max 8 stykk. Fungerer greit for meg innendørs, utendørs,i fryser og i kjøleskap. https://www.kjell.com/no/produkter/smarte-hjem/smarte-hjem-losninger/telldus-smarte-hjem/telldus-termometer-og-hygrometer-for-tellstick-1-pk.-p50433

Når jeg går gjennom er det mer en et par linjer Hvis du tar utgangspunkt i Airthings sin waveplus-reader så har jeg lagt til følgende under import-setningene for å starte MQTT. (paho-klienten må være installert) import paho.mqtt.client as mqtt import paho.mqtt.publish as publish # MQTT Broker = "10.0.xx.xx" Broker_port = 1883 def on_connect(client, userdata, flags, rc): print("MQTT connected with result code "+str(rc)) client = mqtt.Client() client.on_connect = on_connect client.connect(Broker, Broker_port, 60) client.loop_start() og så rundt linje 240 har jeg endret litt slik at det ikke legges til ppm og andre enheter bak så jeg får inn rene tall: # extract humidity = str(sensors.getValue(SENSOR_IDX_HUMIDITY)) radon_st_avg = str(sensors.getValue(SENSOR_IDX_RADON_SHORT_TERM_AVG)) radon_lt_avg = str(sensors.getValue(SENSOR_IDX_RADON_LONG_TERM_AVG)) temperature = str(sensors.getValue(SENSOR_IDX_TEMPERATURE)) pressure = str(sensors.getValue(SENSOR_IDX_REL_ATM_PRESSURE)) CO2_lvl = str(sensors.getValue(SENSOR_IDX_CO2_LVL)) VOC_lvl = str(sensors.getValue(SENSOR_IDX_VOC_LVL)) # Print data data = [humidity, radon_st_avg, radon_lt_avg, temperature, pressure, CO2_lvl, VOC_lvl] client.publish('airthings/co2', str(CO2_lvl)) client.publish('airthings/radon', str(radon_st_avg)) client.publish('airthings/voc', str(VOC_lvl)) waveplus-reader kræsjer av og til hvis den ikke får bluetooth-kontakt, så det hele kjøres av forever, som passer på å restarte hvis noe går galt. Du må installere node/npm først og så installere forever med npm. Følgende linje i /etc/rc.local starter opp scriptet: /usr/local/bin/forever -c /usr/bin/python /home/pi/waveplus-reader/send_waveplus.py 29300xxxxx 1800 pipe > /tmp/waveplus & 1800 er antall sekunder mellom hver refresh, så 30 min i dette tilfellet.

Jeg vet ikke om noen så tråden min om alternativer for KNX stemmestyring, men jeg hoppet på et tilbud på en Homey Pro i Black Week. I forhold til OpenHab, kom jeg lengre på mye kortere tid. Første dagen koblet jeg den bare til, oppdaterte den og koblet til Alexa. Andre dagen importerte jeg en .knxproj-fil og knottet inn informasjonen (gruppeadressene) for en dimmer. Da var det klart til å bruke stemmestyring (etter å ha funnet den nye devicen i Alexa-appen), og "Alexa, set the office light to 50%" virket. Endelig hører KNX-huset på meg. Kult: hvis jeg bare ber Alexa om å slå på lyset, spør hun første gang om hvilket rom, og om echo-enheten også står i samme rom. Deretter husker hun dette slik at du ikke trenger spesifisere hvilket rom/lys du vil slå på fra den enheten neste gang. Skuffende: Homey har fokusert på mobil-app og ikke fullverdig webgrensesnitt, som er begrensende. Det finnes grensesnitt, så jeg skal titte på dem senere. Det første jeg kikket på krevde at jeg må gi passordet til tredjepart... Det er vel kanskje naturlig men føles galt. Bedre om de hadde det selv. Videre, selv om man kunne importere .knxproj-fila, gjorde den fint lite med den. Den satte ikke opp enhetene, ingen forslag, ikke noe info. Man må selv opprette KNX-enhetene og fylle ut adressene selv. Ikke mye enklere enn oppsettet på OpenHab der, selv om det er noen ekstra ledd på OpenHab. Der hadde jeg virkelig forventet mer fra knxproj-importen, etter å ha sett videoer fra oppsett av et annet KNX voice interface. Ellers har jeg tidligere i år byttet KNX IP-interface til et som kan ha flere oppkoblinger samtidig. Det er en stor fordel å kunne koble på ETS samtidig som jeg setter opp OpenHab eller Homey. Det var plug and play og definitivt verd oppgraderinga. Muligens kan jeg beholde OpenHab dersom jeg vil ha mer/overlappende funksjonalitet. Tenkte forresten jeg skulle teste Home Assistant før jeg kjøpte Homey Pro, men strandet underveis da jeg forsøkte å installere en SSD på en ny Raspberry Pi 4. Selv om Homey ikke nødvendigvis rokka sokkene mine, kom jeg raskt igang med stemmekontroll av KNX-lys når jeg fikk den. Videre skal jeg sette opp flere lys, og begynne å se på hvilke interfaces som kan settes opp.

Jeg tipper Windows Update. Så har den avbrutt for en eller annen fil er åpen, men rakk å avslutte HS4...

Jeg ville vel sagt ikke i det hele tatt.. de tok seg ikke bryet med å svare på den siste e-posten min... Prosjektet har stått stille en stund nå på grunn av lite tid og overskudd.. 😔