Vinnerliste

Mange kvelder har gått med til å lage ny styring av husets varmekabler, resultatet kaster endelig av seg med vestlandets store variasjoner i strømpris: Jeg har funnet en typisk strømprofil for norske forbrukere og regnet ut hva min strømkostnad er versus denne, og besparelsen for de to døgnene som vises i plottet er 15 kr og 40 kr. Styringen jeg har for varmekabler er omtrent samme kode som for varmtvannstanken, en Dijstra shortest-path gjennom tid-termostattemperatur-rommet, og der koden gjør approksimasjonen at temperaturen går opp eller ned med fast rate pr. time (tilpasset pr. gulv fra målte data)

Tja, når noen lager en hel reiseskildring over mange episoder bare for å oppgradere fra versjon 3 til 4, så kan en jo lure

[monitor] Reliable, Multi-User, Distributed Bluetooth Occupancy/Presence Detection - Share your Projects! - Home Assistant Community (home-assistant.io) Prøv "Monitor". Dette er i Home Assistant sitt forum, men den baserer seg på MQTT så den er universell. Jeg kjører den på en Raspberry Pi Zero W og den detekterer telefonene uansett hvor de er i huset som er 3 etasjer. Edit: Og søk etter Room Assistant hvis du vil ha noe som detekterer telefoner på rom-nivå.

Kan bli spennende.

For meg hadde valget vært enkelt: https://www.home-assistant.io Læringskurven kan være bratt, men etter min mening er HomeAssistant verdt det på alle måter.

Tror jeg fikk det til. Sub Main(ByVal Parms As Object) Try Dim calendarName = "Felles" Dim numberOfDays = 1 Dim allEvents As Object ' Only run if the power is on If (hs.DeviceValue(6644) = 1) Then ' If setpoint is lower than 35, set it to 38 Dim setpoint As Integer = hs.DeviceValue(6646) If (setpoint < 35) Then setpoint = 38 End If ' 1 degree pr hour, so the number of hours is the difference in temp now and setpoint Dim hoursWarming As Integer = setpoint - hs.DeviceValue(6645) If (hoursWarming > 0) Then allEvents = hs.PluginFunction("GCalSeer", "", "GetItemsFromCalendar", New Object() {calendarName, numberOfDays}) For Each ev As Object In allEvents ' Trigger on word "Spa" in calendar If ev.Subject.Equals("Spa") Then ' If there are less hours left than the required to reach setpoint, trigger heating event If ev.StartDateTimeLocal < Now.AddHours(hoursWarming) Then hs.TriggerEvent("Spa-kalendervarme-on") ' If the setpoint is below 35, change the setpoint If (hs.DeviceValue(6646) < 35) Then hs.TriggerEvent("Spa-kalendervarme-setpoint") End If End If End If Next End If End If Catch ex As Exception hs.WriteLog("", "Exception in script: " & ex.Message) End Try End Sub

For kjellergulv så vil det medføre noe større varmetap å gå høyere enn ønsketemperatur. Hvis gulvet ikke er isolert, vil man se dette på at gulvtemperaturen faller mye raskere når temperaturen er høy (ikke-lineært). Jeg vet ikke hvor mange cm isopor jeg har under kjelleren (gammelt hus), men jeg konstaterer at temperaturene mine faller linært nok til at dette ikke bekymrer meg. Det er åpenbart at varmetapet fra gulv til lufta over er mye større, og det er hensikten. Jeg har også sett på temperaturprofilen til et bad i 1. etasje (kjeller under), og det faller like raskt som et kjellergulv, altså er det temperaturtap til luft som er hovedfaktoren. Hele huset derimot har høyere varmetap når huset er varmere, dette ligger på 160W pr grad for differanse ute vs inne hos meg. Men det er varmetap gjennom vegger og tak, og jeg har ikke signifikant høyere lufttemperatur pga. de varme gulvene (men masse ekstra WAF for kjempevarmt gulv på badet kl 07:00).