Vinnerliste

Da gikk jeg på en smell i dag. 4x Nest til meg selv. Takk for godt tips Får sysle med litt Nest-plugin inn i 2018.

Edit: Rettet ref. til fuktsensor. Ser at det er flere tråder som går på regulering av ventilasjonsvifter. Jeg kom over en OMRON frekvensregulator og har nå endelig fått på plass en løsning for å fuktstyre avtrekksvifta som trekker luft ut av bad og vaskerom. Vifta er en SystemAir/Villavent VV450 S som trekker ca 0,56A Denne hastighetsregulerer jeg med en Qubino 0-10 V dimmer som er koblet til en OMRON VS mini J7 frekvensregulator. Jeg fant ikke noe 12-24 V ut fra frekvensregulatoren, slik at Qubinoen er forsynt av en 12 VDC LED driver fra Biltema til 79,- kroner Som fuktsensor bruker jeg Philio PAT02-B som reagerer rimelig kjapt på endring i fuktnivå i rommene. Bruker så scener i Vera for å sette vifta til max når fuktighet stiger over 42% og regulerer ned til minimum når fuktnivået er under 40 % (Grenseverdiene blir sikkert justert etterhvert, men funker nå) Med en slik frekvensregulator så kan vifta reguleres helt ned til stans uten antydning til mekanisk støy som man får med en dimmer. 35% på Qubinoen gir ca 20 Hz ut på regulatoren og er en passelig grunnventilasjon fra våtrommene. Oppsettet mitt er helt støyfritt med unntak av luftstøy i ventilene med vifta på max. Deilig å slippe å huske på å skru opp vifta før en dusjer og skru den ned igjen etterpå! Frekvensregulator: http://www.ebay.co.uk/itm/Omron-VS-mini-J7-Frequency-converter-CIMR-J7AZB0P2-1PH-230V-0-25kW-/302194175444?hash=item465c2d2dd4:g:UgIAAOSwKtVWzs2q Qubino 0-10 V dimmer: https://www.tronika.no/no/lysstyring/975-dimmer-0-10v-zmnhvd1.html Philio Multisensor: https://www.tronika.no/no/zwave-sikkerhet/1004-multisensor-pat02-b.html LED driver: http://www.biltema.no/no/Bygg/Belysning-og-lamper/Tilbehor/LED-transformator-12-V-DC-2000038013/ Vifte: https://vvskomplett.no/villavent-standardvifte-vv450-s?gclid=Cj0KEQiAiMHEBRC034nx2ImB1J0BEiQA-r7ctsTtdWaq7YU3nCke4tT7nZuYOEcHtH7MA_DuwnKrnZYaAqTC8P8HAQ

Fikk de først 5 Echo Spot i hus i dag: Den har MiniJack lyd ut slik som DOT (men som SHOW mangler) Men den har eget Power (12V 1.25A) og kan ikke bruke USB power Her i skala med en DOT og en SHOW

Da har jeg hevet meg på smarthjembølgen jeg og. Kjører følgende oppsett: Sentral: Fibaro Home Center 2 Komponenter: 5x Fibaro røyk/varme-detektorer (v2) 6x Fibaro Motion sensor 2 2x Fibaro Dual Switch 1x Fibaro Single switch Danalock V3 POPP Outdoor Keypad Zipato LED-bulb Aeontec Z-wave Repeater 6 Aeontec Multisensor 6 2x Nexa wireless siren D-link WIFI DCL-5000-serie IP-kamera Tanken var/er og erstatte et tidligere alarmselskaps tjenester som ble både dyre og dårlige. Dog er det skjær i sjøen. Keypad funker ikke med dagens FW til HC2. Fungerte med gammel, men å nedgradere vil bli en massiv jobb med opp-skruing av kontakter for å legge til ting på nytt. Utgår med høye kneløft, venter heller på fix. Når det gjelder danalock v3, så anbefaler jeg alle å springe motsatt vei når de ser denne. All manuell bruk med nøkkel eller å låse den opp innenfra gjør at låsen blir forvirret og må kalibreres. Den fungerer akkurat når den føler for det, og kobler seg til/fra når den har lyst. Å dra hjemmefra uten nøkkelen er bare å glemme, da det sannsynligvis ikke går an å komme seg inn via app eller kodepanel når man kommer hjem. Denne blir nok bytta ut med en IDLOCK 150 når den lanseres. Tanken var å bruke popp keypad, hvor et trykk på ringeklokke-tasten låser døren, mens kode+* låser og aktiverer alarmsensorer, eller låser opp og deaktiverer alarmsensorer. Jeg bruker virtuell enhet med http-kommandoer for å aktivere webcam, som snur seg mot stuen og sender epost med bilder dersom alarmen utløses. Når alarm deaktiveres snur kamera seg mot vegg/tak, og virker da mindre "truende". Sirener brukes til alarm, samt ved brann utløses sirene i gang ved soverommene. Dette fordi seriekobling av fibaro sine batterienheter ser ut til å være umulig. En skikkelig dårlig patent i utgangspunktet, men man sover ikke over den sirenen uansett. Ellers får systemet mitt nye oppgaver hver uke. Jeg bruker sentralens utregning av sol opp/ved-gang til å slå på/av utelys, detektor i garasjen for belysning der. Belysning i hagen, med ned-dimming til rødt-lys på natt. Bevegelsessensorer brukes foreløpig bare til alarmfunksjon, men vil bli koblet mot switcher og dimmere for total automasjon av belysning. Dyrt er det, og verre blir det. Men gøyal hobby da

Jeg har laget ett script for Multiroom Audio. Jeg har basert det på 3 chromcast, to til radio, og en som er dedikert til å spille Spotify, Tidal eller annen streaming. Jeg har laget events som kobler opp inngang mot utgang, og som stopper, muter og justerer volum. Tilkobling til matrisa mi, som er en ClearOne PSR1212, er gjort ved hjelp av Drules IP plugin. Devicene er foreløpig laget manuelt, og det er kun enveis til matrisa. Dette er ting som sannsynligvis kommer i forbedringer av skriptet. Dette er mitt første nogenlunde fornuftige program i vb.net, så det er lov å komme med forslag til forbedring. Sikkert mange plasser dette kunne vært gjort smartere. Koden er vist under. Dim Inngangskorreksjon As Integer = 6 Dim Rooms() As String = {"Bad", "Kjøkken", "Forside", "Vaskerom", "Garasje", "Stue", "Soverom", "Kjellergang", "Forside"} Dim Kanaler() As String = {"NRK P1", "NRK P1+", "P4", "NRJ", "Radio Norge"} Dim Player As String = "Chromecast_kanal_" Dim NumberOfPlayers As Integer = 2 Dim Parameter1 As String Dim Room As String Dim Roomstatus As String Dim index As Integer Dim Utgang As Integer Public Sub Main(ByVal Parms As Object) Dim input() As String = SplitParameters(Parms) Room = Input(1) Parameter1 = input(0) ActionChoice(Parameter1, Room) End Sub Public Sub TouchMain(ByVal Parms As Object) Parameter1 = Parms(0).ToString Room = Parms(1).ToString ActionChoice(Parameter1, Room) End Sub 'Setter Action etter hva Parameter1 er Public Sub ActionChoice(ByVal Parameter1 As String, ByVal Room As String) Dim Utgang As Integer = Array.IndexOf(Rooms, Room) + 1 Select Case Parameter1 Case "VOL UP" hs.TriggerEvent("Volum Opp Utgang " & Utgang) Case "VOL DWN" hs.TriggerEvent("Volum ned Utgang " & Utgang) Case "Slå av Rom" hs.WriteLog("slå av rom", "Slå av Rom") Stop_Room(Room) Case "Mute" hs.TriggerEvent("Mute Utgang " & Utgang) Case "Media" hs.TriggerEvent("Koble ned Utgang " & Utgang) hs.TriggerEvent("Koble inngang 1 til utgang " & Utgang) Case "Lyd fra TV" hs.TriggerEvent("Koble ned Utgang " & Utgang) hs.TriggerEvent("Koble inngang 2 til utgang " & Utgang) Case Else SetPlayer(Parameter1) 'Sender verdier til Homeseer Sett_Utgang() SetHSValues() End Select End Sub 'Splitter Parms inn i de to parameterne som den skal være Public Function SplitParameters(ByVal Params As Object) As String() Dim SplitString As String SplitString = Params.ToString Dim Parameters As String() = SplitString.Split(New Char() {"|"c}) Return Parameters End Function 'Setter hvilken spille som skal spille Public Sub SetPlayer(ByVal Radiokanal As String) Dim Channelplay As Integer = ChannelPlaying(Parameter1) 'Sjekker hvilken spiller som har spilt lengst - Returnerer Setplayer til ActionChoice Dim Timers(NumberOfPlayers) As String Dim RadioChannel(NumberOfPlayers) As String Dim t, i, Max As Integer For t = 1 To NumberOfPlayers Timers(t) = hs.DeviceValueByName(Player & "timer_" & t) If Timers(t) = 0 Then index = t Exit For Else If Channelplay = 0 Then For i = 1 To UBound(Timers) If Timers(i) > Timers(Max) Then Max = i End If Next index = Max Disconnect_playing() Else index = Channelplay End If End If Next End Sub 'Setter hvilken utgang som skal brukes Public Sub Sett_Utgang() Dim Checkparameter As Integer = Array.IndexOf(Rooms, Parameter1) + 1 If Checkparameter = 0 Then Utgang = Array.IndexOf(Rooms, Room) + 1 Else If Roomstatus = "Off" Then Exit Sub 'index = Right(Roomstatus, 1) Utgang = Array.IndexOf(Rooms, Parameter1) + 1 End If End Sub 'skriver Verdier til HS3 Public Sub SetHSValues() Dim Playing As Integer = ChannelPlaying(Parameter1) Dim Inngang As Integer = index + Inngangskorreksjon Dim kanal As Integer kanal = Array.IndexOf(Kanaler, Parameter1) + 1 If Playing = False Then hs.SetDeviceValueByName(Player & index, kanal) End If hs.WriteLog("etst", "Koble Inngang " & Inngang & " til Utgang " & Utgang) hs.SetDeviceValueByName("Utgang " & Utgang & " - " & Room, index) hs.TriggerEvent("Koble ned Utgang " & Utgang) hs.TriggerEvent("Start Chromecast Timer " & index) hs.TriggerEvent("Koble Inngang " & Inngang & " til Utgang " & Utgang) End Sub 'Sjekker om kanalen spiller i noen av spilerne Public Function ChannelPlaying(ByVal Channel As String) As Integer Dim t As Integer For t = 1 To 2 Dim Channelstatus = hs.DeviceVSP_GetStatus(hs.GetDeviceRefByName(Player & t), hs.DeviceValueByName(Player & t), 1) If Channel = Channelstatus Then ChannelPlaying = t Exit For End If Next Return ChannelPlaying End Function 'Sjekker om noen av utgangene spiller den kanalen fra før Public Function SpotiPlaying() As Boolean Dim Roomstatus = hs.DeviceVSP_GetStatus(hs.GetDeviceRefByName("Utgang " & Utgang & " - " & Room), hs.DeviceValueByName("Utgang " & Utgang & " - " & Room), 1) Dim SpotiPlay As String = Right(Roomstatus, 1) For t = 1 To 9 If t = Utgang Then Continue For End If Dim SpotiPlaytestValue = hs.DeviceVSP_GetStatus(hs.GetDeviceRefByName("Utgang " & t & " - " & Rooms(t - 1)), hs.DeviceValueByName("Utgang " & t & " - " & Rooms(t - 1)), 1) If SpotiPlaytestValue <> "Off" Then Dim spotiplaytest As String = Right(SpotiPlaytestValue, 1) If SpotiPlay = spotiplaytest Then SpotiPlaying = True Exit For End If End If Next Return SpotiPlaying End Function 'Slå av Rom Public Sub Stop_Room(ByVal Room As String) Sett_Utgang() Dim Playing As Boolean = SpotiPlaying() Dim Roomstatus = hs.DeviceVSP_GetStatus(hs.GetDeviceRefByName("Utgang " & Utgang & " - " & Room), hs.DeviceValueByName("Utgang " & Utgang & " - " & Room), 1) If Playing = False Then hs.WriteLog("Roomstatus", Roomstatus) If Right(Roomstatus, 1) <= NumberOfPlayers Then hs.TriggerEvent("Stopp Chromecast Timer " & Right(Roomstatus, 1)) hs.SetDeviceValueByName(Player & Right(Roomstatus, 1), 0) hs.SetDeviceValueByName("ChromeCast status " & Right(Roomstatus, 1), 1) End If End If hs.TriggerEvent("Koble ned Utgang " & Utgang) hs.SetDeviceValueByName("Utgang " & Utgang & " - " & Room, 0) End Sub Public Sub Disconnect_playing() For t = 0 To 8 Dim Status = hs.DeviceVSP_GetStatus(hs.GetDeviceRefByName("Utgang " & t + 1 & " - " & Rooms(t)), hs.DeviceValueByName("Utgang " & t + 1 & " - " & Rooms(t)), 1) If Status <> "Off" Then If Right(Status, 1) = index Then hs.TriggerEvent("Koble ned Utgang " & t + 1) hs.SetDeviceValueByName("Utgang " & t + 1 & " - " & Rooms(t), 0) hs.WriteLog("Utgang", "Utgang " & t + 1 & " - " & Rooms(t)) End If End If Next End Sub

Svaret til Alexander dekker vel det meste. Poenget er at en vanlig dimmer er uegnet til å regulere hastigheten på en vekselstrømsvifte. Du vil fort oppdage at vifta begynner å bråke før du har fått regulert hastigheten så lavt som du ønsker. Med en frekvensregulator så kan du trinnløst regulere vifta fra nesten 0 RPM til 100 % uten at selve vifta begynner å bråke.

1 - 0-10V er en industristandard som brukes på analoge signaler. Jeg har ikke sett modul som støtter kjører ut 0-10V fra Fibaro, så qubino er nok løsningen. 2 - Frekvensmformeren er satt opp til å kjøre ut en frekvens i henhold til 0-10v signalet den mottar. normalt sett 0-50Hz, og da vil 0-100% i styringen din tilsvare 0-10V ut fra qubino, som vil tilsvare 0-50Hz ut fra frekvensomformer. 3 - det finnes massevis av frekvensomformere på markedet, alt fra bittesmå omformere på 0,25kW opp til omformere som er store som ett hus og flere tusen kW som brukes f.eks. til fremdrift på store båter, alle kan styres av det tidligere nevnte 0-10v signalet. så tilgjengelighet er ikke ett problem. Prisen er heller ikke så verst dersom man går for en enkel utgave. 4 - I frekvensomformeren velger man selv hvilken frekvens 0V og 10V skal tilsvare, alt i mellom de to punktene er en lineær "kurve" mellom de to punktene 5 - ingen forskjell enn en vanlig dimmer og automatisering av den..

Det er ikke fritt for bugs nei, og det virker som de siste FW oppdateringene har vært litt for store for de, at de har slitt med å teste nok før release.. Min kontroller har ruslet og gått som den skulle, men mange har hatt problemer.. Jeg har nå inntrykk av at alle systemene sliter med bugs fra tid til annen, og spesielt de som har åpnet for open source bidrag, og dermed får inn mye kode som ikke er testet skikkelig. LUA er jo et språk med lite compiler hjelp, gjør man noe feil kan man få hele kontrolleren til å klikke skikkelig. Helt enig i at en virtuell termostat godt kunne vært standardinventar, Vera har fokusert mer på kameraintegrasjon og energimonitorering som features.. Ser ikke ut som du kan legge inn flere nei, men det kan du sette opp med Scener og virtuelle brytere. Du får foreslå det for han som utvikler den plugin'en.

Har surfet hjemmeautomasjon og skrudd av og på lys med WinSeer i Windows Mixed Reality. Because I can.

MakeMKV ??

Vel, jeg bruker Homeseer med z-wave og har ingen problemer med å sende alarm kommando til mine. Jeg har ikke testet 433 røykvarslere og vet vel lite om de, men en varsler hos meg ser du nedenfor, temmelig oversiktlig Jeg ser ikke på dette som en konkurranse mellom forskjellige systemer og forskjellige grensesnitt men mer informasjon om hva jeg vet fungerer.

Du har ikke nådd prosesseringstaket for Vera'en med 6 termostater, det er jeg helt sikker på. Det høres heller ut som du har en konflikt som den bruker mye tid på å finne ut av.. Jeg byttet til Auto Virtual thermostat på noen av rommene, dette fordi de rommene stadig hadde åpne dører til andre rom, og teorien var at dette tullet med lærelogikken til SVT. Auto er helt dum, du setter setpunkt, akseptabel diff, så skrur den av og på uten å lære noe. Den kan fint brukes til nattsenking den også, du bruker "Service: urn:upnp-org:serviceId:TemperatureSetpoint1::SetCurrentSetpoint" i scenen til å justere setpunkt. Du har vel funnet MiCasaVerde forumet? Mye info, og forholdsvis rask respons stort sett..

Dags for en liten oppsummeringspost igjen. Får lage en liten liste fritt etter hukommelsen: Oppdaget at jeg hadde en ledig binærinngang ved døren til soverommet vårt. Har lenge drømt om en "Alt av-bryter" ved sengen, så dette ble nært nok. Grunnen litt trang boks, ble en påveggskappe nødvendig. Taklys av/på/dim oppe til venstre, nattlys på min side oppe til høyre, alt av nede. Grunnen til valg av konvensjonelle brytere er at jeg hadde mye av de fra før og da er det jo enkelt å bruke sammen med binærinnganger på KNX. Mens vi først er på soverommet, bryter og pære fra Philips. Pæren kan styres fra ellers i systemet, men ville ha en trådløs bryter også og da måtte det blir Philips sin. Hønemor ville ikke ha sitt lys som en del av anlegget, så da fikk hun sitt eget lille økosystem. Bryteren fra Ikea som fungerer veldig bra og pære fra Ikea. I boden nede har jeg valgt detektoren fra Ikea mens vi venter på at den delen av huset skal bli oppusset. Fungerer forholdsvis greit, litt treig av og til. Et annet rom som venter på oppussing, badet/boden nede som skal bli til et bad. Per dags dato blir det brukt som vedbod og etter mye irritasjon over manglende lys der, gikk jeg for en demodetektor fra Elsner på KNX og en Ikea-pære. Registrerer bevegelse, temperatur og fukt. Integrering av Sonos i stue og på bad. Litt copy/paste av det originale designet da jeg ikke kom på noe selv. De mest nødvendige funksjonene samt to favoritter på høyre siden. Fått inn litt forskjellige lys nede. Lysene på "kaninrommene" er pærer fra Ikea. De blir styrt av en kombinasjon av luxføler ute + urstyring + hjemme/borte-funksjonen. Lyset i garasjen er gjort klar, må bare koble det opp sammen med en bevegelsesdetektor. Trenger gjerne ikke et ekstra bilde for det, men har lagt inn varmekabelen i garasjen også på KNX. Bruker den aldri, men lagt den inn fordi jeg kan. Sammen med varmekabel og lys i garasje, er det også lagt klart for endebrytere eller magnetbrytere til garasjeport. Får dessverre bare status og ikke styring da portåpneren ikke har inn- og utganger. Tror det var det hele for denne gang, huset blir stadig forandret.

Jeg har koplet en RGB pære mot FitbitSeer til kona riktignok ... den skifter farge etterhvert som hun tramper rundt ....

SmartToggle.vb "Toggler" en device mellom "Off" og "On Last Level" hvis den finnes (altså er en Z-wave device). Kun mellom "Off" og "On" ellers. Parameter: 400 ... der 400 er device ref til device'n du vil toggle. Public Sub Main(ByVal input As Object) '© Moskus 2015 Dim control As String = input Dim devicevalue As Double = hs.DeviceValueEx(control) Dim capi As HomeSeerAPI.CAPIControl = Nothing If devicevalue = 0 Then 'device is off, so let's trigger "On Last Level" if it exists on the device, and just "On" capi = hs.CAPIGetSingleControl(input, True, "on last level", False, False) If capi Is Nothing Then '"On last Level" wasn't found, so we need to find "On" capi = hs.CAPIGetSingleControl(input, True, "on", False, False) End If Else 'The device is on, so let's turn it offf capi = hs.CAPIGetSingleControl(input, True, "off", False, False) End If If capi IsNot Nothing Then hs.CAPIControlHandler(capi) Else hs.WriteLog("SmartToggle", "Could not execute CAPIcontrol, it's nothing! (Input device value: " & devicevalue & ")") End If End Sub Eventet ser da slik ut: