Vinnerliste

Og platen er kommet opp

Det går sakte men sikkert fremover, men det blir sinnsykt bra 😎 Har bare fått dekslet på den nærmest vinduet. Man ser stor forskjell i spredningen på lyset på veggen (midterste bilde) med og uten deksel.

F.eks.: https://www.banggood.com/1X-5X-10X-LUSTREON-50CM-Aluminum-Channel-Holder-For-LED-Strip-Light-Bar-Under-Cabinet-Lamp-p-1199458.html

Gjør klar til første forsøk med sensor for tørkestativ... Vanntett mikrobryter og en gammel magnetsensor.

Hei! Pusser for tiden opp et hus, og er i ferd med å ferdigstille to bad samt tre andre soner med varmekabler. Dette betyr at jeg må ha 5 termostater som jeg helst ønsker skal være koblet til en gateway. Homey høres allsidig og fin ut, og passende mitt nivå. IFTT skal jeg nok håndtere, men om jeg må begynne med koding er jeg på tynnere is. Så; jeg må i denne omgang lande på valg av termostat. Jeg må som nevnt ha fem stykk, så ønsker ikke å velge feil. Hva er deres gulltips? Ser Elko har en variant, og Heatit har sin. Dette er de to store når det gjelder termostat for gulvvarme om jeg har forstått rett? Ser at Heatit har kommet med en ny versjon; https://www.thermo-floor.no/heatit/5430599/heatit-z-trm3-hvit-z-wave-termostat-3600w-16a-868-4-mhz Er dette et godt valg sammen med Heatit sin egen Gateway; https://www.thermo-floor.no/heatit/4512699/heatit-z-gateway-z-wave-gateway? Da må jeg i så fall ha Homey i tillegg? Eller klarer jeg med med Homey alene? Eller skal jeg være traust å gå for Elko, om denne er fullt ut kompatibel med Homey? I tillegg er planen å koble på en del Hue-pærer, Yale Doorman (Muligens på Verisure sitt system?), styring av varmpepumpe og på sikt solskjerming. Alle råd og innspill mottas med stor takk!

Mange takk for tips @Moskus ! Fant at stoppe/starte opp HS4 ordnet problemet, men det er nok lettere å restarte plugin'en Har Googlet mer nå, og ser at det er flere som har hatt slike problemer. I de tilfellene eg har sett beskrevet, har de forsøkt inkludering ved hjelp av Z-tool, akkurat det eg gjør! Det synes som at ein inkludering via Z-tool gjør ett eller anna med Z-wave plugin’en, eit eller anna som ikkje lukkes ned på ein ordentlig måte? Skal prøve inkludering via WEB UI neste gang, mulig det løser problemet

Jeg ser det av og til, men langt fra alltid. Da restarter jeg plugin'en...

Etter å ha sjekket en del, så fant jeg til slutt ut hvordan jeg skulle koble: Følg den forbaskede fargekodingen! Hvorfor? Jo, det skal jeg fortelle deg. Denne veggboksen hadde ikke inngangsklemmer i samme rekkefølge som kontaktpunktene i kontakten, men litt kryss hitten og ditten. Dermed ble fargekodingen helt riktig når den var stokket fra inngangsklemmene til selve kontaktpunktet. Det var FOR enkelt, altså. Neste punkt var at kronverktøyet mitt ikke klarte helt å dytte lederne helt ned (ikke på alle, men noen), men de ble bøyd over. Frem med baksiden av en stanleykniv og dytte ned. Noen som har noen formening om hva som kan ha gått galt der? Seig isolasjon på lederne? feil verktøy? Feil teknikk? Summa summarum: jeg har nå 1Gb-link mellom UDM og USW, og nettverket mitt er nok engang i zen.

Da har jeg gjennomført mine første tester med idlock! Oppdaterte firmware til 1.5.6 (ikke beta, den ble offisiell den 27. august). Første test ser bra ut, men det tar av og til ganske lang tid (>10 sek) å få tilbake status om at låsen er låst/ulåst (selve låsingen går raskt). Jeg følger med på mqtt-meldingene, og ser at HA reagerer med en gang låst/ulåst-meldingen kommer, så forsinkelsen er antagelig i låsen. Dessuten hadde det vært meget bra om låsen sendte med litt mer info i låst/opplåst-meldingene. Det burde fulgt med f.eks. hvem som låste opp (rfid-nr/pin-nr/manuelt/fjernstyrt), så slipper jeg å sjekke de andre sensorene for å finne ut dette.

Bruk det gamle isteden. http://xxx.xxx.xxx.xxx/Events

Har montert led strips bak pulten, og de får forskjellige farger alt ettersom om mobilen ringer, snakker i den eller når jeg legger på. Video

Huff, dette er en smule farlig å ta over nett 🙂 om det blir stille fra Mastiffen nå så vet vi hva som har skjedd🤣

Jeg bruker temp og strømforbruk til maskinlæring for oppvarming av hus i tilfelle variable strømpriser, som vi ikke lenger har... Tilsvarende for varmtvannstank men med en annen algoritme. Har også en pythonsnutt som fjerner spikes i influxdataene.

DeviceState.vb Lar deg lagre og laste inn innstillinger for et utvalgt av enheter. Synes du at lyset er perfekt akkurat nå? Lagre det! Og hent det tilbake senere. Sub Main(ByVal not_used As Object) 'By Moskus, August 2015 'Set up a new config. 'Specify devices between the brackets below (comma separated): Dim devices() As Integer = {342, 872, 873} 'Specify a configuration name. This is used when calling "Save" and "Load" later. Dim config_name As String = "Bedroom" 'Creating initial ini file and store it in a list Dim lst As New System.Collections.Generic.List(Of DeviceState) For Each d As Integer In devices Dim dS As New DeviceState dS.deviceRef = d dS.deviceValue = hs.DeviceValueEx(d) lst.Add(dS) Next 'Write the list to file SaveToFile(config_name, lst) End Sub Sub Save(ByVal config_name As String) 'Get the device list Dim lst As System.Collections.Generic.List(Of DeviceState) = LoadFromFile(config_name) 'Get the current device values for each device For Each d As DeviceState In lst d.deviceValue = hs.DeviceValueEx(d.deviceRef) Next 'Store the list SaveToFile(config_name, lst) End Sub Sub Load(ByVal config_name As String) 'Get the device list Dim lst As System.Collections.Generic.List(Of DeviceState) = LoadFromFile(config_name) For Each d As DeviceState In lst 'Find the correct CAPI based on device value... Dim CAPIcontrol As HomeSeerAPI.CAPIControl = Nothing For Each cc As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(d.deviceRef) If d.deviceValue = cc.ControlValue Then CAPIcontrol = cc Exit For End If Next '... And execute it hs.CAPIControlHandler(CAPIcontrol) Next End Sub Function LoadFromFile(ByVal config_name As String) As System.Collections.Generic.List(Of DeviceState) Dim lst As New System.Collections.Generic.List(Of DeviceState) Dim filename As String = "DeviceState_" & config_name & ".ini" Dim lines() As String = hs.GetINISectionEx("Devices", filename) For Each line As String In lines Dim deviceRef As Integer = line.Split("=")(0).Trim Dim deviceValue As Double = line.Split("=")(1).Trim lst.Add(New DeviceState(deviceRef, deviceValue)) Next Return lst End Function Sub SaveToFile(ByVal config_name As String, ByVal stateList As System.Collections.Generic.List(Of DeviceState)) Dim filename As String = "DeviceState_" & config_name & ".ini" For Each d As DeviceState In stateList hs.SaveINISetting("Devices", d.deviceRef, d.deviceValue, filename) Next End Sub <Serializable> Public Class DeviceState Public Property deviceRef As Integer Public Property deviceValue As Double Public Sub New() End Sub Public Sub New(ByVal _deviceRef As Integer, ByVal _deviceValue As Double) Me.deviceRef = _deviceRef Me.deviceValue = _deviceValue End Sub End Class Oppsett: Det er to måter å lage et oppsett på. 1. Redigere Main()-sub'en med å liste opp device'referansene i krølleparantesene i denne linjen: Dim devices() As Integer = {342, 872, 873} og navnet i denne linjen: Dim config_name As String = "Bedroom" ... og så kjøre scriptet med å kalle Main-sub'en. 2. Lag en INI-fil i \Config-mappen på dette formatet: [Devices] devRef1=devValue1 devRef2=devValue2 devRef3=devValue3 Navngi den "DeviceState_DittVariabelNavn.ini" der du bytter ut DittVariabelNavn med noe mer beskrivende. Det er dette du skal kalle senere. Mitt testeksempel ser slik ut for DeviceState_Bedroom.ini: [Devices] 342=53 872=25 873=39 Når det er gjort er det bare å lage to eventer. Et for lagring og et for tilbakestilling. Lagring av lys gjøres med å kjøre scriptet "DeviceStates.vb" med funksjon "Save" og parameter satt til DittVariabelNavn, slik: Tilbakestilling er helt likt, men da bytter du ut "Save" med "Load". Det er da mulig å lage veldig enkle "scenes" med å kopiere en ini-fil og gi den et nytt navn, som f.eks. "Bedroom-Morning", "Bedroom-Sexytime", "Bedroom-Night", "Bedroom-Off", og så videre. Bare redigere ini-filene med passende verdier, og restore som det passer deg. Så lenge teknologien som styrer lyset lagrer devicevalue og bruker CAPI til kontroll (og det gjør vel alle skulle jeg mene), så vil dette fungere. Jeg tror til og med det fungerer med andre enheter (som f.eks. Squeezebox Play/Pause, og så videre).

Scriptet er basert på @Moskus sitt "Fridager.vb": Tar derfor bare "kortversjonen" av oppsettet her: * Lag en virtuell device "Flaggdag" med verdiene "Ja" (On) og "Nei" (Off) * Noter deg devID * Lag "Flaggdag.vb": Sub Main(ByVal deviceReference As String) 'Moskus 2017 Dim devRef As Integer = Integer.Parse(deviceReference.ToString) Dim isCurrentDateFlagday As Boolean = IsFlagday(Now) If isCurrentDateFlagday Then hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._On)) Else hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._Off)) End If End Sub Public Function IsFlagday(ByVal _date As Date) As Boolean 'translated php script form xibriz: https://www.diskusjon.no/index.php?showtopic=1084239 _date = _date.Date 'in case time was added Dim easterDate As Date = GetEasterDate(_date.Year) 'Sjekker om datoen er 1. Januar If _date = New Date(_date.Year, 1, 1) Then Return True 'Sjekker om datoen er 21. Januar (Prinsesse Ingrid Alexandra) If _date = New Date(_date.Year, 1, 21) Then Return True 'Sjekker om datoen er 6. februar (samefolkets dag) If _date = New Date(_date.Year, 2, 6) Then Return True 'Sjekker om datoen er 21. februar (Kong Haralds bursdag) If _date = New Date(_date.Year, 2, 21) Then Return True 'Sjekker om datoen er 1. påskedag If _date = easterDate Then Return True 'Sjekker om datoen er 1. mai (offentlig høytidsdag) If _date = New Date(_date.Year, 5, 1) Then Return True 'Sjekker om datoen er 8. mai (frigjøringsdag) If _date = New Date(_date.Year, 5, 8) Then Return True 'Sjekker om datoen er 17. mai (grunnlovsdag) If _date = New Date(_date.Year, 5, 17) Then Return True 'Sjekker om datoen er 7. juni (unionsoppløsning) If _date = New Date(_date.Year, 6, 7) Then Return True 'Sjekker om datoen er 1. pinsedag (50. påskedag) If _date = easterDate.AddDays(49) Then Return True 'Sjekker om datoen er 4. juli (Dronning Sonja) If _date = New Date(_date.Year, 7, 4) Then Return True 'Sjekker om datoen er 20. juli (Kronprins Haakon) If _date = New Date(_date.Year, 7, 20) Then Return True 'Sjekker om datoen er 29. juli (Olsok) If _date = New Date(_date.Year, 7, 29) Then Return True 'Sjekker om datoen er 19. august (Mette-Marit) If _date = New Date(_date.Year, 8, 19) Then Return True 'Sjekker om datoen er 1. juledag (25. desember) If _date = New Date(_date.Year, 12, 25) Then Return True Return False End Function Public Function GetEasterDate(ByVal Year As Integer) As Date 'Originally taken from: http://www.thoughtproject.com/Snippets/Easter/Easter.vb.txt Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim n As Integer Dim p As Integer If Year < 1583 Then Return Nothing Else ' Step 1: Divide the year by 19 and store the ' remainder in variable A. Example: If the year ' is 2000, then A is initialized to 5. a = Year Mod 19 ' Step 2: Divide the year by 100. Store the integer ' result in B and the remainder in C. b = Year \ 100 c = Year Mod 100 ' Step 3: Divide B (calculated above). Store the ' integer result in D and the remainder in E. d = b \ 4 e = b Mod 4 ' Step 4: Divide (b+8)/25 and store the integer ' portion of the result in F. f = (b + 8) \ 25 ' Step 5: Divide (b-f+1)/3 and store the integer ' portion of the result in G. g = (b - f + 1) \ 3 ' Step 6: Divide (19a+b-d-g+15)/30 and store the ' remainder of the result in H. h = (19 * a + b - d - g + 15) Mod 30 ' Step 7: Divide C by 4. Store the integer result ' in I and the remainder in K. i = c \ 4 k = c Mod 4 ' Step 8: Divide (32+2e+2i-h-k) by 7. Store the ' remainder of the result in L. l = (32 + 2 * e + 2 * i - h - k) Mod 7 ' Step 9: Divide (a + 11h + 22l) by 451 and ' store the integer portion of the result in M. m = (a + 11 * h + 22 * l) \ 451 ' Step 10: Divide (h + l - 7m + 114) by 31. Store ' the integer portion of the result in N and the ' remainder in P. n = (h + l - 7 * m + 114) \ 31 p = (h + l - 7 * m + 114) Mod 31 ' At this point p+1 is the day on which Easter falls. ' n is 3 for March or 4 for April. Return DateSerial(Year, n, p + 1) End If End Function * Lag disse eventene: (parameters er devID til devicen du laget) Påminnelse om å flagge: (jeg bruker et script som sender meg pushvarsel via Pushover, hvis jeg er hjemme, men du kan bruke hva du vil som "action") Påminnelse om å ta ned: Her er "cannot re-run for" en fordel, for man skal ta ned flagget enten kl 2100 eller ved solnedgang. Ønsker ikke påminnelse på begge de tidspunktene.