Vinnerliste

Har nå ferdig en prototype av en Plugin modul for Homeseer Hs3 til styring av disse wifi viftene. Denne modulen oppretter forskjellige nødvendige devicer knyttet til vifta(root child type) og sjekker jevnlig status av disse. På grunnlag av disse data og data fra Netatmo modulene kan jeg nå styre varmegjenvinning og ventilasjon i huset. :-) Modulen har jeg kalt for ECOFan. Men må teste den ei stund før jeg eventuelt legger den ut for testing av andre. Benytter nå denne plugin'en for å sende kommando til viftene: https://forums.homeseer.com/showthread.php?t=169753 Men planlegger å legge dette inn i min plugin etterhvert. En stor takk til Moskus som har sørget for å legge ut en mal for generering av HS3 pluginer, det er denne jeg har jobba med. Håper han har klar en C# versjon i fremtiden. :-)

Jeg hadde ikke hatt den koblet til strøm engang.

Har fulgt med Fibaro wallplug på varmtvannstanken en periode nå. Kanskje 98% av gangene jeg har kontrollert den, har det ikke vært noe varmegang etter flere timers belastning. Det har dog hendt at plugg/kontakt/støpsel er blitt varme, og er det noe jeg ikke liker så er det varmegang i det elektriske. Har derfor fulgt rådet til Moskus og montert en Aeotec Heavy Duty Smart Switch Gen 5 (ZW078) bryter på varmtvannstanken. Anbefaler andre som bruker Fibaro Wall Plugg ved høy belastning, til å kontrollere disse jevnlig for varmegang.

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

Se neste post for oppdatert versjon.

Glad jeg fant dette forumet. Mye nyttig informasjon å finne her. Ellers vil jeg rose brukerne her for å bruke en god tone. Har opplevd en del besser wisser holdninger på andre forum. Det eksisterer ikke her så vidt jeg kan se. Her er folk hyggelige og forklarer istedenfor å rakke ned på en som søker saklig informasjon. Bra. Terningkast 6+

Veldig bra. Takker. Holder deg selvfølgelig ansvarlig;) Sent from my iPhone using Tapatalk

Takk, nå får jeg alle meldingene. Hos meg med Kaifa var det @xibriz som hadde løsningen

Problemet er at utrolig mye av dette ikke er testet og er derfor falskt "stemplet".

Jeg ville ikke brukt den til noe strømkrevende, men kanskje til en lampe på 50w som ikke brukes når man ikke er hjemme. Har kjøpt en PIR fra Neo Coolcam, og den fungerer, men var ikke rett frem å legge til i Openhab. Denne fra Telldus koster 299, og er av og til på tilbud til 250: https://www.prisjakt.no/product.php?p=3424593

Haha! Bra historie, men feil konklusjon! "This, kids, is why all IoT-devices should be password protected", skulle det ha stått!

Dette er sikkert også en begrensning jeg ikke tror vises på din melding (meldingen ville bli kuttet kort). Mitt problem relaterte seg til størrelsen på StaticJsonBuffer som gjorde at ikke alle elementene i listen kom med i json. I forhold til problemet her. Se i AmsToMqttBridge.ino linje 223. For Kamstrup brukes Static Json buffer med 500 tegn som maks. I Kaifka er det byttet til "DynamicJsonBuffer" - sikkert fordi deler av meldingen forsvant. Bytt til DynamicJsonBuffer eller øk bufferen. Bufferen inneholder både json og objektene som skal til for å holde strukturen til json, så den trenger å være større enn meldingen.

Dere kan prøve må endre `MQTT_MAX_PACKET_SIZE` til f.eks. 512 i PubSubClient.h Ref. punkt 2 i Limitations: https://github.com/knolleary/pubsubclient

"Masing"/oppmerksomhet i sosiale medier har av en eller annen grunn å ha litt mer tyngde enn noen geeker på et "lukket" forum som ikke mange "dødelige" noengang ser snurten av En liten "tweetstorm" om dette kan jo få fokuset deres for en liten tid kanskje?