Vinnerliste

Har laget interface til min Hörmann Supramatic garasjeportåpner. Brukte ett UAP1 adapter fra Hörmann for å få tilgang på alle signalene, Opp, Ned, Luftestilling, Lys på, Port oppe Port nede. Har koplet en NodeMcu til denne som knyttes til Homeseer via Arduino plugin. NodeMcu får power fra portåpner, så det er ikke behov for andre kabler enn mellom portåpner og UAP1. UAP1 leveres med en grei boks hvor jeg fikk plass til alt inni.

Kjøkken DOT hilser på de nyankomne Dere som vil hente på Lillestrøm kan gjøre det fram til kl 21:00 i kveld. (Send SMS til 91142883) Det blir sannsynligvis muligheter for det i morra også. Følg med her. Skal forsøke å få sendt ut noen i post i morra..

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

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.

Da har jeg fått oversikt over kostnadene og vi kan beregne eksakt pris. (Se fakturaer nederst) 40 Stk DOT fra Amazon = 17995 Frakt og moms fra Jetcarrier = 5335 Gir pris pr DOT = 584 kr Legg på frakt fra meg til deg på: 1 stk = 40 Kr 2 stk = 75 kr 3 Stk = ? Dere som vil hente på Lillestrøm på kveld eller i Fredensborgveien 24 (Oslo) på dagtid betaler jo ikke frakt VIPS penger til 91142883 og merk Vipsen med DITT NAVN HER PÅ FORUMET og hvor mange DOT du betaler for Dere som vil ha den sendt i post: Send meg en PM her på forumet med ønsket postadresse jeg skal sende til og hvor mange som skal sendes. Dere som vil hente: Send meg en PM her på forumet og avtal tid og sted. Jeg vil helst ikke ha kontanter. Pakkene er ankommet og jeg henter dem i kveld. Dere må gi meg litt tid for å få sendt alle sammen. Jeg sender ikke før pengene er betalt ellers går jeg bare i surr.

Fikk en "Auto Valve" fra Aliexpress. Den har litt ulik festeanordning sammenlignet med den fra Tronika, ellers fungerer den helt likt så den åpner og stenger uten problem. Så har du tid til å vente så er det halve prisen. Ligger på 70 USD, men fås ofte på 10% tilbud USD så da blir det litt over 500 NOK levert i postkassen da kinapakkene som oftest har lav verdi og ikke får tollgebyr og mva ?

Tester denne ... morsom .... HUE lampa endrer farge etter hvor mange skritt kona har tatt

haha... ja, det hjalp....

Skal nok være

Ja det er det jeg tror jeg også, men har ikke tuklet for mye oppi der. Sendte en mail til leverandøren for å sjekke, men ikke noe svar. får vell skru det i fra hverandre etterhvert

Det er bra at en av mine første OpenSource-kodesnutter kom til nytte Det er ikke alle som vet at det å beregne helligdager i Norge er enkel mattematikk

Hadde vært kult å hente ut ekstra fridager fra en Google-kalender? https://developers.google.com/google-apps/calendar/v3/reference/events/list Da er det bare å putte inn planleggingsdager i barnehagen, avspasseringsdager, osv!

1) Skriptet tar kun hensyn til lys fra solen. 2) Fullmåne under «bra» lysforhold gir typisk ikke mer enn 0,1 lux, og maksimalt kan man (ved ekvator) oppnå 0,26 lux (wikipedia).

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

@Moskus er over alt, og infiltrerer systemene våre!

Bare en liten oppsummering så langt DOT @xibriz vil ha minst 1 @tjwesterby vil ha 1 @olekenneth vil ha 2 @ralph vil ha 1 @Tore Andre Rosander vil kanskje ha en til @Movcon 2 sorte @Slator 2 @Tverfyll 1 sort @Llandari 1 sort Ras PI kabinett @xibriz 3 @Fermate 2 @Moskus 2 @Håvardgj 1 @Movcon 2

"There's alot of caching..."

Keypad widgeten funker den, om enn noe kronglete å sette opp. Det at rotini går fra gratis til i overkant dyrt er grunnen til at jeg ser på HabPanel. Begynner å få teken på å lage widgets, så kan være det dukker opp noen templates her etterhvert.

Henter data fra http://services.swpc.noaa.gov/text/wing-kp.txt med ett pythonscript. Lag 2 "custom sensor" i Domoticz og fyll inn IDX fra disse i scriptet, så legger du bare scriptet til i crontab. Jeg kjører det hvert kvarter siden varslene oppdateres hvert kvarter. 4 timers varselet er ofte litt unøyaktig så endte opp med begge varslene. Det er mulig forumets programmerere setter kaffen i halsen nå, men her er koden: # coding: utf-8 import urllib.request import requests domoticz = 'http://0.0.0.0:8080' #Domoticz http://IP:PORT idx1 = 'XX' #1 time varsel idx4 = 'XX' #4 timer varsel req = urllib.request.Request('http://services.swpc.noaa.gov/text/wing-kp.txt') with urllib.request.urlopen(req) as response: kp = response.readlines() data1 = [i for i in str(kp[-1]).strip().split(" ") if i != ''][-7] data4 = [i for i in str(kp[-1]).strip().split(" ") if i != ''][-2] print (data1, data4) def updateValue(idx4, data4): #4 timers varsel url = domoticz + '/json.htm?type=command&param=udevice&idx=' url += idx4 + '&nvalue=0&svalue=' + data4 session = requests.Session() response = session.get(url) print(response) def updateValue2(idx1, data1): #1 time varsel url = domoticz + '/json.htm?type=command&param=udevice&idx=' url += idx1 + '&nvalue=0&svalue=' + data1 session = requests.Session() response = session.get(url) print(response) updateValue(idx1, data1) updateValue2(idx4, data4) Prøvde egentlig å bare bruke requests til å hente data men fikk det ikke helt til så endte til slutt opp med urllib.