Moskus

Absolutt enig. Men jeg bruker ikke Google-kalender selv... Hvis du får det til, så post gjerne kodesnutten her.

Å vite om det er helg eller ikke er ganske praktisk for hjemmeautomasjon. De aller fleste har andre rutiner i helgene enn de har i ukedagene. Hos oss er derimot rutinene for fridager omtrent prikk lik dager i helgen, så det hadde jo vært praktisk om man istedenfor å sjekke om det er helg, kunne sjekke om det er en fridag. Og nå kan vi det. Basert på @xibriz sitt glimrende PHP-script for å sjekke for offentlige høytider (og omskrevet til VB.NET) har jeg lagt til en rutine ekstra, som bl.a. sjekke om det faktisk er helg eller om det er noen andre unntak lagt inn. Du trenger en virtuell device med "Control Use" for Off og On definert (under Status Grapics -> Status-kolonne). Her er min: Device Ref til denne brukes som parameter i scriptet. Scriptet trigges ved midnatt hver dag for å sjekke om dagen i dager en fridag eller ei. Fridager.vb Sub Main(ByVal deviceReference As String) 'Moskus 2017 Dim devRef As Integer = Integer.Parse(deviceReference.ToString) Dim isCurrentDateHoliday As Boolean = False If Not isCurrentDateHoliday Then isCurrentDateHoliday = IsOfficialHoliday(Now) 'Sjekker offisielle helligdager If Not isCurrentDateHoliday Then isCurrentDateHoliday = IsCustomHoliday(Now) 'Sjekker egen-spesifiserte dager If isCurrentDateHoliday Then hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._On)) Else hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._Off)) End If End Sub Public Function IsCustomHoliday(ByVal _date As Date) As Boolean _date = _date.Date 'In case time was added 'For eksempel sjekkeom det er en lørdag eller søndag If _date.DayOfWeek = DayOfWeek.Saturday Then Return True If _date.DayOfWeek = DayOfWeek.Sunday Then Return True 'Jeg har alltid fri i romjulen If _date.Month = 12 Then If _date.Day >= 27 AndAlso _date.Day <= 31 Then Return True End If End If 'Andre spesifikke dager kan legges i listen, f.eks. har barnehagen planleggingsdager Dim dateList As New System.Collections.Generic.List(Of Date) dateList.Add(New Date(2017, 4, 18)) If dateList.Contains(_date) Then Return True 'Har vi kommet så langt er det ingen fridager, returner "False" Return False End Function Public Function IsOfficialHoliday(ByVal _date As Date) As Boolean 'translated php script form xibriz: https://www.diskusjon.no/index.php?showtopic=1084239 _date = _date.Date 'in case time was added Dim easterDate As Date = GetEasterDate(_date.Year) 'Sjekker om datoen er 1. Januar If _date = New Date(_date.Year, 1, 1) Then Return True 'Sjekker om datoen er pamlesøndag (1. påskedag - 7 dager) If _date = easterDate.AddDays(-7) Then Return True 'Sjekker om datoen er skjærtorsdag (1. påskedag - 3 dager) If _date = easterDate.AddDays(-3) Then Return True 'Sjekker om datoen er langfredag (1. påskedag - 2 dager) If _date = easterDate.AddDays(-2) Then Return True 'Sjekker om datoen er 1. påskedag If _date = easterDate Then Return True 'Sjekker om datoen er 2. påskedag (1. påskedag + 1 dag) If _date = easterDate.AddDays(1) Then Return True 'Sjekker om datoen er 1. mai (offentlig høytidsdag) If _date = New Date(_date.Year, 5, 1) Then Return True 'Sjekker om datoen er 17. mai (grunnlovsdag) If _date = New Date(_date.Year, 5, 17) Then Return True 'Sjekker om datoen er kristi himmelfartsdag (40. påskedag) If _date = easterDate.AddDays(39) Then Return True 'Sjekker om datoen er 1. pinsedag (50. påskedag) If _date = easterDate.AddDays(49) Then Return True 'Sjekker om datoen er 2 pinsedag (51. påskedag) If _date = easterDate.AddDays(50) Then Return True 'Sjekker om datoen er 1. juledag (25. desember) If _date = New Date(_date.Year, 12, 25) Then Return True 'Sjekker om datoen er 2 juledag (26. desember) If _date = New Date(_date.Year, 12, 26) Then Return True Return False End Function Public Function GetEasterDate(ByVal Year As Integer) As Date 'Originally taken from: http://www.thoughtproject.com/Snippets/Easter/Easter.vb.txt Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim k As Integer Dim l As Integer Dim m As Integer Dim n As Integer Dim p As Integer If Year < 1583 Then Return Nothing Else ' Step 1: Divide the year by 19 and store the ' remainder in variable A. Example: If the year ' is 2000, then A is initialized to 5. a = Year Mod 19 ' Step 2: Divide the year by 100. Store the integer ' result in B and the remainder in C. b = Year \ 100 c = Year Mod 100 ' Step 3: Divide B (calculated above). Store the ' integer result in D and the remainder in E. d = b \ 4 e = b Mod 4 ' Step 4: Divide (b+8)/25 and store the integer ' portion of the result in F. f = (b + 8) \ 25 ' Step 5: Divide (b-f+1)/3 and store the integer ' portion of the result in G. g = (b - f + 1) \ 3 ' Step 6: Divide (19a+b-d-g+15)/30 and store the ' remainder of the result in H. h = (19 * a + b - d - g + 15) Mod 30 ' Step 7: Divide C by 4. Store the integer result ' in I and the remainder in K. i = c \ 4 k = c Mod 4 ' Step 8: Divide (32+2e+2i-h-k) by 7. Store the ' remainder of the result in L. l = (32 + 2 * e + 2 * i - h - k) Mod 7 ' Step 9: Divide (a + 11h + 22l) by 451 and ' store the integer portion of the result in M. m = (a + 11 * h + 22 * l) \ 451 ' Step 10: Divide (h + l - 7m + 114) by 31. Store ' the integer portion of the result in N and the ' remainder in P. n = (h + l - 7 * m + 114) \ 31 p = (h + l - 7 * m + 114) Mod 31 ' At this point p+1 is the day on which Easter falls. ' n is 3 for March or 4 for April. Return DateSerial(Year, n, p + 1) End If End Function Merk: Det kan være du vil fjerne noen linjer i scriptet eller i det minste kommentere dem ut. Det er f.eks. ikke sikkert at du har fri uka etter påske: dateList.Add(New Date(2017, 4, 18)) ... og hvis ikke, kan du fjerne denne linjen. Det er heller ikke sikkert du har fri romjulen, så da bør du fjerne dette: If _date.Month = 12 Then If _date.Day >= 27 AndAlso _date.Day <= 31 Then Return True End If End If Du kan også selvfølgelig legge til dine egne unntak for arbeidsdager hvis du ønsker det. Har du fri hver fredag, så kan du jo bare legge det til. Jeg har nå byttet ut alle sjekker på om det er helg eller ikke til å sjekke om "Fridag" er på eller ikke. Når jeg tenker meg om tror jeg at jeg skal sette "On" til å være "Fridag" og "Off" til å være "Arbeidsdag". Som sagt; så gjort: ... som da blir slik: EDIT: 17. mai var satt til å være 17.01 istedenfor 17.05. Korrigert. Versjon med to devicer, en for dagen i dag og en for dagen i morgen:

Ja, jeg har alltid synes at Z-way er et upraktisk navn. Forskjellen melleom "-ve" og "-y" er lett å bomme på for den uinnvidde.

Jøss. Jeg vet de var plaget med en del spambots... Men så har ikke USA våknet heller.

Det er vel heller Tellstick som burde bytte navn på boksen sin.

... eller FIAAO: Failure Is Always An Option.

Kan være jeg er forutinntatt, men en periode brukte jeg WeatherXML på HS2 og fikk lyst til å oppgradere...

LOL!

.... og la oss erstatte operasjoner med noen... la oss kalle det.. blokker... med fargekoder for ulike operasjoner... og så prøver vi å tvinge store operasjoner inn i det... la oss kalle det .... Hmmm.. jeg vet! BLOCKY! OK, glem det. *grøss*

... eller hvis du kaster noen kroner på det får du yr.no-plugin mer eller mindre ferdig oppsatt. Personlig synes jeg plugin'en er for dyr, men jeg orker ikke gjøre alt heller lenger...

Ja. Men rapporter bugs til Bert. Gjerne her: https://forums.homeseer.com/forumdisplay.php?f=899

Nå er det mulig jeg blir påvirket av barnehagebarna, men det var ikke langt fra min første tanke også... "Urettferdig!"

Jeg har 5-6 slike virtuelle termostater.... ?

Den burde være grei den. Nexa sine Z-wave enheter har litt problemer med dimming, men av/på burde vel være grei skuring.

MyHS og dynamic dns-tjenesten er to forskjellige tjenester. Bare fjern alt som står under "HomeSeer DNS Access Settings" under Tools -> Setup -> Network.

Ja, den kan brukes. Det er ikke bryteren som dimensjonerer sikringen, den trekker ikke strøm i seg selv. Men igjen, hva med FGS-212? Denne takler 12.5A, og Qubino sin takler 10A.

Var det noe i veien med FGS-212 som takler 10A? Aeon Labs har Z078 som tåler 40A hvis det blir for lite...

Yay! ?

Åja, stikkontakt! Jeg tenkte feil! ?

Nei, hvis du bruker Scenes så er du nok litt mer låst, ja. Heating panel burde, så vidt jeg kan se, fungere. Men det kan jo være Netatmo'en som trøbler, Fibaro har vel ikke offisiell støtte for den enda?

Bare husk at da trenger du et to-polt brudd et sted også.. EDIT: Nei, til stikkontakt må du selvfølgelig ikke det.

Klart det! Jeg tror imidlertid at tilgjengelighet og pris er en stor del av det. Klar du kan bestille slike deler over disk, men da til en høy kostnad. Eller du kan rive opp et gammelt bilsete hvis du har, men det går ut over tilgjengeligheten. I tillegg skal de plasseres, og helst ikke merkes. Den vi har igjen nå er på kontorstolen og vi har ei pute over den. Da vi hadde på tre-stolene på kjøkkenet, brukte vi samme patent der. I vår sofa er det ikke engang mulig å ta av trekket, så eventuelle tillegg må skje under sofaen.

Hva har du prøvd til nå? Høres ut som om du leter etter "Scenes"...

Så koster den jo nærmere $100 også, og med norsk moms og delepris-tillegg så den enda dyrere.

Ok, da tar du gjerne utfordringen med å finne en "person i setet"-sensor? Litt liten range på den, 10 kg er jo ikke mye. Jeg har nettopp bestilt et par last-sensorer på eBay opp til 100 kg og 150 kg, så får vi se. Kunne være praktisk å ha under sofaen.