Lysstyring i trapp

[JohnMartin]

Har funnet ut at vi skal ha lys under trinnene i trappa.

 

Har sett oss ut noe slikt: https://www.kreativbelysning.no/butikk/trappebelysning/automatisk-trappebelysning

 

Spørsmålet er jo bare om noe alla dette er mulig å ordne med Homeseer?
Skal vi gå for den ferdige løsningen, så koster jo den kontrolleren litt, pluss at jeg må prøve å få den koblet opp mot HS.

Enkleste hadde jo vært om HS hadde kontrollert dette alene fra starten av.

 

Alt er vel mulig, men er bare litt redd for at det da må lages script eller noe sånt?

Og der kommer jeg til kort. ?

[Moskus]

1 time siden, JohnMartin skrev:

Alt er vel mulig, men er bare litt redd for at det da må lages script eller noe sånt?

Og der kommer jeg til kort. 

Du må ikke bruke scripting, du kan lage et event. Litt arbeid å sette det opp, men langt fra vanskelig.

IF bevegelse
THEN turn on Trinn 1
THEN turn on Trinn 2 after a delay of 1 second
THEN turn on Trinn 3 after a delay of 2 seconds
THEN turn on Trinn 4 after a delay of 3 seconds
[...]
THEN turn off Trinn 1 after a delay of 20 seconds
THEN turn off Trinn 2 after a delay of 21 seconds
THEN turn off Trinn 2 after a delay of 22 seconds
[...]

 

Den største utfordringen er muligens hvordan du skal styre 15-16 trappetrinn separat uten å gå konk. F.eks. kan man utmerket bruke 4 stk Fibaro RGBW-modeller, men det vil jo koste en del (600 kr x 4 = 2400 kr). Arduino/NodeMCU vil kunne være mer kostnadseffektive metoder.

[JohnMartin]

Akkurat. Et slik event skal vel jeg også klare å sette opp [emoji56]

Er vel kanskje prisen for hele oppsettet som blir det største spørsmålet, ja.
Arduino/NodeMCU blir vel litt for avansert for meg pr nå [emoji19]

Hvor mange trinn kan man evt styre med 1 stk fibaro RGBW?
Overtar huset på fredag, så får telle trinn da.. [emoji14]

Sent fra min F8331 via Tapatalk

[Lazarus]

4 timer siden, JohnMartin skrev:

Akkurat. Et slik event skal vel jeg også klare å sette opp

Er vel kanskje prisen for hele oppsettet som blir det største spørsmålet, ja.
Arduino/NodeMCU blir vel litt for avansert for meg pr nå

Hvor mange trinn kan man evt styre med 1 stk fibaro RGBW?
Overtar huset på fredag, så får telle trinn da..

Sent fra min F8331 via Tapatalk
 

Jeg ville gått for adresserbare leds og nodeMCU. Men som du nevner så er det fort litt avansert å sette opp/kode.

[JohnMartin]

2 hours ago, Lazarus said:

Jeg ville gått for adresserbare leds og nodeMCU. Men som du nevner så er det fort litt avansert å sette opp/kode.

Ja, du mistet meg på det 5. ordet du skrev ?

[Moskus]

7 timer siden, JohnMartin skrev:

Hvor mange trinn kan man evt styre med 1 stk fibaro RGBW?

Den har 4 kontrollerbare svakstrøms-utganger.  

[Hr Kotelett]

 

https://www.openhardware.io/view/366/Automatic-stairs-lighting-arduino-shield

 

Og med arduino plugin til HS3 kan vel den komme inn der (?)

[Moskus]

10 timer siden, Hr Kotelett skrev:

Og med arduino plugin til HS3 kan vel den komme inn der (?)

Ja, det er nok mulig. Men det er mulig du må gjøre det via APIen og dermed skrive litt om. Men umulig burde det ikke være.  

[JohnMartin]

10 hours ago, Hr Kotelett said:

 

https://www.openhardware.io/view/366/Automatic-stairs-lighting-arduino-shield

 

Og med arduino plugin til HS3 kan vel den komme inn der (?)

Denne så jo ikke dum ut.

Kommer jo ut vesentlig billigere enn alternativene så langt.
Må bare ta en vurdering på om det er noe jeg tør å begi meg ut på ?

Kan jo kanskje være et greit prøve og feile prosjekt for å lære seg litt mer.

[JohnMartin]

30 minutes ago, Moskus said:

Ja, det er nok mulig. Men det er mulig du må gjøre det via APIen og dermed skrive litt om. Men umulig burde det ikke være.  

Da ble det nok litt for avansert for meg pr nå ;P

 

Får se hvor mye penger som er igjen etter å ha restaurert huset ?
Enkleste er vel å betale dyre dommer for den enheten som styrer uavhengig av HS ?

[JohnMartin]

Da har vi omsider fått på plass lys i trappa.

Det ble i denne omgangen med 4stk Fibaro RGBW.

Prøvde først med et event, men 1 sekund mellom hvert trinn ble for sakte, så har fått hjelp med et script istedenfor.

Sub Main(ByVal Parms as String)
    hs.CAPIControlHandler(hs.CAPIGetSingleControl(1870, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1869, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1868, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1867, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1884, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1883, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1882, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1881, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1898, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1897, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1896, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1895, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1912, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1911, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500)
	hs.CAPIControlHandler(hs.CAPIGetSingleControl(1910, false, "25", false, true)) 
    System.Threading.Thread.Sleep(500) 
End Sub

Problemet er bare hvordan jeg skal styre dette effektivt.

 

Ut ifra hva jeg har skjønt, så er det ikke mulig å ha delay på en script event action. Så kan da ikke bruke remove delayed device action?

 

Trappen er jo flittig i bruk, så ønsker jo ikke at den skal slå seg av når noen er midt i. Eller at den skal slå seg av nedenfra og opp, når noen går andre veien.. ?

Har fundert en del på dette, men jeg klarer ikke å se en "enkel" løsning.

Noen som har forslag?

[Moskus]

Jeg hadde laget en liste (eller en array) over alle device-ref'ene dine og så loopet gjennom denne. 

Da kan du også bygge inn en "avbryt" rutine for hver loop. 

[JohnMartin]

18 minutes ago, Moskus said:

Jeg hadde laget en liste (eller en array) over alle device-ref'ene dine og så loopet gjennom denne. 

Da kan du også bygge inn en "avbryt" rutine for hver loop. 

 

?

How?

Kan du ta det på norsk også? ?

 

 

Endret 20. november 2019 av JohnMartin

[Moskus]

Wow! Jeg hadde skrevet funksjonen tidligere! ?

 

    Sub Main(ByVal parms As String)
        Dim devices() As String = parms.ToString.Split(",")


        'Skrur alle på med et delay mellom hvert trinn
        For Each d As String In devices
            'Henter device ref
            Dim dvRef As Integer = d

            'Skrur den på
            TurnOn(d)

            'Venter et et kvart sekund mellom hvert trinn
            System.Threading.Thread.Sleep(250)
        Next

        'Venter 5 sekunder
        System.Threading.Thread.Sleep(5000)


        'Skrur alle av med et delay mellom hvert trinn
        For Each d As String In devices
            'Henter device ref
            Dim dvRef As Integer = d

            'Skrur den av
            TurnOff(d)

            'Venter et et kvart sekund mellom hvert trinn
            System.Threading.Thread.Sleep(250)
        Next


    End Sub

    Sub TurnOff(ByVal input As Object)
        Dim control As String = input
        Dim devicevalue As Double = hs.DeviceValueEx(control)

        Dim capi As HomeSeerAPI.CAPIControl = hs.CAPIGetSingleControl(input, false, "25", false, true))
        If capi IsNot Nothing Then
            hs.CAPIControlHandler(capi)
        Else
            hs.WriteLog("Trappetrinn Off", "Could not execute CAPIcontrol, it's nothing! (Input device value: " & devicevalue & ")")
        End If
    End Sub

    Sub TurnOn(ByVal input As Object)
        Dim control As String = input
        Dim devicevalue As Double = hs.DeviceValueEx(control)

        Dim capi As HomeSeerAPI.CAPIControl = hs.CAPIGetSingleControl(input, True, "on", False, False)
        If capi IsNot Nothing Then
            hs.CAPIControlHandler(capi)
        Else
            hs.WriteLog("Trappetrinn On", "Could not execute CAPIcontrol, it's nothing! (Input device value: " & devicevalue & ")")
        End If
    End Sub

 

 

Kalles med parameter (i ditt tilfelle) :  

1870,1869,1868,1867,1884,1883,1882,1881,1898,1897,1896,1895,1912,1911,1910

 

[JohnMartin]

5 hours ago, Moskus said:

Wow! Jeg hadde skrevet funksjonen tidligere! ?

 

 

 

Kalles med parameter (i ditt tilfelle) :  

1870,1869,1868,1867,1884,1883,1882,1881,1898,1897,1896,1895,1912,1911,1910

 

 

Takk, men får den ikke til å virke.

nov-21 14:41:26

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\LysTrappMoskus.vb: 'capi' is a type and cannot be used as an expression.

nov-21 14:41:26

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\LysTrappMoskus.vb: 'capi' is a type and cannot be used as an expression.

nov-21 14:41:26

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\LysTrappMoskus.vb: End of statement expected.

nov-21 14:41:26

Error

Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\LysTrappMoskus.vb: Namespace or type specified in the Imports 'System.Core' doesn't contain any public member or cannot be found. Make sure the namespace or the type is defined and contains at least one public member. Make sure the imported element name doesn't use any aliases.

 

Nå har ikke jeg så mye kontroll på scripting, men leser såpass at denne slår trinnene på og så av automatisk.  

Men hva skjer hvis 7 personer går etter hverandre opp trappa. Vil dette scriptet 'resette' timer, slik at den teller ned nye 5 sekund når bevegelsesdetektoren trigges? ?

[Moskus]

OK, får gi variablene nye navn.

Men, nei. Foreløpig ingen retrigger-brems inne, men med det scriptet er det iallfall mulig.

[JohnMartin]

14 hours ago, Moskus said:

OK, får gi variablene nye navn.

Men, nei. Foreløpig ingen retrigger-brems inne, men med det scriptet er det iallfall mulig.

 

Kan jeg spørre hvordan? ?

[Moskus]

34 minutter siden, JohnMartin skrev:

Kan jeg spørre hvordan? ?

Ja, selvfølgelig.

Man legger bare inn en sjekk i hver for-løkke. ?

 

Hvordan DET imidlertid gjøres, skal vi tenke lit på.  

[Bostad]

Hei. Blander meg litt inn her, sitter med samme tanker om lys under trinna i trapp.

kva type led strip bruker dere og handler fra?

 

Har open trapp og stusser litt i korleis eg skal klare å skjule ledninger best mulig?

[JohnMartin]

7 minutes ago, Bostad said:

Hei. Blander meg litt inn her, sitter med samme tanker om lys under trinna i trapp.

kva type led strip bruker dere og handler fra?

 

Har open trapp og stusser litt i korleis eg skal klare å skjule ledninger best mulig?

 

Led strips er kjøpt på AliExpress til en billig penge. Strømforsyning er kjøpt på kjell.com.

Kjøpte også ledning på AliExpress: https://www.aliexpress.com/item/32846482288.html?spm=a2g0s.9042311.0.0.3da04c4drF7Vo8

Enklere å skjule ledningene når man har 2 leder ledning i passe størrelse.

Kunne ikke finne noe i farten i Norge(finnes sikkert), de jeg fant var ganske store og litt overdimensjonert til 1-1,5 meters ledstrips.

 

Spørs jo hvor langt du er villig til å gå  Beste er vel om du freser spor til lys og ledning sånn at du kan få ledningene samlet til å gå ned/opp langs vangene. Til en mer skjult plass der du kan koble alt sammen. Spørs litt hvordan trappe løsningen ser ut.