Vinnerliste

Takk for svar, er til stor hjelp. Tar i mot alle tips. Er helt i startfasen med å "smartifisere" huset. 😇 Har ikke målt om det går noen spenning over klemmene, ser på det i kveld. Da er i hvert fall tilkoblinger gjort riktig i følge deres erfaringer. Implant er strømsatt via el-kjele og meldt inn i HS. Prøver meg på noen eventer for å se hvordan det går 😊 Jeg jobber som elektriker, men er helt fersk i HS og smarthus styring på dette nivået. Bruker tibber og har tibberseer i HS. Skal få lagt inn netatmo værstasjonen min også.

Fibaro Smartimplant kan kobles slik du beskriver, ettersom signalet er 24V DC. (Du kan også strømforsyne Fibaro Smartimplant direkte fra elkjelen. Klemme B1(-) kobles til GND(Blå leder) og B2(+) kobles til P(Rød leder)) Klemme B5 kobles til ene klemmen på Output 1 på Smartimplant Klemme B6 kobles til andre klemmen på Output 1 på Smartimplant Begrensningen er Smartimplant som har maks strøm 150mA. Hva er strømmen som går i sløyfen mellom B5 og B6 på elkjelen? Teknisk dokumentasjon for elkjelen sier at funksjonen av denne termostat tilkoblingen er motsatt. Har du sjekket at termostat av faktisk er av på elkjelen? For å styre dette må du ha to eventer. Ett event for å slå på varmen og ett event for å slå av varmen. (Forutsetter funksjon på termostat som OFF = varme av og On = varme på.) Varme PÅ IF TemperaturStue has a value that is lower than 22 THEN Set Device Fibaro Smartimplant output 1 to ON Varme AV IF TemperaturStue has a value that is higher than 24 THEN Set Device Fibaro Smartimplant output 1 to OFF Forskjell i temperatur(AV/PÅ) (Hysterese) er satt for å unngå hurtig av og på slag av kjelen ved små endringer i temperaturen. Dette er uansett ivaretatt i elkjelens elektronikk med minimumspause etter at termostaten er slått av (minimums tid fra stopp til start). For å stoppe varmen etter strømprisen må du i eventene legge til noe som tar hensyn til strømprisen. Varme PÅ IF TemperaturStue has a value that is lower than 22 AND IF strømpris has a value that is lower than XX THEN Set Device Fibaro Smartimplant output 1 to ON Varme AV IF TemperaturStue has a value that is higher than 24 OR IF strømpris has a value that is higher than YY THEN Set Device Fibaro Smartimplant output 1 to OFF Strømprisen (XX og YY) må du bruke andre elementer til å finne ut av. F.eks. TibberSeer og noen eventer for å avgjøre strømprisen i forhold til høyeste strømpris i dag, høyeste ønskede strømpris, osv. Dersom du har fastpris/pristak er det en enkel øvelse. Alternativ til Smartimplant er f.eks. Qubino Flush 1D Relay. Kan forsynes med 24V DC og har separat rele for utgang (10A). Nå er dette generelle betraktninger fra min side. Orakler på HomeSeer og andre smarthus løsninger vil sikkert komme å gi deg bedre veiledning.

Etter inspirasjon fra denne tråden har jeg laget/modifisert script for henting av tømmedatoer i Steinkjer og Snåsa. Har laget og drifter en mobilapp for tømmedatoer så jeg laget en rute i backend for å gjøre det litt enklere å tilpasse til Homeseer. Man må lage 3 virtuelle enheter med On/Off mulighet der On er 1 og Off er 0. Scriptet slår på enhetene som har tømming neste dag og slår av enhetene som ikke har tømming neste dag. Nå vet ikke jeg hvor mange som bruker Homeseer i Steinkjer/Snåsa, men det kan jo finnes noen 😊 Public Class Readomrade Public Property id As Integer Public Property omradetekst As String End Class Public Class Readrute Public Property id As Integer Public Property ruteomradeid As Integer Public Property rutetekst As String Public Property rutebeskrivelse As String End Class Public Class TommePlan Public Property id As Integer Public Property dato As DateTime Public Property rutetype As String Public Property readomrade As Readomrade Public Property readrute As Readrute End Class Sub Main(ByVal parameters As Object) ' Tømmeplan Steinkjer og Snåsa. https://grsoft.no/tommeplan ' Parameter: ' 1: Devref Restavfall ' 2: Devref Papp ' 3: Devref Plast ' 4: Områdenr. ' 5: Rutenr. Område og Rutenr hentes fra: https://www.steinkjer.kommune.no/renovasjon.460804.no.html ' ruteType: ' 1,2 = Matavfall og Restavfall ' 1,3 = Matavfall og Papp/Papir ' 4 = Plast ' 5 = Plast sentrum nord for Steinkjerelva ' 6 = Plast sentrum sør for Steinkjerelva 'Clio75 All Credits to [email protected] 'Inspired and based on Moskus scrip NewsReader.vb Dim devIDRest As Integer = parameters.ToString.Split("|")(0) Dim devIDPapp As Integer = parameters.ToString.Split("|")(1) Dim devIDPlast As Integer = parameters.ToString.Split("|")(2) Dim omradeID As String = parameters.ToString.Split("|")(3) Dim ruteID As String = parameters.ToString.Split("|")(4) 'Angir hvor mange fremtidige tømminger som skal hentes Dim fetchLimit As String = "2" Dim ruteType As String = "" Dim devID As Integer = 0 For x As Integer = 0 To 2 Select Case x Case 0 ruteType = "1,2" 'Device ref til Restavfall devID = devIDRest Case 1 ruteType = "1,3" 'Device ref til Papp devID = devIDPapp Case 2 'Endre denne til 5 eller 6 om du bor i sentrum av Steinkjer ruteType = "4" 'Device ref til Plast devID = devIDPlast End Select Dim url As String = "https://tommeplan.grsoft.no/v1/getha?omradeID=" & omradeID & "&ruteID=" & ruteID & "&ruteType=" & ruteType & "&fetchLimit=" & fetchLimit Dim source As String = "" Try Using client As New System.Net.WebClient ' Denne api nøkkelen kan alle bruke client.headers.set("X-Api-Key", "ZABtfylm48W01BPcEGKmnpbm7XCLWKAo") Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("soppel Error", "Got no response from url: " & url) Exit Sub End If Try Dim tommePlan() as TommePlan = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TommePlan())(source) Dim devTekst = "" ' Dim firstDate As DateTime Dim imorgen As Date = DateAdd("d",1,Today) Dim tommeDato As Date For i As Integer = 0 To tommePlan.Count -1 Dim ruteTypeTekst As String = "" Dim dato As DateTime = Convert.ToDateTime(tommePlan(i).dato) Dim formattedDate As String = dato.ToString("ddd d MMM") Select Case i Case 0 devTekst = formattedDate+" <br>" tommeDato = tommePlan(i).dato If imorgen = tommeDato Then ' Slår på virtuell enhet om det er tømming i morgen hs.SetDeviceValueByRef(devID, 1, True) Else ' Slår av virtuell enhet om det ikke er tømming i morgen hs.SetDeviceValueByRef(devID, 0, True) End If Case 1 devTekst = devTekst + "<b>Neste:</b> " + formattedDate End Select hs.SetDeviceString(devID, devTekst , True) Next Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try Next End Sub renovasjon.vb