Vinnerliste

Styring av baderomsvifte krever noe mer kompleksitet enn dette. Du må ta hensyn til hva som er normal luftfuktighet inneværende dag, dette kan variere mye. Jeg har klart å lage en ganske god algoritme for å fange opp dusjing utifra RH-målinger. Den har aldri tatt feil på et helt år, men den er muligens mer kompleks enn nødvendig. Jeg har temp og RH-sensor i tilluft og fraluft-kammerene i ventilasjonsanlegget. Utifra disse fire tallene beregner jeg husets fuktproduksjon (gram vann pr kg luft som går gjennom ventilasjonen). Dette ligger stabilt under 2 gram vann/kg luft når ingen dusjer, men får en spike etter ca 30 sekunds dusjing, og da går ventilasjonsanlegget på maks. Dette krever altså to RH+temp-sensorer, og det krever en grunnventilasjon som går hele tiden. Hvis man skal klare seg med bare en sensor, og ingen grunnventilasjon, så tipper jeg at man må lage noe kode som hele tiden beregner hva som er normal temp+rh for gjeldende dag. Jeg ville sannsynligvis basert det på duggpunkt. Så må man klare skille mellom spike i duggpunkt (som betyr at man dusjer) og bare vanlig "drift" i duggpunkt, som bare betyr at det blir fuktigere av andre årsaker (utevær f.eks.). Det vil hjelpe litt hvis du har en annen temp+rh-sensor et annet sted i huset som du kan gjøre løpende sammenligninger med.

To scripts som logger verdier til flate tekstfiler, med tidspunktet og verdien eller statusen separert med tab. Kan da enkelt limes inn i f.eks. Excel. LogValueToFile.vb Sub Main(parm As Object) Dim deviceRef As Integer = parm.ToString() Dim out As String = Now.ToShortDateString & " " & Now.ToLongTimeString & vbTab & hs.DeviceValueEx(deviceRef).ToString("f1") Try My.Computer.FileSystem.WriteAllText(hs.GetAppPath & "\Logs\" & deviceRef & ".txt", out & vbNewLine, True) Catch ex As Exception hs.WriteLog("LogValueToFile ERROR", ex.Message) End Try End Sub Å hente status kan være verre, for det er flere måter å gjøre det på. LogStatusToFile.vb Sub Main(parm As Object) Dim deviceRef As Integer = parm.ToString() Dim out As String = Now.ToShortDateString & " " & Now.ToLongTimeString & vbTab & GetDeviceString(deviceRef) Try My.Computer.FileSystem.WriteAllText(hs.GetAppPath & "\Logs\" & deviceRef & ".txt", out & vbNewLine, True) Catch ex As Exception hs.WriteLog("LogStatusToFile ERROR", ex.Message) End Try End Sub Function GetDeviceString(ByVal DeviceRef As Integer) As String 'Henter device string fra HS Dim devstring As String = hs.DeviceString(DeviceRef) If devstring <> String.Empty Then Return devstring 'Henter devicestring directe fra CAPI-status, hvis den finnes devstring = hs.CAPIGetStatus(DeviceRef).Status If devstring <> String.Empty Then Return devstring 'Henter devicestring fra CAPI beskrivelse (basert på value) devstring = GetCapiString(DeviceRef) If devstring <> String.Empty Then Return devstring 'Henter devicestring fra device class Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(DeviceRef) devstring = dev.devString(Nothing) If devstring <> String.Empty Then Return devstring Return "String not found for " & DeviceRef & ", value = " & hs.DeviceValueEx(DeviceRef) End Function Function GetCapiString(ByVal DeviceRef As Integer) As String For Each CAPI As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(DeviceRef) If CAPI.ControlValue = hs.DeviceValue(DeviceRef) Then Return CAPI.Label.ToString Next Return String.Empty End Function Kalles med device Ref som parameter.

Hehe, ja det er nok lettest! Ligger nå som vedleg på første side

Da tror jeg du må forklare hva du prøver å oppnå... hvorfor har du lagt til .ToString("f1")? For det er der feilen ligger...

Takk for det, satte igang selv før jeg så responsen din. Lagde min egen hvis noen er intresserte, den regner om fra metno i km/t til m/s og legger til hastigheten etter teksen: - platform: template sensors: vindhastighet_tekst: friendly_name: 'Vindhastighet' icon_template: mdi:weather-windy value_template: > {% set vind = (states.weather.metno.attributes["wind_speed"]|float/3.6)|round(1) %} {% if vind|float < 0.3 %}Stille, {{vind}} m/s {% elif vind|float < 1.6 %}Flau vind, {{vind}} m/s {% elif vind|float < 3.4 %}Svak vind, {{vind}} m/s {% elif vind|float < 5.5 %}Lett bris, {{vind}} m/s {% elif vind|float < 8.0 %}Laber bris, {{vind}} m/s {% elif vind|float < 10.8 %}Frisk bris, {{vind}} m/s {% elif vind|float < 13.9 %}Liten kuling, {{vind}} m/s {% elif vind|float < 17.2 %}Stiv kuling, {{vind}} m/s {% elif vind|float < 20.8 %}Sterk kuling, {{vind}} m/s {% elif vind|float < 24.5 %}Liten storm, {{vind}} m/s {% elif vind|float < 28.5 %}Full storm, {{vind}} m/s {% elif vind|float < 32.7 %}Sterk storm, {{vind}} m/s {% elif vind|float >= 32.7 %}Orkan, {{vind}} m/s {% else %} {{vind}} m/s {% endif %} EDIT: Forenklet linjene og la til en ELSE funksjon til slutt som kun viser xx.x m/s som alternativ utvei etter tips fra HA forum. EDIT2: Forenklet enda mer ved å kun regne om fra km/t til m/si set vind, og ta den som utgangspunkt for resten av template.

Lovlig sent svar, men min far kjører det bassentermometeret mot RFXtrx433e og HomeSeer. Funker visstnok bra!

Er det en ting jeg er god på så er det å gjenbruke andre personers ideer. Så også her så jeg jobber med å implementere en variant av koden til @Dennis87. Imidlertid er planen å trinne regulatoren opp og ned basert på temperatur. Det jeg sliter litt med er hvordan jeg skal håndtere justeringen av ønsket trinn. Koden jeg har for å trigge er: - alias: 'Floor Heating Living Room Power' trigger: platform: state entity_id: input_boolean.lav_temp_stue to: 'on' action: service: input_number.set_value data_template: entity_id: input_number.floor_heating_livingroom value: "5.0" Imidlertid ønsker jeg at value: skal være eksisterende "powernivå" + 1. Kanskje @Dennis87 har et godt forslag til hvordan jeg bør angripe det? Har testet ut at dersom jeg endrer "input_number.floor_heating_livingroom" så endres det også på termostatene som er med i gruppa. Det som da gjenstår er altså å sette +1 på nivå. EDIT: Da har jeg fått til det jeg ønsket. Her er koden om noen lurer på det: - alias: "Stue - Juster setpunkt opp" trigger: - platform: state entity_id: input_boolean.lav_temp_stue to: 'on' action: - service: notify.pushover data: message: Justerer setpunkt opp. - service: input_number.set_value data_template: entity_id: input_number.floor_heating_level value: "{{ states.input_number.floor_heating_level.state | int +1 }}" Jeg har endret litt på navn osv så det passer bedre til hvordan jeg bygger det opp hjemme. I tilleg har jeg da en lik for høy temperatur som setter setpunktet ned med 1. Når en endring er gjort blir den boolske verdien lav/høy_temp_stue stående true i 30 minutter og det gjøres da en ny sjekk om temp er utenfor område for så å ev. justere igjen. Skal sette dette i drift hjemme i kveld for å teste det litt over tid og se hvordan det fungerer.

Du kan legge den ved som et vedlegg her, iallfall. F.eks. i første post.

Oppgradert litt i garasjen, så nå er det ikke bare smarthus men også litt smartgarasje Hadde fra før sensor og kamera. Er nå satt opp 2stk Aeotec nano switch til å skru på/av lamper i taket og Danalock v3 på inngangsdør. Har også endelig pensjonert en 2kW vifteovn og erstattet med en Mitsubishi varmepumpe (Kaiteki 6600) Samme som i huset. Styres via Melcloud component på Home Assistant. Så nå er garasjen klar for vinteren Garasjen er godt isolert så tenker å holde 19-20 grader. Garasjen pusset jeg opp tidligere i år, litt Tesla showroom inspirerte farger. Har også 2 stk Tesla ladestasjoner. Den ene er satt opp og den andre skal opp snart. De blir begge på samme 32A trefas kurs med lastbalansering. Så hvis begge er i bruk samtidig blir det automatisk 16A til hver. Har en 16A trefas kurs tilgjengelig i garasjen også, men den blir forbehold annet bruk.