Vinnerliste

I dag har jeg fått lekt litt med HabPanel for OpenHAB2 og fått laget noen widgets. Måtte legge inn en ekstra instans av tilstedeværelse widget for å øke WAF litt. ?

Da har jeg sendt til følgende i dag: @Shen har sagt han vil hente @Oliver @torrande og @Milankan Mangler jeg adresser på (Send PM) Og @Hr Kotelett tror jeg jeg har fått penger av men ingen adresse (Send PM)

Iphone er ikke det beste verktøyet til å redigere events med. senga er ikke det beste stedet å jobbe med HS3. :-) #lite søvn i natt

Å 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:

Nei, nå er jeg lost. Sync av klokka har ingen betydning, men hvis du stiller den (lokalt) så endres den i HStouch? Alt annet fungerer prikkfritt? WHAT?!? Klokka på PCen er rett hele tiden, sant? Hva hvis du stiller klokka med denne appen? Endres HStouch? Jeg har hatt litt forskjellig hikke med feil klokker før, men ikke med HStouch...

Overførte differansen nå, men trykket ett 5 tall for mye så det ble vel en halv øl i tips for tiden du har lagt i dette

Godt oppsummert. En ulempe med RFXCOM plugin er at den ikke følger Thermostat API til HS og dermed ikke direkte kan styres eller kommer opp i f.eks. ImperiHome (antar det gjelder HS Touch også). Thermostat APIen er dessverre dårlig dokumentert, men fant denne posten med foreløpig beste beskrivelsen om hvordan man kan få det til å fungere. Men det er såpass mye som må på plass at det burde ligget i et plugin vil jeg tro.

Hvordan ser minne/cpu bruken ut?

Hubben og plugin ja.

Jeg trodde klokka ble hentet lokalt fra klienten, iallfall gjorde den det før... Er klokka på klienten og server lik? Når klokka går seinere, tar det tid for annen status til å bli oppdatert? Hvilket OS har server? Hvilken antivirus har du? Har du lagt til unntak for "hs3.exe" og "hspi_hstouch.exe"? (Det burde du uansett)

Scriptet er relativt enkelt. Man kjører en rutine (med litt avanserte parametre), og scriptet genererer de devicene og eventet det trenger. Eventet trigges hvert 5. minutt eller på hver temperaturforandring (sistnevnte må du sette opp selv), og scriptet skrur av og på ovnen slik du ønsker. Men du må selv lage Eventene som styrer hvilken temperatur du ønsker deg. Sånt sett er man like langt... En plugin er litt mer avansert. Logikken for styring av enheter er den samme, men man må lage et UI for at det skal fungere, legge til actions og triggers, etc, og det hadde vært veldig, VELDIG interessant å få det til å identifisere seg som en hvilken som helst termostat (da må man jobbe litt mer med HomSeer sine termostat-API'er). Det er i det hele tatt litt jobb. Ikke nødvendigvis vanskelig, men det tar tid...

Dette kan være en grei måte å få opp motivasjonen. Mer "Romantisk" lys hvis man beveger seg mye, så kanskje man får belønning for strevet?

Hmmm... jeg har eldre klient enn deg, men mye nyere server...

Haha dotArmy! Avventer feedback på om du har en til overs @Fermate

Har satt opp 3 termostater, en fungerer feilfritt mens de to andre har tendens til å henge i "timer", dvs ikke slå på varmen selv om settpunkt tilsier dette. Så er definitivt noe bugs her.

Betalt Nå viser det seg at det har begynt ei jente som faktisk heter alexa i barnehagen til jenteungen. Kan bli interessant i neste barnebursdag Enten så har ikke foreldrene fulgt med på technyheter de siste årene eller så er det en av de mer gjennomtenkte pratical jokes jeg har sett på lenge.