Vinnerliste

Høres bra ut. Har selv RT-AX88U og parrer den med en AC-66 i stua som AI Mesh, det har fungert bunnsolid i 5-6 års tid. Planlegger mer og mer på hjemmeserver, så vurderer jo å bytte ut "ryggraden" med 10gb 🫢 XT9 ser jo veldig fin ut også, estetisk. Godt å høre at de fremdeles lager stabile produkter 🙂

Hei @Joakim S, Vi beklager at du opplevde problemer med vår VVB puck, men så bra at det løste seg!😊

Jeg hadde fra før en pakke med to like enheter og et par enklere tilleggsenheter. Nå byttet jeg ut hovedenheten (en av de to like) med en Asus XT9. Det var tilstrekkelig til å gjøre nettet stabilt igjen. Før denne oppgraderingen har jeg opplevd litt forskjellige småproblemer, ville derfor begynne med å teste om bytte av hovedenhet til en med mer kraft ville løse problemene. Det fungerer bra så langt. Kjøpte mens XT9 (1 stk) var på tilbud til kr 2000,- ifm black week.

Må ikke glemme at 16A ikke er 16A, det er avhengig av belastningstype også. Ved å begrense til 1.5mm2 begrenser de også egentlig hvor stor last man kan dra (så lenge man følger installasjonsteknisk gode anlegg..) 16A er liksom bare "testet med 16A", det er lite sannsynlig at den takler 16A over tid. Litt som Schuko-stikk. De tåler heller ikke maksbelastning over tid.

@JoeHugin Ikke noe som er bestemt enda, men jeg hører i gangene om at det diskuteres ettersom flyttbar varme er populært i resten av Europa. Så kan hende det kommer i 2025, før nesten vinter sesong, men ikke 100% sikkert enda.

Dagens effektledd er ganske rigid. Det betyr at hvis du har én dag i måneden der strømforbruket ditt er høyt, for eksempel 10,2 kW, kan det gjøre at du havner i en høyere prisgruppe, selv om forbruket ditt er lavt resten av tiden. Dette kan føles urettferdig. Fremover ser vi dessverre at nettleien og kostnader knyttet til høyt strømforbruk vil øke kraftig. Derfor er det viktig å skape smartere løsninger som gir deg fordeler hvis du bruker strøm når belastningen på nettet er lav. Målet er at du skal betale en mer rettferdig pris, der nettleien er lavere når få bruker strøm, i stedet for en fast og statisk modell som i dag. Dette kan gi deg mulighet til å spare penger ved å tilpasse forbruket ditt på en annen måte enn i dag. Vi er med i et test prosjekt her der kundene til Alva får betalt for å ikke bruke strøm på gitte tidspunkt. En av funksjonene vi jobber med, som vi bruker mest tid på, er å bruke målingene våre til å identifisere enheter og om de er av eller på. Vi har kommet et godt stykke i gang med dette arbeidet. Diverse vil du på sikt ikke bare kunne se strømmen som brukes på kretsen men hvilke enheter som bruker strøm, hvor mye strøm hver enhet bruker og når enhet er av eller på. Uavhengig om enheten er dum eller smart.

De integrasjonene som er skybasert er sårbare for endringer, men som regler blir de fort oppdatert (enten av den som har laget integrasjonen opprinnelig eller andre bidragsytere. Derfor forsøker jeg å gjøre så mye som mulig lokalt, f.eks ved montering av spesialtilpasset ESP32 i Panasonic varmepumpene i huset. Ventilasjonsanlegget styres med Ethernet til RS485 konverter tilkoblet modbus inngang på enheten, dermed er den også lokalt styrt. Og det blir uansett ikke driftsstans i den forstand. Målet er at grunnfunksjonen skal fungere også om smarthuset ikke fungerer. Lysbryterne og dimmerne virker som normalt. Ventilasjonen vil gå på den hastigheten den sist var satt til (som lett merkes om den er unormal og kan endres på enheten styrepanel), gulvvarme og panelovner følger sitt normale ukeprogram osv. Det er kun vv-berederen som per i dag er sårbar. Om systemet går ned når den er skrudd av vil vi ikke oppdage det før vannet er kaldt. Derfor vurdere jeg et separat system som bakcup på denne, f.eks en servo styrt av ESP enheten som har temperaturprobene som kan trykke på den fysiske knappen på Aeotec Heavy Duty Switchen som styrer strømmen. Endringer i automasjoner blir det når man oppdater situasjoner som man ikke har tenkt på. Da blir det enten redigering eller å bygge nye automasjoner for de spesielle situasjonene - eller si at dette er godt nok. Som andre har skrevet, så lenge dere støtter Matter og oppdatere dette etterhvert som Matter utvikles vil deres løsning fungere med alle som også følger utviklingen til Matter standarden. Helt enig. Ingen av mine gulvtermostater (Nobø) rapporterer noe jeg kan bruke til å måle faktisk energiforbruk, hverken forbruk eller om varmen faktisk er aktiv i øyeblikket eller ikke. Dersom jeg hadde hatt måler på hver kurs ville jeg i rimelig stor grad kunne se hvilken enhet som er på, basert på endringen i forbruk, så lenge det ikke er flere enheter på samme kurs med identisk forbruk. Spesielt etter at Home Assistant innførte eget dashbord for energi har det blitt interessant å se hva det er i huset som bidrar til grunnforbruket og hva jeg evt kan gjøre noe med. På hytta har jeg klart å komme ned på 60-70 watt, hjemme er det ca 500watt. Og siden det ble lagt inn en egen enhet i energi dashbordet som viser uidentifisert forbruk har jakten på dette uidentifiserte blitt enda mer interessant. 😉

Jeg skulle gjerne visst hva som var poenget med det. Det er svært få kurser jeg kunne tenke meg å slå av og på automatisk. Selv om jeg virkelig legger godviljen til, så er det bare elbillader, varmtvannsbereder og platetopp jeg ser at det har noen som helst nytteverdi. Men for elbiillader er det helt åpenbart mye bedre å ha en smart lader der du også kan styre ladestrømmen. Skal du først bruke noen tusenlapper på å gjøre elbillading smartere så bytter du ut ladeboksen. For platetopp ville den eneste praktiske funksjonen (for min del ihvertfall) vært som en sentralisert komfyrvakt. Det er forsåvidt nyttig nok. Men da må løsningen inneholde direkte sensor-tilkobling og logikk for utkobling uten at noen smarthub er involvert. Uten det må du jo ha en ordinært komfyrvakt i tillegg, og da kan du like gjerne gjøre den smart. Så slapp du dobbelt opp med releer og måler på den kursen også. Ønsker uansett ikke automatisk utkobling basert på annet enn sikkerhet. Da hadde vi VVB igjen. Der er et rele i sikringskapet like bra som de andre av dagens ettermonterte puck-løsninger. Men for nye installasjoner vil jo en smart VVB åpenbart være mye bedre. Jeg har utelatt oppvarming. Med panelovner og elektrisk gulvvarme er det bedre med styring og måling på hver varmekilde separat. Vannbåren varme med elektrisk fyring har nok egen kurs, men er ikke noe jeg ville styrt med utkobling av strømmen. Du har gjerne varmepumpe(r) og en god del sensorer koblet direkte til det systemet, med sin egen halvsmarte styring Tar gjerne mye bedre smarthus-integrasjon av målinger og og styring enn jeg har i dag. Men å slå hele sulamitten av og på med en ekstern strømbryter er uaktuelt. Det hadde nok vært gøy med målinger per kurs med Elkos smarttag eller tilsvarende. Men jeg er usikker på nytteverdien ifm automatisering. Det er nyttig å vite hvor mye elbil og VVB trekker, og relatere dette til totalforbruk. Men hvis du allerede har elbillader og VVB-puck med målinger så blir det jo smør på flesk med måling i sikringsskapet. Så hva skal jeg egentlig med noe i sikringsskapet?

Gjorde noen endringer for å få det til å virke som jeg ønsket 😃 Legger koden ut her, om det andre som ser nytten i den 😃 'Enable or disable debug logging Const DEBUG_LOGGING_ENABLED As Boolean = False Sub Main(ByVal parameters As Object) 'Clio75 All Credits to [email protected] 'Inspired and based on Moskus scrip NewsReader.vb 'Parse parameters Dim DevID As Integer = parameters.ToString.Split("|")(0) Dim KommuneNr As String = parameters.ToString.Split("|")(1) Dim Gatekode As String = parameters.ToString.Split("|")(2) Dim GateNavn As String = parameters.ToString.Split("|")(3) Dim GateNr As String = parameters.ToString.Split("|")(4) 'Base URLs and Headers Dim baseURL As String = "https://norkartrenovasjon.azurewebsites.net/proxyserver.ashx?server=" Dim tommekalenderURL As String = baseURL & "https://komteksky.norkart.no/MinRenovasjon.Api/api/tommekalender/?kommunenr=" & KommuneNr & "&gatenavn=" & GateNavn & "&gatekode=" & Gatekode & "&husnr=" & GateNr Dim fraksjonerURL As String = baseURL & "https://komteksky.norkart.no/MinRenovasjon.Api/api/fraksjoner/" Dim appKey As String = "AE13DEEC-804F-4615-A74E-B4FAC11F0A30" Dim iconFolder As String = "html\images\renovasjon\" 'Ensure icon folder exists If Not IO.Directory.Exists(iconFolder) Then IO.Directory.CreateDirectory(iconFolder) End If WriteDebugLog(DEBUG_LOGGING_ENABLED, "Starting script execution with parameters: " & parameters.ToString()) 'Fetch fraksjoner data Dim fraksjoner As Object = GetJsonResponse(fraksjonerURL, KommuneNr, appKey) If fraksjoner Is Nothing Then hs.WriteLog("Soppel Error", "Failed to fetch fraksjoner data.") Exit Sub End If WriteDebugLog(DEBUG_LOGGING_ENABLED, "Fetched fraksjoner data.") 'Fetch tommekalender data Dim tommekalender As Object = GetJsonResponse(tommekalenderURL, KommuneNr, appKey) If tommekalender Is Nothing Then hs.WriteLog("Soppel Error", "Failed to fetch tommekalender data.") Exit Sub End If WriteDebugLog(DEBUG_LOGGING_ENABLED, "Fetched tommekalender data.") 'Look up the parent device by its reference (DevID) Dim parentDevice As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(DevID) If parentDevice Is Nothing Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "Parent device not found, exiting.") Exit Sub End If 'Declare childDevice outside the loop to reuse Dim childDevice As Scheduler.Classes.DeviceClass = Nothing Dim iconFilePath As String = "" 'Process each item in tommekalender For Each calendarItem As Object In tommekalender Try Dim fraksjonId As Integer = calendarItem("FraksjonId") Dim tommedatoer As Object = calendarItem("Tommedatoer") Dim fraksjonName As String = GetFraksjonName(fraksjoner, fraksjonId) Dim fraksjonIcon As String = GetFraksjonIcon(fraksjoner, fraksjonId) WriteDebugLog(DEBUG_LOGGING_ENABLED, "Processing item: FraksjonId=" & fraksjonId & ", Name=" & fraksjonName) 'Look for an existing child device under the parent device Dim childDeviceExists As Boolean = False Dim deviceRef As Integer = -1 For Each associatedDeviceRef As Integer In parentDevice.AssociatedDevices(hs) Dim device As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(associatedDeviceRef) If device IsNot Nothing AndAlso device.Name(hs) = fraksjonName Then childDeviceExists = True deviceRef = device.Ref(hs) Exit For End If Next 'If the device does not exist, create a new device If Not childDeviceExists Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "Creating new child device for " & fraksjonName) deviceRef = hs.NewDeviceRef(fraksjonName) childDevice = hs.GetDeviceByRef(deviceRef) If childDevice IsNot Nothing Then childDevice.Device_Type_String(hs) = "Renovasjon Fraksjon" childDevice.Interface(hs) = "Renovasjon" childDevice.Name(hs) = fraksjonName childDevice.Location(hs) = parentDevice.Location(hs) childDevice.Location2(hs) = parentDevice.Location2(hs) childDevice.Relationship(hs) = HomeSeerAPI.Enums.eRelationship.Child parentDevice.AssociatedDevice_Add(hs, deviceRef) hs.SaveEventsDevices() End If Else childDevice = hs.GetDeviceByRef(deviceRef) End If 'Update device properties If childDevice IsNot Nothing Then If tommedatoer.Count > 0 Then Dim firstDate As DateTime = DateTime.Parse(tommedatoer(0)) 'hs.SetDeviceString(deviceRef, "2024-12-31", True) 'hardcode date test hs.SetDeviceString(deviceRef, firstDate.ToString("yyyy-MM-dd"), True) hs.SetDeviceValue(deviceRef, 0) End If 'Download and set the icon if needed If fraksjonIcon <> "" Then iconFilePath = iconFolder & fraksjonId & ".png" If Not IO.File.Exists(iconFilePath) Then Try Dim client As New System.Net.WebClient client.DownloadFile(fraksjonIcon, iconFilePath) Catch ex As Exception hs.WriteLog("Soppel Error", "Failed to download icon: " & ex.Message) End Try End If If IO.File.Exists(iconFilePath) Then Dim pair As New HomeSeerAPI.VSVGPairs.VGPair With { .Graphic = "images/renovasjon/" & fraksjonId & ".png", .Set_Value = 0, .PairType = HomeSeerAPI.VSVGPairType.SingleValue } hs.DeviceVGP_AddPair(deviceRef, pair) End If End If End If Catch ex As Exception WriteDebugLog(DEBUG_LOGGING_ENABLED, "Error processing item: " & ex.Message) End Try Next WriteDebugLog(DEBUG_LOGGING_ENABLED, "Script execution completed.") End Sub Function GetJsonResponse(ByVal url As String, ByVal kommuneNr As String, ByVal appKey As String) As Object Dim client As New System.Net.WebClient client.Headers.Add("Kommunenr", kommuneNr) client.Headers.Add("RenovasjonAppKey", appKey) client.Encoding = System.Text.Encoding.UTF8 'Log before attempting to fetch the data WriteDebugLog(DEBUG_LOGGING_ENABLED, "Fetching JSON from URL: " & url) Try Dim response As String = client.DownloadString(url) ' Log the response before deserialization WriteDebugLog(DEBUG_LOGGING_ENABLED, "Response: " & response) Return Newtonsoft.Json.JsonConvert.DeserializeObject(response) Catch ex As Exception ' Log the error message WriteDebugLog(DEBUG_LOGGING_ENABLED, "Error fetching URL: " & ex.Message) Return Nothing End Try End Function Function GetFraksjonName(ByVal fraksjoner As Object, ByVal fraksjonId As Integer) As String If fraksjoner Is Nothing Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "fraksjoner is Nothing") Return "Unknown" End If WriteDebugLog(DEBUG_LOGGING_ENABLED, "Searching for fraksjon with ID: " & fraksjonId) For Each fraksjon As Object In fraksjoner WriteDebugLog(DEBUG_LOGGING_ENABLED, "Checking fraksjon ID: " & fraksjon("Id")) If fraksjon("Id") = fraksjonId Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "Found fraksjon: " & fraksjon("Navn")) Return fraksjon("Navn").ToString() End If Next WriteDebugLog(True, "No matching fraksjon found.") Return "Unknown" End Function Function GetFraksjonIcon(ByVal fraksjoner As Object, ByVal fraksjonId As Integer) As String If fraksjoner Is Nothing Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "fraksjoner is Nothing") Return "" End If WriteDebugLog(DEBUG_LOGGING_ENABLED, "Searching for icon for fraksjon ID: " & fraksjonId) For Each fraksjon As Object In fraksjoner WriteDebugLog(DEBUG_LOGGING_ENABLED, "Checking fraksjon ID: " & fraksjon("Id")) If fraksjon("Id") = fraksjonId Then WriteDebugLog(DEBUG_LOGGING_ENABLED, "Found icon: " & fraksjon("NorkartStandardFraksjonIkon")) Return fraksjon("NorkartStandardFraksjonIkon").ToString() End If Next WriteDebugLog(DEBUG_LOGGING_ENABLED, "No matching icon found.") Return "" End Function 'Function to log debug messages to a file Sub WriteDebugLog(ByVal enabled As Boolean, ByVal message As String) If Not enabled Then Exit Sub Dim logFilePath As String = "C:\Program Files (x86)\HomeSeer HS4\Logs\renovasjon_debug.txt" Try Dim logMessage As String = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & " - " & message & vbCrLf System.IO.File.AppendAllText(logFilePath, logMessage) Catch ex As Exception hs.WriteLog("Soppel Error", "Failed to write to log file: " & ex.Message) End Try End Sub Denne versjonen laster ned fraksjonene og bilder fra apiet og oppretter en sub device pr. fraksjon. Det blir da seende ut slik: Konfigureres slik som @clio75 har beskrevet 😃