-
Innlegg
155 -
Ble med
-
Besøkte siden sist
-
Dager vunnet
1
Innholdstype
Profiler
Forum
Blogger
Nedlastninger
Artikler
Regler
Hendelser
Galleri
Store
Stratagem
Innlegg skrevet av HSv
-
-
Her er et par script som henter data fra TibberSeer devicer, og estimerer strømstøtten MTD.
Det første scriptet henter verdien fra TibberSeer devices “Price Today TextSummary” og “Price Tomorrow TextSummary” og skriver disse til filer (en fil for hver dag). Folder/directory hvor du vil lagre disse må du lage selv, og du må oppdatere variabelen “baseDir” i begge scriptene.
Det andre scriptet bruker output fra det første til å regne ut estimert strømstøtte, og skrive verdier til flere devicer i HomeSeer.
Scriptet er laget for å regne ut:
Estimated Actual Price = Price Current Price + Nettleie - Estimated Strømstøtte
(Nettleien er gjeldende for Lyse Lnett og må justeres om du har en annen nettleverandør)
En ulempe er at dette scriptet må ha input fra hele måneden (dvs. fra den 1ste frem til i dag eller i morgen) for å fungere. Det finnes en workaround til dette, og det skal jeg beskrive i en senere post.
En annen ulempe er at det er laget for å beregne nettleien fra Lyse og vil ikke fungere riktig med andre nettleverandører. Det finnes «sort of» workaround for dette oss - se en senere post.
For å bruke det må du lage noen devicer manuelt:
- Average Powerprice
- Estimated Actual Price
- Estimated Strømstøtte
- Nettleie - energiledd
- Today Estimated Actual Price TextSummary
- Tomorrow Estimated Actual Price TextSummary
(Jeg vet - dårlige navn - men de kan du endre som du vil. Det er Device Ref. scriptene forholder seg til.
I tillegg brukes disse devicene fra TibberSeer:
- Price Current Price
- Price Today TextSummary
- Price Tomorrow TextSummary
Scriptene kjører for meg på Ubuntu 20.04, HomeSeer 4.2.16. Det er ikke testet på Windows.
Kopier begge scriptene til ditt script-directory under HomeSeer, og sørg for at de er kjørbare. (chmod a+x i Linux)
For å kjøre scriptene så lager du en event:
IF
TibberSeer TibberSeer Price Root Price Current Price just had its value set or changed.
THEN
Wait 1 Minute, 0 Seconds
Run the script: Strompris_collect.vb
and wait for the command to finish before continuing, and also only allow one instance of the script to run at a time.
Run the script: Strompris_calculate.vb
and wait for the command to finish before continuing, and also only allow one instance of the script to run at a time.
(Grunnen til "wait 1 minute" er for å gi alle TibberSeer-devicene tid til å oppdateres- det greier seg sikkert med mye kortere tid uten at jeg har testet det)
Strompris_collect.vb har to parameter, begge kommer fra TibberSeer, og adskilt med «:»:
- Device ref. Til «Price Today TextSummary»
- Device ref. Til «Price Tomorrow TextSummary»
Strompris_calculate.vb har hele 7 parameter:
- Average Powerprice
- Estimated Strømstøtte
- Price Current Price (som next før - dette er en device fra TibberSeer)
- Estimated Actual Price
- Nettleie - energiledd
- Today Estimated Actual Price TextSummary
- Tomorrow Estimated Actual Price TextSummary
Alle disse devicene (bortsett fra «Price Current Price») må du som sagt lage selv.
Strompris_collect.vb
Spoiler' Strompris_collect.vb , v. 1.0 ' ' This script collects data from two of TibberSeer's devices and ' creates files to be used by Strompris_calculate.vb ' The scripts both relies heavily on TibberSeer and are designed to use ' with Lyse Lnett's nettleie ' ' HSv, Oct. 2022 ' ' Parameters (All are Device ref's): ' 0 - PricesTodayTSDev - to read the TextSummary of todays prices ' 1 - PricesTomorrowTSDev - to read the TextSummary of tomorrows prices Public Class GlobalVars Public Shared infoLog As Boolean = True ' Log whats happening...? Public Shared warnLog As Boolean = True ' Log warnings...? (you really should!) Public Shared debugLog As Boolean = False ' Log a bit more...? End Class Public Sub Main(ByVal _params As Object) Imports System.Text.RegularExpressions Dim LogID As String = "EL Collect" ' Do we have the correct nubmer of parameters? Dim l As Integer = _params.Split(":").Length If l <> 2 Then Logging(LogID, "warn", "Wrong # of params- Is " & l & ", Should be 2. Aborting!") Exit Sub End If Dim PricesTodayTSDev As Integer = Integer.parse(_params.ToString.split(":")(0)) Dim PricesTomorrowTSDev As Integer = Integer.parse(_params.ToString.split(":")(1)) Dim Devices() As Integer = {PricesTodayTSDev, PricesTomorrowTSDev} ' Does the devices exist? For Each dev As Integer In {PricesTodayTSDev, PricesTomorrowTSDev} If Not hs.DeviceExistsRef(dev) Then Logging(LogID, "warn", "Device " & dev & " does not exist. Aborting!") Exit Sub End If Next Dim baseDir As String = "/backup/strompriser/" Dim today As Datetime = DateTime.Now Dim tomorrow As Datetime = DateAdd("d",1,today) Dim todaystr As String = today.ToString("yyyy-MM-dd") Dim tomorrowstr As String = tomorrow.ToString("yyyy-MM-dd") Dim currentDate As String = todaystr If Not System.IO.Directory.Exists(basedir) Then Logging(LogID, "warn", "Output directory " & baseDir & " does not exist. Aborting!") Exit Sub End If ' Loop over both input parameters For Each dev As Integer In {PricesTodayTSDev, PricesTomorrowTSDev} Dim deviceName = hs.GetDeviceByRef(dev).name(hs) If deviceName.Contains("Today") Then currentDate = todaystr Else currentDate = tomorrowstr End If Dim outFile As String = baseDir & currentDate ' Empty the ouputfile before trying to write to it If System.IO.File.Exists(outFile) Then System.IO.File.WriteAllText(outFile, "") End If ' Read the full HTML content from the input device Dim TextSummaryHTML As String = hs.DeviceString(dev) ' Has Tomorrows prices been updated yet ? If Not TextSummaryHTML.Contains("Tomorrows prices are usually") Then ' Remove HTML tags Dim TextSummary As String = StripTags(TextSummaryHTML) For i = 0 To 23 ' Read each element, using the string "øre" as delimiter Dim entry As String = TextSummary.split("øre")(i) ' Then split each element into a time- and price-tag Dim entrytime As String = entry.split(":")(0) Dim entryprice As Double = entry.split(":")(1) ' Put it all together in a formatted fashion, and write it to file Dim outstring As String = currentDate & "T" & entrytime & " " & entryprice & Environment.NewLine My.Computer.Filesystem.WriteAllText(outFile, outstring, True) Next ' Just some fancy info-logging Logging(LogID, "info", deviceName.Split(" ")(0) & " " & deviceName.Split(" ")(1) & " collected") Else Logging(LogID, "warn" , "Tomorrows prices not yet updated") End If Next Exit Sub End Sub Function StripTags(ByVal html As String) As String ' Remove HTML tags. html = Regex.Replace(html, "<.*?>", "") Return Regex.Replace(html, " ", "") End Function ' Routine for writing to the log Sub Logging(ByVal LogID As String, ByVal msgType As String, ByVal msg As String) Dim msgComplete As String Dim writetolog As Boolean = False Select Case msgType Case "info" If GlobalVars.infoLog Then msgComplete = "Info: " & msg writetolog = True End If Case "debug" If GlobalVars.debugLog Then msgComplete = "Debug: " & msg writetolog = True End If Case "warn" If GlobalVars.warnLog Then msgComplete = "Warning: " & msg writetolog = True End If Case Else msgComplete = "Msgtype '" & msgType & "' undefined" writetolog = True End Select If writetolog Then hs.Writelog (LogID, msgComplete) End Sub ' That's all folks!
Stromstotte_calculate.vb
Spoiler' Strompris_calculate.vb , v. 1.0 ' ' This script uses the output from Strompris_collect.vb, and calculates ' Month-to-date Strømstøtte. This is again used in company with ' TibberSeer's TextSummary devices to populate devices for the best estimate of ' today and tomorrow's "true" prices. (ie. Price + Nettleie - Assumed Stømstøtte) ' The scripts both relies heavily on TibberSeer and are designed to use ' with Lyse Lnett's nettleie ' ' HSv, Oct. 2022 ' ' Parameters (All are Device ref's): ' 0 - AverageDev - store average MTD price ' 1 - StotteDev - store estimated 'Stømstøtte' ' 2 - nowPriceDev - read current price (This is a device from TibberSeer) ' 3 - EstPriceDev - store current estimated (prcie + nettleie - strømstøtte) ' 4 - NettleieDev - store current nettleie ' 5 - EstTodayTSDev - store Todays estimated price TextSummary ' 6 - EstTomorrowTSDev - store Tomorrows estimated price TextSummary Public Class GlobalVars Public Shared infoLog As Boolean = True ' Log what's happening...? Public Shared warnLog As Boolean = True ' Log warnings...? (you really should!) Public Shared debugLog As Boolean = False ' Log a bit more...? End Class Public Sub Main(ByVal _params As Object) Imports System.IO Dim LogID As String = "EL Calculate" ' Do we have the correct nubmer of parameters? Dim l As Integer = _params.Split(":").Length If l <> 7 Then Logging(LogID, "warn", "Wrong # of params- Is " & l & ", Should be 7. Aborting!") Exit Sub End If Dim AverageDev As Integer = Integer.parse(_params.ToString.split(":")(0)) Dim StotteDev As Integer = Integer.parse(_params.ToString.split(":")(1)) Dim nowPriceDev As Integer = Integer.parse(_params.ToString.split(":")(2)) Dim EstPriceDev As Integer = Integer.parse(_params.ToString.split(":")(3)) Dim NettleieDev As Integer = Integer.parse(_params.ToString.split(":")(4)) Dim EstTodayTSDev As Integer = Integer.parse(_params.ToString.split(":")(5)) Dim EstTomorrowTSDev As Integer = Integer.parse(_params.ToString.split(":")(6)) ' We don't need to check all devices yet ' We can still do some calculations if the last two doesn't exist For Each dev As Integer In {AverageDev, StotteDev, nowPriceDev, EstPriceDev, NettleieDev} If Not hs.DeviceExistsRef(dev) Then Logging(LogID, "warn", "Device " & dev & " does not exist. Aborting!") Exit Sub End If Next ' Shall we calculate Støtte / Nettleie and write it back to 'StotteDev' / 'NettleieDev' (True) ' or just read a manually entered value from 'StotteDev' / 'NettleieDev' (False) Dim calcStøtte As Boolean = True Dim calcNettleie As Boolean = True ' Directory / folder where output files from Strompris_collect.vb are stored Dim baseDir As String = "/backup/strompriser/" Dim MVA As Double = 1.25 ' MVA / moms Dim fixedPart As Integer = 70 Dim prctPart As Double = 0.9 Dim nettleieHigh As Double = 48.6 Dim nettleieLow As Double = 40.6 ' These are Valid for Lyse Nett - Rewrite as needed Dim leieLowPeriods() As String = {"Saturday", "Sunday", "22", "23", "00", "01", "02", "03", "04", "05"} If Not System.IO.Directory.Exists(basedir) Then Logging(LogID, "warn", "Output directory " & baseDir & " does not exist. Aborting!") Exit Sub End If Dim thismonth As String = DateTime.Now.ToString("yyyy-MM") Dim numEntries As Integer = 0 Dim sumPrices As Double = 0 Dim nowPrice As Double = hs.DeviceValueEx(nowPriceDev) Dim redDot As String = "<img src='images/HomeSeer/status/red.png' width=12 height=12>" Dim yellowDot As String = "<img src='images/HomeSeer/status/yellow.png' width=12 height=12>" Dim greenDot As String = "<img src='images/HomeSeer/status/green.png' width=12 height=12>" Dim Average As Double = Nothing Dim Stotte As Double If Not calcStøtte Then ' You asked to read Strømstøtte instead of calculating it Stotte = hs.DeviceValueEx(StotteDev) Else ' Get a list of this month's files For Each fileName As String In Directory.GetFiles(basedir, thismonth+"*") Dim fileSize As Integer = System.IO.File.ReadAllText(fileName).Length Logging(LogID, "debug", fileName & " -> " & fileSize) ' Does the file contain any data? If fileSize > 0 Then Dim reader as StreamReader = My.Computer.FileSystem.OpenTextFileReader(fileName) Dim myline as String ' Assumption: If the file exist and contains data, ' it contains CORRECT data, and CORRECT formatted data! For i = 0 To 23 myline = reader.ReadLine If String.IsNullOrEmpty(myline) Then Exit For End If sumPrices = sumPrices + myline.split(" ")(1) numEntries = numEntries + 1 'Logging(LogID, "debug", myline) Next Logging(LogID, "debug", sumPrices & " - " & numEntries) reader.Close() End If Next ' Finally - done with the preparation and doing some math Average = Math.Round(sumPrices / numEntries, 2) Stotte = Math.Round((Average - (fixedPart * MVA)) * prctPart, 2) End If If Stotte < 0 Then ' We can never owe strømstøtte, right...? Stotte = 0 End If Dim nowNettleie as Double If Not calcNettleie Then ' You asked to read Nettleie instead of calculating it nowNettleie = hs.DeviceValueEx(NettleieDev) Else ' Calculate Nettleie for 'now' Dim TimeNow As Datetime = DateTime.Now Dim HourNow As String = TimeNow.Tostring("HH") Dim DayNow AS String = TimeNow.DayOfWeek.ToString ' High or Low nettleie ? If leieLowPeriods.Any(Function(s) DayNow.Contains(s)) Or leieLowPeriods.Any(Function(s) HourNow.Contains(s)) Then nowNettleie = nettleieLow Else nowNettleie = nettleieHigh End If End If ' And finally - Tadaaa... Dim nowEstPrice As Double = Math.Round(nowPrice + nowNettleie - Stotte, 2) ' Now write all these values to the correct HS Devices If calcStøtte Then hs.SetDeviceValueByRef(AverageDev, Average, True) hs.SetDeviceValueByRef(StotteDev, Stotte, True) End If If calcNettleie Then hs.SetDeviceValueByRef(NettleieDev, nowNettleie, True) End If hs.SetDeviceValueByRef(EstPriceDev, nowEstPrice, True) Logging(LogID, "info", "Average: " & Average & " | Est. Støtte: " & Stotte) Logging(LogID, "info", "Est. Price: " & nowEstPrice & " | Nettleie: " & nowNettleie) ' Ready for part Two ? ' OK - Now let's see if can make a TextSummary of the "true" powerprices. ' Now we need the last two devices For Each dev As Integer In {EstTodayTSDev, EstTomorrowTSDev} If Not hs.DeviceExistsRef(dev) Then Logging(LogID, "warn", "Device " & dev & " does not exist. Aborting!") Exit Sub End If Next Dim today As Datetime = DateTime.Now Dim tomorrow As Datetime = DateAdd("d",1,today) Dim todaystr As String = today.ToString("yyyy-MM-dd") Dim tomorrowstr As String = tomorrow.ToString("yyyy-MM-dd") Dim currentDate As String = todaystr ' Loop over Today's and Tomorrow's file For Each fileName As String in {todaystr, tomorrowstr} ' We need to find the Day of the week to apply the correct nettleie. Dim currentYear As Integer = fileName.Split("-")(0) Dim currentMonth As Integer = fileName.Split("-")(1) Dim currentDay As Integer = fileName.Split("-")(2) Dim DateString As String = currentYear & "/" & currentMonth & "/" & currentDay Dim d As DateTime = DateString Dim DOW As String = d.DayOfWeek.ToString Logging(LogID, "debug", DOW) ' Which device shall we write to in this iteration? Dim TextSumDev As Integer If fileName = todaystr Then TextSumDev = EstTodayTSDev Else TextSumDev = EstTomorrowTSDev End If ' Set the full path and filename Dim fullFilename As String = basedir & fileName If System.IO.File.Exists(fullFilename) Then Dim fileSize As Integer = System.IO.File.ReadAllText(fullFilename).Length Logging(LogID, "debug", fullFilename & " -> " & fileSize) ' Again we assume that if the file exist and contains data, ' it contains CORRECT data, and CORRECT formatted data! If fileSize > 0 Then Dim reader as StreamReader = My.Computer.FileSystem.OpenTextFileReader(fullFilename) Dim myline as String ' Prepare the string to write back to HomeSeer Dim OutString As String = "<table>" For i = 0 To 23 myline = reader.ReadLine If String.IsNullOrEmpty(myline) Then Exit For End If 'Logging(LogID, "debug", myline) Dim currentTime As String = myline.Split(" ")(0) Dim currentHour As String = currentTime.Split("T")(1) Dim currentPrice As Double = myline.Split(" ")(1) Dim currentNettleie As Double Dim NLS As String = Nothing If Not calcNettleie Then ' You asked to read Nettleie instead of calculating it currentNettleie = hs.DeviceValueEx(NettleieDev) Else ' High or Low nettleie ? If leieLowPeriods.Any(Function(s) DOW.Contains(s)) Or leieLowPeriods.Any(Function(s) currentHour.Contains(s)) Then currentNettleie = nettleieLow NLS = "(L)" Else currentNettleie = nettleieHigh NLS = "(H)" End If End If ' Finally - calculate the "assumed" true price Dim truePrice As Double = Math.Round(currentPrice - Stotte + currentNettleie, 2) ' Create the final fancy string - with HTML and bells and whistles :-) If i Mod 2 = 0 Then OutString = OutString & "<tr>" End If ' Add some fancy colored dots to the output Dim colorDot As String If truePrice > 20 Then colorDot = redDot Else If truePrice < 0 Then colorDot = greenDot Else colorDot = yellowdot End if OutString = OutString & "<td style='padding-right:15px'> " & colorDot & currentHour & ": " & truePrice & " øre" & NLS & "</td>" If i Mod 2 <> 0 Then OutString = OutString & "</tr>" End If Next OutString = OutString & "</table>" ' Write the finel HTML String to the correct device hs.SetDeviceString(TextSumDev, OutString, True) reader.Close() Else ' i.e. I haven't found the input file Logging(LogID, "warn", fullFilename & " is empty") hs.SetDeviceString(TextSumDev, "Tomorrows prices are usually updated around 12-13:00", True) End If Else ' i.e. I haven't found the input file Logging(LogID, "warn", fullFilename & " does not exist") hs.SetDeviceString(TextSumDev, "Tomorrows prices are usually updated around 12-13:00", True) End If Next Logging(LogID, "debug", "All done") End Sub ' Routine for writing to the log Sub Logging(ByVal LogID As String, ByVal msgType As String, ByVal msg As String) Dim msgComplete As String Dim writetolog As Boolean = False Select Case msgType Case "info" If GlobalVars.infoLog Then msgComplete = "Info: " & msg writetolog = True End If Case "debug" If GlobalVars.debugLog Then msgComplete = "Debug: " & msg writetolog = True End If Case "warn" If GlobalVars.warnLog Then msgComplete = "Warning: " & msg writetolog = True End If Case Else msgComplete = "Msgtype '" & msgType & "' undefined" writetolog = True End Select If writetolog Then hs.Writelog (LogID, msgComplete) End Sub ' That's all folks!
- 1
-
Kan det ha noe med dette å gjøre?
https://learn.microsoft.com/en-us/dotnet/visual-basic/language-reference/data-types/double-data-type
-
Precision. When you work with floating-point numbers, remember that they do not always have a precise representation in memory. This could lead to unexpected results from certain operations, such as value comparison and the
Mod
operator. For more information, see Troubleshooting Data Types.
-
-
Se der ja - allerede sett på - og det er jo egentlig ikke overraskende 🙂
Jeg har oversett den tråden, men den skal sjekkes ut. -
Et ønske fra meg.
I dag så bruker jeg TibberSeer conditions "The power price was set ..." for å styre varmtvannstanken (og annet også forsåvidt)
Men denne ser jo bare på inneværende døgn, noe som kan føre til at berederen skrus på kl. 22:00 - selv om strømmen blir mye billigere rett over midnatt.
Jeg vet ikke helt hvordan jeg skal formulere meg, men dere skjønner dilemmaet...
Kanskje noe som "Inneværende dag pluss de 12 første timene i morgen"?Samtidig så vet vi jo ikke morgendagens priser klokka 11 (AM) i dag, så det komplisere jo litt.
Flere som har tanker om dette?
Og det store spørsmålet - vil @Moskus være villig til å se på dette?
...og mens jeg har ordet - hva kom ut av diskusjonen om en spleis eller donasjon for TibberSeer? Det er jo mange som driver med open source som har en "Buy me a coffee" link. For min del så bruker jeg penger på plugins som er mindre "viktige" for meg enn TibberSeer, så jeg donerer gjerne noen kroner for TibberSeer også.
- 2
-
Moskus skrev (5 minutter siden):
... sa han uten å dele det!
Det er dessverre ikke så mye å dele - ennå er det et VB.net script som kjører et par perl-script (siden jeg er MYE stødigere på perl enn på vb... Når kommer Perl-script native i HS...? 🤔)
Skikkelig hårete saker som må forbedres betraktelig før det er verdt å dele. -
I helgen har jeg laget script for å hente timesprisene for strøm fra Tibber sitt API, og å beregne gjennomsnittspris hittil i måneden.
Ut ifra dette kan en regne ut hva strømstøtten ligger an til å bli, og da igjen finne ut når det er sannsynlig et en tjener på å bruke strøm. (Så absurd det nå enn er...)Da blir temperaturen på varmekablene satt opp.
Som nevnt i et tidligere innlegg så er antakelsen ikke veldig nøyaktig i starten av måneden, men blir bedre og bedre jo lenger ut i måneden en kommer.
Jeg hadde aldri trodd at jeg ville kunne tjene penger på å drive med hjemmeautomasjon, men nå begynner det snart å nærme seg 🙂 -
Jeg kjører ikke på Pi, men på en Ubuntu maskin, og der legger jeg filen i mappen over HomeSeer-mappen før jeg kjører tar.
-
Jeg har nettopp installert varmepumpe og har implementert denne i Homeseer/MelcloudClimate når det gjelder styring.
Men jeg ser jo at også Tibber tilbyr Smart varmestyring.
Er det noen som har gjort seg erfaringer med å la Tibber styre varmepumpen vs. la Homeseer ta seg av det?
-
Takk for flott plugin. Jeg fikk installert en Mitsubishi Kaiteki i går, og plugin ser ut til å fungere som den skal på Ubuntu 20.04 og HS 4.2.15 🙂
Nå er jo ikke Melcloud den vakreste eller mest funksjonsrike appen jeg har sett, men denne plugin'en styrer iallefall det som styres kan, så vidt jeg kan se.
Tommel opp for godt arbeid 🙂
-
Tips til de som trenger denslags:
https://www.proshop.no/Smarthus/LEDVANCE-Smart-E27-Bulb-Flex-Lightstrip-RGBW-Zigbee/8500239 -
Det er ikke så mye hokuspokus å beregne akkumulert nettleien for dagen:
IFThe event will automatically trigger every 20m, 3sTHENSet Device TibberSeer TibberSeer Realtime AccumulatedCost - Nettleie to ($$DVR:2719: * 0.44) + (2640 / 365) + (39 * 12 / 365)hvor ($$DVR:2719: * 0.44) er "Realtime AccumulatedConsumption" multiplisert med nettleie pr KWt
(2640 / 365) er fastleddet i nettleien fordelt på 365 dagerog (39 * 12 / 365) er dagsprisen for Tibber - ikke akkurat nettleie men jeg synes det er greit å få med.
En kan jo kjøre dette så ofte en vil. En kan ogsp forenkle formelen en del, men jeg synes det er greit å ha det slik for da ser jeg hva som er hva.
(Prisene her gjelder for Lyse Nett)
- 1
-
Nei, det gjør den nok ikke.
Du må lage en event som setter den til ON når klokka er 22:00, og en ny event som setter den til OFF når klokka er 04:00.
Du kan også ta en kikk på plugin EasyTrigger - der kan du lage schedules, men må likevel lage event for når den "går inn" i en schedule og en for når den forlater. -
Jeg bruker denne for HS4:
http://plugins.homeseer.com/releasenotes?productid=357- 1
-
Jeg har HS4, en tre'ish år gammel Samsung Q8 og bruker Samsung sin plugin.
Og den funker fint for meg - jeg bruker den bare til å skru TV av/på, og det er den utmerket til. Har faktisk ikke testet resten... 😕EDIT:
...og jeg har ikke noen hub fra Samsung; ulempen er jo at den er avhengig av SmartThings - og derfor internett - for å fungere.EDIT 2:
Testet mer nå, og alt ser ut til å fungere bortsett fra Volum og Mute- 2
-
Litt mer seriøst - jeg har lys automatisk av/på på badet, styrt av bevegelsessensor og magnetkontakt på døren. Jeg ville gjort det så enkelt at om lyset på badet er på, så lyser det rødt i en hue-pære på loften. Og hvis lyset er av - lyser det grønt.
-
Kamera på badet og skjerm i 3dje etasje 😄
- 3
-
16 minutter siden, c0d3x skrev:
Jeg har Gudbrandsdalen Energi - Social avtalen, vil et bytte til Tibber være tilsvarende pris pr.mnd?
Du kan jo sjekke selv her:
https://tibber.com/no/smart-stromavtaleLitt ned på siden kan du sammenligne Tibber med ditt selskap.
Edit:
Ta også med i betraktningen at Tibber har et påslag på 39,- / mnd. -
6 minutter siden, Kenneth skrev:
Takker @HSv,
Lagde meg ett event med samme parameterne, så tester jeg neste gang jeg må restarte HS
Bare hyggelig 🙂
Mulig jeg forteller deg det opplagte her, men bær over med meg:
Jeg har ikke sjekket Twinkly-scriptet om det har en AddDeviceButtons metode/function. Hvis ikke må du endre eventen for å tilpasse Twinkly scriptet.
Og du har helt sikkert ikke samme device-ID som jeg bruker - 3946EDIT:
Jo - ser nå at det har samme navn på funksjonen.
Da kan du bruke samme event som jeg vil jeg tro, og bare bytte device-ID med din egen. -
7 minutter siden, Kenneth skrev:
Når jeg stopper og starter HS4 så bli knappene i devicen "borte" og jeg må kjøre skriptet på nytt igien.
Jeg tipper det skyldes samme "feature" i HS4 som jeg oppdaget på et annet script. Du kan se på linken under hva jeg gjorde for en workaround der
-
Trengs noe annet en "vi" da...? Selv synes jeg jeg flotter meg når jeg bruker vim 🙂
-
https://www.proshop.no/Smarthus/LEDVANCE-Smart-Ceiling-33cm-Tunable-White-Zigbee/2799785
Nå blir det lys ute i felleinngangen også 🙂EDIT:
Etter en drøy uke så må jeg si jeg er fornøyd med disse - for ca 200,- så må det nok være ett av mine beste kjøp 🙂
Dessverre er de oppe på full pris igjen nå, men de er så bra at jeg hadde sterkt vurdert disse på nytt, selv med full pris.
Det er billig plast, men ser ikke så ille ut dersom du bare ikke kommer for nært innpå og studerer 🙂- 1
-
På 18.11.2020 den 16.33, gullfrode skrev:
Måtte investere i en sånn.
Tips - Jeg bruker vanligvis kamera på mobilen som forstørrelsesglass. Evt bare ta et bilde, og zoome inn på det 🙂
- 1
-
Jeg hadde samme problem med begge mine. De fungerte fint lenge, men så tok de plutselig kvelden. Jeg prøvde "alt".
Jeg ga opp og tok de ned. Jeg lot de så ligge en stund uten batteri - sikkert en uke eller to - før jeg prøvde igjen. Da kom de etter hvert online igjen.
Nå kan jeg kontrollere de med HomeSeer / deConz men fjernkontrollen har jeg gitt opp for godt. Når jeg prøver å pare så får gardinene problemer igjen mot deConz. -
Tips - I mangel på bedre tråd:
Jeg styrer mine termostater ved hjelp av events i HS, og det fungerer utmerket. Men selv om romtemperaturen er fin, så kan det likevel bli litt golvkaldt. Men disse termostatene har jo en parameter 5, Floor minimum temperature limit.
Selv om denne parameteren ikke har et eget device i HS, så kan det likevel settes fra en event:Jeg har flere forskjellige events for Comfort, Eco, Night osv, og justerer denne parameter 5 tilsvarende.
Så nå ser jeg frem til en vinter uten kalde bein 🙂
- 1
SCRIPT: Estimere strømstøtte "month-to-date"
i Scripts
Skrevet
Merk at du bruker disse scriptene på eget ansvar. Det finnes ingen garanti at de virker, eller at de gir korrekt resultat. Strømstøtten kan uansett ikke beregnes nøyaktig før måneden er over - jeg prøver bare å regne den ut med de data som er tilgjengelig akkurat nå. Og det er ikke engang garantert at jeg gjør det riktig 🙂