Hjemmeautomasjon - Hva er det og hvorfor skulle jeg bry meg? (Automasjonskaféen)

[Mr_Tiger]

 

Lurer på en annen ting også.

Jeg leter etter en vannmåler jeg kan montere på en vannkrets for å se hvor mye forbruket er på denne kretsen. Noen som har et forslag til en slik vannmåler? Tenker ikke på en hovedvannmåler.

Samme det vel om det er en hovedvannmåler eller ikke, poenget er at det er en teller på det.

 

Her er noe:

http://bwired.nl/How_rfxcom.asp

 

... men jeg vet ikke om du får tak i RFXsensor lenger.

 

Edit:

Fikk kjøpt en billig fra rørleggeren vi bruker på jobben.

vel, billig er vel kanskje å ta i litt, prisen er 1500kr.

joda, men hovedvannsmålere må som regel være godkjente og da blir prisen ganske stiv.

Endret 20. februar 2014 av cmf_Tiger

[Fermate]

Status fra HS2 -> HS3 prosjektet:

 

# I går fikk jeg til å overføre Events MED Actions

Riktig nok bare Av/PÅ Actions men det sparer jo en MASSE klikking

 

Og Moskus har helt rett at dette er nok ikke tidsbesparende i forhold til mitt porte prosjekt alene men for det første så lærer jeg MASSE HS3 scripting og for det andre så kan det jo hende at noen andre kan ha glede av det også

 

# Har knekt koden for å finne riktig XML tag for HSTouch konverteren men ikke fått det inn i programmet ennå.

 

# Har laget to nye script for å bygge opp Device kryss ref tabell basert på Navn, Location og Location2

eller på HC/DC.

Disse baserer seg da på at folk allerede har portet og kun trenger kryss ref tabellen for å kjøre HSTouch konverteren.

Legger ved begge her om noen har lyst til å komme med forbedringer elle kommentarer.

Map HS2 2 HS3 Device refs By House and Device code.vb.txt

Map HS2 2 HS3 Device refs By Name.vb.txt

Endret 21. februar 2014 av Fermate

[Fermate]

Jeg trenger forresten også ligg hjelp med HS3 skripingen:

 

Når jeg skal legge til Actions på Eventene funker det bra med ON/OFF slik:

objCAPIControl = hs.CAPIGetSingleControlByUse(CLng(sHS3Dev), ePairControlUse._On)
s = hs.AddDeviceActionToEvent(lEventRef, objCAPIControl)

Men for Dimming så feiler dette med "illegal CAPI Object"

objCAPIControl = hs.CAPIGetSingleControlByUse(sHS3Dev, ePairControlUse._Dim)
objCAPIControl.ControlValue = CLng(Reader.Item("device_dimval"))
s = hs.AddDeviceActionToEvent(lEventRef, objCAPIControl)

Hjelp!

Endret 21. februar 2014 av Fermate

[Moskus]

Jeg trenger forresten også ligg hjelp med HS3 skripingen:

 

Når jeg skal legge til Actions på Eventene funker det bra med ON/OFF slik:

objCAPIControl = hs.CAPIGetSingleControlByUse(CLng(sHS3Dev), ePairControlUse._On)
s = hs.AddDeviceActionToEvent(lEventRef, objCAPIControl)

Men for Dimming så feiler dette med "illegal CAPI Object"

objCAPIControl = hs.CAPIGetSingleControlByUse(sHS3Dev, ePairControlUse._Dim)
objCAPIControl.ControlValue = CLng(Reader.Item("device_dimval"))
s = hs.AddDeviceActionToEvent(lEventRef, objCAPIControl)

Hjelp!

Jeg har ikke sett noe særlig på CAPI før, for det er ganske så nytt (eller annerledes enn HS2), men det er et par forskjeller på scriptene dine. Jeg vet ikke hvorfor du må konvertere sHS3Dev til "Long" (av alle ting. Integer is the new Long, klassisk gamle VB6.0 programmerere ), men du gjør det kun på den øverste og ikke den nederste.

 

Og hva skjer hvis du kommenterer ut den midterste linja?

[hkmod25]

 

joda, men hovedvannsmålere må som regel være godkjente og da blir prisen ganske stiv.

 

Vannmålere: http://www.smarthus.info/index.php?cPath=1_48&sort=2a&filter_id=247

Z-Wave, vannmåler sensor: http://www.smarthus.info/product_info.php?cPath=1_46_126&products_id=3035

[Fermate]

 

Jeg har ikke sett noe særlig på CAPI før, for det er ganske så nytt (eller annerledes enn HS2), men det er et par forskjeller på scriptene dine. Jeg vet ikke hvorfor du må konvertere sHS3Dev til "Long" (av alle ting. Integer is the new Long, klassisk gamle VB6.0 programmerere ), men du gjør det kun på den øverste og ikke den nederste.

 

 

Og hva skjer hvis du kommenterer ut den midterste linja?

 

 

Å ja det henger igjen etter å ha eksperimentert med alt mulig skudd i mørket.

 

Jeg leste et sted på forumet at noen mente at den måtte ha long her for å virke (men når du nevner det så var det kanskje double de skrev?)

 

Uten den midterste blir ikke Dim verdien med.

Egentlig er det vel den jeg spør om..

[Moskus]

 

 

joda, men hovedvannsmålere må som regel være godkjente og da blir prisen ganske stiv.

 

Vannmålere: http://www.smarthus.info/index.php?cPath=1_48&sort=2a&filter_id=247

Z-Wave, vannmåler sensor: http://www.smarthus.info/product_info.php?cPath=1_46_126&products_id=3035

 

 

Ha! Du har jo!

Fantastisk, kanskje jeg vil ha det selv...

 

 

 

 

Jeg har ikke sett noe særlig på CAPI før, for det er ganske så nytt (eller annerledes enn HS2), men det er et par forskjeller på scriptene dine. Jeg vet ikke hvorfor du må konvertere sHS3Dev til "Long" (av alle ting. Integer is the new Long, klassisk gamle VB6.0 programmerere ), men du gjør det kun på den øverste og ikke den nederste.

 

 

Og hva skjer hvis du kommenterer ut den midterste linja?

 

 

Å ja det henger igjen etter å ha eksperimentert med alt mulig skudd i mørket.

 

Jeg leste et sted på forumet at noen mente at den måtte ha long her for å virke (men når du nevner det så var det kanskje double de skrev?)

 

Uten den midterste blir ikke Dim verdien med.

Egentlig er det vel den jeg spør om..

 

Men uten den linja så fungerer det?

 

Og du har selvfølgelig sjekket at Reader.Item("device_dimval") faktisk gir en verdi?

[Actibus]

Dere som er litt inni scripting, jeg ønsker å få oversikt over daglig og månedlig strømforbruk.

Har jo totalverdi fra Owl, den har jeg fått til å lagre i en Status only device.

Men jeg vet ikke hvordan jeg kan få hentet ut differansen av disse verdiene.

 

Nå har jeg totalforbruket på enhet "]2"

På enhet "Z1" har jeg daglig avlesning (kl 24.00/00:00)

På enhet "Z2" har jeg månedlig avlesning (den første hver mnd kl 00.00)

 

Jeg ønsker da at verdien av "]2" - "Z1" skal kunne lagres i f.feks "Q1", på samme måte med verdien av "]2"-"Z2" lagres i "Q2"

 

Håper noen har et tips

 

Prøvde meg på en script statement, men det virket ikke:

 

 

&hs.SetDeviceString "Z2", (hs.DeviceString("]2")-hs.DeviceString("Z1"))

[NothingForever]

Er det noen av dere som er omtalt i Romerikets Blad, kanskje?

[mk1 black limited]

Han får vel avsløre det selv i tilfelle, men grattis med oppslaget!

[Fermate]

&hs.SetDeviceString "Z2", (hs.DeviceString("]2")-hs.DeviceString("Z1"))

Dette er stringer så om du vil gjøre aritmetikk på dem må du konvertere dem til tall

 

du kan bruke val() eller cint()

 

og så tilbake til string: cstr()

 

 

&hs.SetDeviceString("Z2", cstr(val(hs.DeviceString("]2"))-val(hs.DeviceString("Z1"))))

- Moskus kommer straks å forteller hvordan de unge gjør det i DOT NET

 

[Fermate]

Han får vel avsløre det selv i tilfelle, men grattis med oppslaget!

 

Det er ikke altid at journalister forstår hva som er vesentlig...

[Fermate]

Jeg måtte få Powerpoint2HSTouch ut av huet så hele Søndagen gikk med...

Men her er versjon 8

 

Og en video som viser de nye funksjonene for bla. å lage 3D Status knapper.

 

Med denne er det kjappt å lage masse like knapper med forskjellig tekst..

Powerpoint2HSTouch80.zip

Endret 23. februar 2014 av Fermate

[Fermate]

Da kan jeg få konsentrere meg om Hs2 -> Hs3 porteingen.

 

Bert har endret RFXCOM plugin'en slik at en kan sette adressen selv så d aer det svært sansynlig at vi skal klare å konvertere både input og output devicene

 

DET er gode nyheter for å slippe masse knåtting. For ikke å snakke om å måtte reprogrammere alle Mexa output devicece

 

Har fått neste verjon av pluigin'en til test man har ikke rukket å se på det enda...

[Actibus]

 

&hs.SetDeviceString "Z2", (hs.DeviceString("]2")-hs.DeviceString("Z1"))

Dette er stringer så om du vil gjøre aritmetikk på dem må du konvertere dem til tall

 

du kan bruke val() eller cint()

 

og så tilbake til string: cstr()

&hs.SetDeviceString("Z2", cstr(val(hs.DeviceString("]2"))-val(hs.DeviceString("Z1"))))

- Moskus kommer straks å forteller hvordan de unge gjør det i DOT NET

 

 

 

Takk for svar, men den ser ikke ut til å fungere, vet ikke om det er mulig å gjøre slike utregninger i script statements, eller om man må lage et eget script for at det skal virke?

[Moskus]

Da kan jeg få konsentrere meg om Hs2 -> Hs3 porteingen.

 

Bert har endret RFXCOM plugin'en slik at en kan sette adressen selv så d aer det svært sansynlig at vi skal klare å konvertere både input og output devicene

 

DET er gode nyheter for å slippe masse knåtting. For ikke å snakke om å måtte reprogrammere alle Mexa output devicece

 

Har fått neste verjon av pluigin'en til test man har ikke rukket å se på det enda...

Fantastisk! Dagens beste nyhet! Har faktisk større og større problemer med HS2 for tiden (de siste 48 timer), HStouch dropper ut mer og mer, og med det detter også kommunikasjonen mot RFXCOM-lan bokser og da er det ikke lenger automatisk lys i flere rom... WAF blir lav, så jeg må få fortgang i overgangen til HS3.

 

Det begynner å bli forståelse for å bruke litt tid på overgangen, så si i fra når du har noe jeg kan teste (det kan vel testes i bolker også).

 

 

Jeg måtte få Powerpoint2HSTouch ut av huet så hele Søndagen gikk med...

Men her er versjon 8

 

Og en video som viser de nye funksjonene for bla. å lage 3D Status knapper.

 

Med denne er det kjappt å lage masse like knapper med forskjellig tekst..

 

Når HS3 kommer opp og kjøre, og det gamle HStouch-prosjektet er blitt konvertert, så skal nye skjermer lages med HStouch. Da skal PPT2HST testes.

 

 

 

Han får vel avsløre det selv i tilfelle, men grattis med oppslaget!

 

Det er ikke altid at journalister forstår hva som er vesentlig...

 

 

Tja...

 

 

– Er det noe du ikke har i huset?

– Ja. En venn av meg har installert en vibrasjonssensor på vaskemaskinen sin. Den sier ifra når tøyet er rent. Men det ser jeg ikke så stort behov for her hjemme.

Dette tar jeg som et kompliment!

 

 

 

Dere som er litt inni scripting, jeg ønsker å få oversikt over daglig og månedlig strømforbruk.

Har jo totalverdi fra Owl, den har jeg fått til å lagre i en Status only device.

Men jeg vet ikke hvordan jeg kan få hentet ut differansen av disse verdiene.

 

Nå har jeg totalforbruket på enhet "]2"

På enhet "Z1" har jeg daglig avlesning (kl 24.00/00:00)

På enhet "Z2" har jeg månedlig avlesning (den første hver mnd kl 00.00)

 

Jeg ønsker da at verdien av "]2" - "Z1" skal kunne lagres i f.feks "Q1", på samme måte med verdien av "]2"-"Z2" lagres i "Q2"

 

Håper noen har et tips

 

Prøvde meg på en script statement, men det virket ikke:

&hs.SetDeviceString "Z2", (hs.DeviceString("]2")-hs.DeviceString("Z1"))

Å hente ut verdier fra DeviceString er sjeldent den beste løsningen, verdiene vanligvis (som her) også i DeviceValue. Da slipper man å rote med å strippe vekk eventuelle bilder og annen HTML-formatering, for så å sjekke at det resterende faktisk er et tall.

 

Det andre jeg ville gjort var å laget et fullblods script med en gang, så slipper man å måtte veksle mellom VBscript og VB.net samtidig. Det er ikke så mye mer avansert egentlig, og er lettere å lese.

Sub Main(Byval ikke_brukte_parametre as String)
    Dim value as Integer = hs.DeviceValue("]2") - hs.DeviceValue("Z1") '(tror DeviceValue er ganget med 1000 fordi HS2 ikke kan lagre desimaltall)

    'La oss lagre denne verdien
    hs.SetDeviceValue("Z2", value)

    'Og så setter vi DeviceString for å gjøre det lesbart
    hs.SetDeviceString "Z2", Math.Round(value/1000),1) & " kWh" )
End Sub

Endret 23. februar 2014 av Moskus

[Moskus]

Noen ideer om hvordan man kan bruke automasjon for å få ei lita jente som får tenner til å sove?

 

Jeg har jo det som er standard (dempet belysning, rullegardiner, maskeingsstøy fra squeezebox, etc), men jeg kommer ikke på noe annet. Og jeg begynner å bli lei av å bære henne rundt i en Babybjørn på magen...

[Fermate]

Smertestillende "salve" i tannkjøttet mener jeg å huske....

Men det er 20 år siden..

[tiwas]

Tre kjappe spørsmål:

1. Vet noen om noen måte å gjøre tradisjonelle brytere trådløse på? Jeg har en del brytere på bokser som uansett ikke kan flyttes på. Disse skal jeg kjøpe fjær til så de blir monostabile (?) og kan styre moduler i boksen bak - men det er ikke alle modulene som har inngang for fysisk bryter, og noen av bryterne skal styre modul som ligger i takboksen (på grunn av plass). Uansett ønsker jeg at alle brytere skal se like ut, og det er ikke så lett å få tak i ferdige trådløse brytere som ligner på design-bryterne jeg har fra før.

 

2. Har noen her noen gode tips til motorer for å styre gardin/rullegardin/persienner? Ser Somfy har en del - er det bra kvalitet? Tenkte å eventuelt bruke sammen med motorkontrollene fra Fibaro. Til stuen tenkte jeg å kjøpe noe ala http://www.ikea.com/no/no/catalog/products/60075295/ for vanlig gardin, så første prosjekt blir å få satt opp noe som kan trekke gardinen. Ser det var noe diskusjon rundt dette i tråden, men fant ingen reelle løsninger.

 

Takker!

[Actibus]

 

Da kan jeg få konsentrere meg om Hs2 -> Hs3 porteingen.

 

Bert har endret RFXCOM plugin'en slik at en kan sette adressen selv så d aer det svært sansynlig at vi skal klare å konvertere både input og output devicene

 

DET er gode nyheter for å slippe masse knåtting. For ikke å snakke om å måtte reprogrammere alle Mexa output devicece

 

Har fått neste verjon av pluigin'en til test man har ikke rukket å se på det enda...

Fantastisk! Dagens beste nyhet! Har faktisk større og større problemer med HS2 for tiden (de siste 48 timer), HStouch dropper ut mer og mer, og med det detter også kommunikasjonen mot RFXCOM-lan bokser og da er det ikke lenger automatisk lys i flere rom... WAF blir lav, så jeg må få fortgang i overgangen til HS3.

 

Det begynner å bli forståelse for å bruke litt tid på overgangen, så si i fra når du har noe jeg kan teste (det kan vel testes i bolker også).

 

 

Jeg måtte få Powerpoint2HSTouch ut av huet så hele Søndagen gikk med...

Men her er versjon 8

 

Og en video som viser de nye funksjonene for bla. å lage 3D Status knapper.

 

Med denne er det kjappt å lage masse like knapper med forskjellig tekst..

 

Når HS3 kommer opp og kjøre, og det gamle HStouch-prosjektet er blitt konvertert, så skal nye skjermer lages med HStouch. Da skal PPT2HST testes.

 

 

 

Han får vel avsløre det selv i tilfelle, men grattis med oppslaget!

 

Det er ikke altid at journalister forstår hva som er vesentlig...

 

 

Tja...

 

 

– Er det noe du ikke har i huset?

– Ja. En venn av meg har installert en vibrasjonssensor på vaskemaskinen sin. Den sier ifra når tøyet er rent. Men det ser jeg ikke så stort behov for her hjemme.

Dette tar jeg som et kompliment!

 

 

 

Dere som er litt inni scripting, jeg ønsker å få oversikt over daglig og månedlig strømforbruk.

Har jo totalverdi fra Owl, den har jeg fått til å lagre i en Status only device.

Men jeg vet ikke hvordan jeg kan få hentet ut differansen av disse verdiene.

 

Nå har jeg totalforbruket på enhet "]2"

På enhet "Z1" har jeg daglig avlesning (kl 24.00/00:00)

På enhet "Z2" har jeg månedlig avlesning (den første hver mnd kl 00.00)

 

Jeg ønsker da at verdien av "]2" - "Z1" skal kunne lagres i f.feks "Q1", på samme måte med verdien av "]2"-"Z2" lagres i "Q2"

 

Håper noen har et tips

 

Prøvde meg på en script statement, men det virket ikke:

&hs.SetDeviceString "Z2", (hs.DeviceString("]2")-hs.DeviceString("Z1"))

Å hente ut verdier fra DeviceString er sjeldent den beste løsningen, verdiene vanligvis (som her) også i DeviceValue. Da slipper man å rote med å strippe vekk eventuelle bilder og annen HTML-formatering, for så å sjekke at det resterende faktisk er et tall.

 

Det andre jeg ville gjort var å laget et fullblods script med en gang, så slipper man å måtte veksle mellom VBscript og VB.net samtidig. Det er ikke så mye mer avansert egentlig, og er lettere å lese.

Sub Main(Byval ikke_brukte_parametre as String)
    Dim value as Integer = hs.DeviceValue("]2") - hs.DeviceValue("Z1") '(tror DeviceValue er ganget med 1000 fordi HS2 ikke kan lagre desimaltall)

    'La oss lagre denne verdien
    hs.SetDeviceValue("Z2", value)

    'Og så setter vi DeviceString for å gjøre det lesbart
    hs.SetDeviceString "Z2", Math.Round(value/1000),1) & " kWh" )
End Sub

Takk igjen, men får ikke denne til å virke heller, kommer ikke noe verdi i Z2, må man ha en spesiell device for at det skal gå? Nå er Z2 en Status Only device..