Vinnerliste

Ja, jeg har tenkt tanken. Har lurt på å skrive et par "komme i gang med scripting" poster, så det blir nok en del av det.

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

Det er ikke så mye generell informasjon om KNX på forumet, jeg prøver meg derfor på en guide. Forhåpentligvis blir den bedre etterhvert om folk stiller spørsmål, så den kan klargjøres litt. Software/system. KNX er et åpent system som er støttet av mange av de aller største produsentene av elektrisk utstyr. (ABB, Berker, Gira, Hager, Jung, MDT, Siemens, Somfy osv). Det vil si at det er en enorm mengde utstyr tilgjengelig, og det er lett å koble med andre systemer da det er hardware-interfaces mot det meste, dette gjør systemet robust, og selv om all støtte skulle stoppe vil man antakelig ha mulighet til å styre utstyret i «all framtid». At systemet er åpent er også et argument i seg selv for noen. En av særegenhetene med systemet er at for å konfigurere utstyret (altså forskjellige innstillinger i hardwaren, man kan fortsatt kommunisere med hardwaren med den softwaren man vil) så er det kun en type software som brukes ETS. Dette har sine fordeler og ulemper. Fordelene er at alt utstyr sertifiseres, er det KNX så er det KNX, alt utstyr virker med hverandre, og alle KNX-gateways kommuniserer med alt utstyr som finnes. I tillegg kan man lett hente ned konfigurasjonsfilen for utstyr uavhengig av om faktisk har utstyret, det betyr at man kan sette opp alt på forhånd, men ikke minst at man kan få et svært godt inntrykk av hva enheten kan gjøre ned til minste detalj om man er usikker på om den oppfyller dine behov. Ulempen er at ETS i utgangspunktet ikke er gratis. Med en pris på 200 Euro (20 enheter) eller 1000 euro (evig enheter). Manges første tanke er at man må ut med nesten 10 000 bare for å sette i gang, men man kan komme seg rundt dette på flere måter. Man kan ta et online-kurs som gjør at man får ETS lite (20 enheter) for ca 50 euro. Det er også en gratisversjon med maks 5 enheter. Enhetsbegrensingen er dog per prosjekt, det er ingenting i veien for å benytte flere prosjekt, da programmet kun brukes til konfigurasjon. Det er litt tungvint med 5 enheter, men med 20 så klarer man seg med 2-3 prosjekt. Personlig har jeg ett for alle sentrale enheter, en for alle brytere, og en for alle sensorer. Det har også kommet et nytt produkt «ETS inside» som visstnok er enklere å bruke https://www.knx.org/knx-en/Landing-Pages/ETS-Inside/what-is-ets-inside/compare.php. Det koster 160 euro. Bilde fra configurasjonen av en enkel bryter, der man kan bestemme hva slags telegrams om sendes (switch, dim, shutter), og hva som skjer når man klikker nederst og øverst på knappen, når LED-lampen i bryteren skal slås på, og også om den sender en puls eller går av og på når man trykker). Fysisk KNX er i utgangspunktet et trådbasert system. Det vil si at alt utstyr trenger 2 ledere trukket fram. Protokollen er ikke spesielt rask (9600 b/s) , oppsiden av dette er at den er ekstremt robust og har lang rekkevidde (1000m uten ytterligere tiltak). Man kan bruke vanlige TP-kabler, men det finnes også dedikerte bus-kabler, disse har som regel 4 ledere, så det er to i reserve. Alt utstyr har en wago-klemme men bare kobler inn (den svarte og røde klossen på bildet). De har 4 tilkoblinghull per farge, det er mao praktisk lett å seriekoble utstyret. Over buskablene så går det strøm med 30V, og den store majoriteten av utstyr får strømmen til drift via disse. For å starte med systemet trenger man dermed 1. En gateway, dvs en enhet som kobler seg til bussen, og har ethernet, så man kan kommunisere med bussen over nett. 2. En strømforsyning. Det er langt mer vanlig å ha en såklart stjernetopolog med KNX, det vil si at man for eksempel har dimmeren i sikringsskapet, og trekker ledninger ut til lamper. Dette gjør at man har flere ledninger, men det er mye enklere å endre på systemet. Det finnes også enheter som ikke er lagd for denne type topologi. Det er også en trådløs variant, KNX-RF, men jeg har ikke noe kjennskap til det systemet. Logisk Hver enhet har en adresse, dette likner ganske mye på en IP-adresse. De er på formen 15.15.255, mer en nok for alle enheter for et vanlig hus (ca 65000 kombinasjoner). Denne adressen brukes kun av ETS når man konfigurer selve hardwaren. Det er dette kun ETS kan gjøre. I det «daglige liv» så bruker man såkalte gruppeadresser. Gruppeadressene er på formen 31/7/255. En gruppeadresse er i praksis en funksjon, og er uavhengig av hardwaren. Et stykk hardware kan ha en menge funksjoner. Et eksempel kan være at en bryter har funksjonen «switch» tilknyttet bryteren. Dvs når du trykker så sendes et telegram med for eksempel adressen 1/1/1 og innholdet «on». Alle adresser er enten et input eller output og de er en del forskjellige typer telegram. I eksemplet mitt er det et enkelt «switch»-telegram, som er 1 bit, på eller av. Men man har også egne for dimming (med prosent nivå), persienner, tidspunkt, temperatur, generelle nummer osv. En adresse kan brukes av mange funksjoner om man ønsker. I eksemplet mitt så kan man for eksempel sette gruppe-adressen 1/1/1 på INPUT-funksjonen på alle husets rele, og da vil alle rele slås på om man trykker på knappen. Man kan mao kjøre systemet totalt desentralisert om man ønsker. En funksjon kan også tilknyttes så mange adresser man ønsker, så relèene kan slås på og av mange forskjellige brytere om man ønsker det. Det er disse gruppeadressene softwaren du bruker til styring (for eksempel Homeseer) kan sende og motta. I bildene ser man gruppe-adresser tilegnet funksjoner i ETS, og et utsnitt av pakkene som går på bussen i løpet av noen sekunder i systemet mitt. Alle pakker bekreftes slik at ved pakketap så sendes det på nytt. Kostand KNX har fått en del kritikk for å være dyrt, men personlig synes jeg det er en litt urettferdig kritikk. Det vil si, i hvert fall sammenliknet med konkurransen. Kablet medfører kostander, og er best egnet for oppussing, og vanskelig å prise, men selve utstyret er ikke så ulikt priset gode alternativer. Det er dyrere enn nexa o.l, men ikke så mye dyrere enn Z-wave. Når jeg kjøpte (som riktignok er noen år siden, så det er sikkert 20% dyrere nå pga dårlig krone), betalte jeg eksempelvis 620 kroner per dimmekanal og 250 kroner per relekanal. Det er ikke noe billig system, men jeg vil driste meg til å påstå at kostanden ikke er så ille som noen vil ha det til. Hovedulempen kostnadsmessig er at du må ha en gateway, strømforsyning og ETS, så oppstartskostnaden er definitivt tilstede, det er vanskelig å komme unna med nevneverdig mindre enn 2000 kroner for dette.

Det kan de - men ikke helt fritt - stedene hvor du kan kutte er tydelig merket

Jepp.

Takk for påminnelsen. Har tenkt å kjøpe en i reserve i over ett år nå.

Gir meg ikke helt med Philips sine produkter.. Dagens kjøp: Philips HUE Bevegelsessensor x 3 Philips HUE Lightsrip Plus (2m) Philips HUE Lightsrip Plus (1m) Philips HUE Led E27 x 3 Philips HUE HUEAMBE27 x 2

Takk for svar. Fikk en del svar på facebook og det er visst riktig sånn det er nå. Det at det står at den trigger er visst riktig. Variablen endrer seg ikke, det at det står den trigger viser bare at den sjekker siden W er endret. Så da er det bare litt fintuning på hvordan forbruket endrer seg som trengs for at det skal funke helt. Får kjøre et par vasker siden det er litt forskjell og den trekker strøm etter vask pga antikrøll osv. Men da er det iallfall ikke noe galt med pluggen

Da ankom "DALI Master" i posten. 18 stk Gyro DimToWarm med DALI driver kom forrige uke... elektriker kommer på torsdag og ikke minst ungen har lagt seg nå.. så da blir det å fyre opp Visual Studio og få laget noe styring på dette PS: er det noen som er interresert i å kjøpe ca 2 år gamle downlights SG Gyro hvite, så har jeg 18 til salgs til 200kr stykke

Klart det. Det er allerede 20 stykker som har tatt i bruk Telldus Live! appen min til Z-Way Hadde tenkt å skrive en Verisure også til Z-Way, men nå er jeg på tur over i openHAB.

Gjelder huset som skal automatiseres? I så fall kjøpte jeg et hus... Så da er det vel bare å begynne å planlegge...

Det er bare å sette % i Command-feltet.