Vinnerliste

Scriptet er basert på @Moskus sitt "Fridager.vb": Tar derfor bare "kortversjonen" av oppsettet her: * Lag en virtuell device "Flaggdag" med verdiene "Ja" (On) og "Nei" (Off) * Noter deg devID * Lag "Flaggdag.vb": Sub Main(ByVal deviceReference As String) 'Moskus 2017 Dim devRef As Integer = Integer.Parse(deviceReference.ToString) Dim isCurrentDateFlagday As Boolean = IsFlagday(Now) If isCurrentDateFlagday Then hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._On)) Else hs.CAPIControlHandler(hs.CAPIGetSingleControlByUse(devRef, HomeSeerAPI.ePairControlUse._Off)) End If End Sub Public Function IsFlagday(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 21. Januar (Prinsesse Ingrid Alexandra) If _date = New Date(_date.Year, 1, 21) Then Return True 'Sjekker om datoen er 6. februar (samefolkets dag) If _date = New Date(_date.Year, 2, 6) Then Return True 'Sjekker om datoen er 21. februar (Kong Haralds bursdag) If _date = New Date(_date.Year, 2, 21) Then Return True 'Sjekker om datoen er 1. påskedag If _date = easterDate 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 8. mai (frigjøringsdag) If _date = New Date(_date.Year, 5, 8) 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 7. juni (unionsoppløsning) If _date = New Date(_date.Year, 6, 7) Then Return True 'Sjekker om datoen er 1. pinsedag (50. påskedag) If _date = easterDate.AddDays(49) Then Return True 'Sjekker om datoen er 4. juli (Dronning Sonja) If _date = New Date(_date.Year, 7, 4) Then Return True 'Sjekker om datoen er 20. juli (Kronprins Haakon) If _date = New Date(_date.Year, 7, 20) Then Return True 'Sjekker om datoen er 29. juli (Olsok) If _date = New Date(_date.Year, 7, 29) Then Return True 'Sjekker om datoen er 19. august (Mette-Marit) If _date = New Date(_date.Year, 8, 19) Then Return True 'Sjekker om datoen er 1. juledag (25. desember) If _date = New Date(_date.Year, 12, 25) 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 * Lag disse eventene: (parameters er devID til devicen du laget) Påminnelse om å flagge: (jeg bruker et script som sender meg pushvarsel via Pushover, hvis jeg er hjemme, men du kan bruke hva du vil som "action") Påminnelse om å ta ned: Her er "cannot re-run for" en fordel, for man skal ta ned flagget enten kl 2100 eller ved solnedgang. Ønsker ikke påminnelse på begge de tidspunktene.

Da var dagen kommet og lisens til HS3 er kjøpt med 50% rabatt. Varer frem til 7. mai https://www.homeseer.com/support/newsletters/current-promo.htm

Kjøpt og betalt [emoji3] Ventar kun på at posten skal levere litt deler, så er eg i gang! Sent fra min SM-G930F via Tapatalk

Du har ikke fått vekket den skikkelig, se orange tekst nederst. Jeg har 1 som jeg har satt opp med direkte assosiasjoner uten problem. Da fungerer dimming fint. Du må sette det opp under "event". Eksempel fra den andre jeg har, satt opp med scene controll:

EDIT: Du fjerner delayed action på feil device. Det er forskjell på «Multilevel» (root-device) og «multilevel 1» (child device).

eller så enkelt som ikea sin hub og @Moskus sin plugin trådfriseer

IKEA skriver 10 meter, men det er mesh, så jeg har ikke opplevd problemer.

Bygget en lodding-tings holder, for å enkelt flytte ting fra arbeidsbord Neida, kjøpte den fra banggood og ba kona montere den (hun liker sånne prosjekter). https://www.banggood.com/DIY-Self-assemble-RC-Model-Tools-Case-Screwdriver-Box-Gripper-Package-Plier-Stand-Retro-Style-p-1257252.html?cur_warehouse=CN Ser ganske greit ut synes jeg, kutet med laser. Skal bestille flere stk til når de kommer på lager igjen.

Jeg ville lastet ned plugin SDJ-VStat. Fiks ferdig virtuell termostat med mange muligheter! Ellers er svaret på muligheten for å sjekke om en deviceverdi er mindre enn en annen deviceverdi, plugin EasyTrigger.

Jeg har kjørt dobbel cat 6 til alle rom i tillegg til cat6 for trådfast nett fra teknisk rom. Har også tomrør opp på loft og ned til kjeller. Da kan jeg trekke når jeg trenger det. Ligger også tomrør i veggene for høyttalere i vegger og tak i stua. Kommer nok ikke til å bruke dem med det første, men da har man muligheten. Som nevnt over her ville jeg langt opp til solskjerming til alle vinduer som potensielt kan få styrt solskjerming i fremtiden. Har det på stua og angrer på at jeg ikke la opp til dette på soverommene også. - Kabling til video for ringeklokke kunne jeg tenkt meg. Sent from my iPhone using Tapatalk

Jeg har et ekstra skap inntil sikringsskapet. Der har jeg to kurser inn som fordeles på 8 dimmere til 8 lys soner og til teknisk utstyr i det ekstra skapet. Det er trukket rør fra de forskjellige lys sonene og frem til skapet. Hver sone har i tillegg en fysisk bryter på samme rørtilførsel. Slikt må planlegges på forhånd med rør, bryter og lysplassering. Alle lampetter i leiligheten har skjult kabling. Det er trukket data punkt midt på alle store veggflater. Enten henger det en TV der, eller så henger et bilde over boksen. Alle disse datapunktene er trukket til et strømpunkt, samt direkte til det tekniske skapet med to cat 6 kabler. Det er trukket egen kurs til utvendige tilkoplingsbokser ved alle vinduer for markiser. Hvis du er så heldig som meg, at du får muligheten til å lage en slik løsning, så gjør det, du vil ikke angre.