Vinnerliste

Actibus

Medlemmer
- Poeng
  
  2
- Innlegg
  
  551
- Finn innhold
gullfrode

Medlemmer
- Poeng
  
  2
- Innlegg
  
  489
- Finn innhold
Moskus

Administrator
- Poeng
  
  1
- Innlegg
  
  16 856
- Finn innhold
Evelen

VIP
- Poeng
  
  1
- Innlegg
  
  1 133
- Finn innhold

Populært innhold

Viser innholdet med mest poeng fra 27. mars 2017 i alle områder

Wifi varmegjenvinnings ventilasjonsvifte

@Hr Kotelett Fikk pakke fra Kina idag, 4 stk keramiske elementer, 93x152mm (diameter og lengde). Har ikke fått viften ennå, men tipper jeg prøver meg med å bare manuelt snu en standard kanalvifte jeg har, også sette temperaturmålere på hver side, se om jeg kan beregne noe virkningsgrad. Pris endte på ca 1300,- for 4 stk DDP (levert ferdig fortollet) Også trenger man da en vifte og en arduino/ESP og litt logikk, så får man 4 varmegjenvinningsvifter til langt under prisen av 1 hvis det virker da..
- 27. mars 2017
2 poeng
SCRIPT: CheckDoorsAndWindows.vb

Et script jeg bruker til å sjekke om hvilke dører eller vinduer som er åpne, og sender en email/push-melding med den beskjeden på egnede tidspunkter (som f.eks. når alarmen blir skrudd på eller huset går over i natt-modus). Du må endre (minst) tre linjer, og det er hhv. "Dim rfxcom() as Integer..." og "Dim zwave() as integer..." og nederst "hs.SendEmail...". Jeg sender push-meldinger til Pushalot og/eller PushSafer (hvor sistnevnte snart får en plugin). CheckDoorsAndWindows.vb Sub Main(ByVal input As Object) Dim lst As New System.Collections.Generic.List(Of String) Dim closedStatus As Integer = 100 'RFXCOM devices Dim rfxcom() As Integer = {41, 1188, DINE RFXCOM-SENSORER HER KOMMASEPARERT} closedStatus = 2 For Each d As Integer In rfxcom If hs.DeviceValue(d) <> closedStatus Then Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(d) lst.Add(dev.Location2(hs) & " " & dev.Location(hs) & " " & dev.Name(hs)) End If Next 'Zwave devices Dim zwave() As Integer = {450, 545, DINE Z-WAVE-SENSORER HER KOMMASEPARERT} closedStatus = 255 For Each d As Integer In zwave If hs.DeviceValue(d) <> closedStatus Then Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(d) lst.Add(dev.Location2(hs) & " " & dev.Location(hs) & " " & dev.Name(hs)) End If Next If lst.Count > 0 Then Dim msg As String = "Følgende vinduer er åpne: " & vbNewLine msg &= String.Join(vbNewLine, lst) hs.SendEmail("[email protected]", "FRA_HS#@epost.com", "", "", "HS3: Åpne vinduer/dører!", msg, "") Else hs.WriteLog("Vindu/dører", "Alle er lukket") End If End Sub
- 4. mai 2017
1 poeng
Hva har du automatisert idag/Hva har du gjort på dine prosjekter idag

Ok, da har jeg fått bygget meg lack-racket jeg snakket om lenger oppe. Ser ikke ut som SPOLER-taggen fugnerer her på forumet så dere får leve med det 3 stk ikea lack kr 49,- per stk - http://www.ikea.com/no/no/catalog/products/20011413/ 2 stk borris dørmatter kr 5,- per stk - http://www.ikea.com/no/no/catalog/products/80186688/?query=BORRIS Planen var først å bruke slike runde tre-tapper og trelim til å holde sammen de delene hvor de ikke egentlig er skruer, men det skulle vise seg å ikke være så lett. Med andre ord får eg ikke brukt for alt på bildet da jeg måtte gjøre det på en litt annen måte. Startet med å kutte opp beina, jeg viste dem var av dårlig kvalitet, men dette hadde jeg ikke forventet Godt jeg ikke gikk for skinner til serverene, for jeg vet ikke helt om dette hadde holdt. Nå skjønner jeg ihvertfall litt hvordan dem greier bygge de bordene så billig. Hvert bein er forøvrig 40cm, jeg kuttet dem i to så det ble totalt 8 bein på 20cm. Brukte beina kun til det ene bord-settet mao. Halvparten av beina manglet såklart hull da dem var på vei ned, var variabelt hvor mye jeg måtte skru for å komme igjennom her. Tydeligvis litt ca-fylling på ikea-fabrikken. For å sikre bordene fra å skri av brukte jeg skruer som gjør at jeg kan sette dem oppe hverandre uten fare for at dem sklir, litt jalla-løsning, men det fungerte veldig bra. Ferdig. Dørmattene er for serverene til å skli på: Er glad jeg ikke monterte dem sammen som opprinnelig planlagt, for det hadde ikke vært plass til å ta konstruksjonen i en bit igjennom her: Satt opp: Jeg ble fornøyd, serverene var veldig enkle og ta ut og inn, gikk veldig mye greiere enn forventet, lettere enn vanlig rack til og med. Skal såklart fikse opp i kablene men slik får det stå til i morgen
- 27. mars 2017
1 poeng
Belysning på bad

Er ikke rart det er mye hobbyelektrikkere som kobler selv... 12.000 for en halv dags jobb
- 27. mars 2017
1 poeng
Varsling Alarm

Hvilken løsning har dere på varsling på enheter av feks. brannalarm? I fibaro hadde jeg et script som varslet på valgte enheter med type alarm og hvilken/hvor enheten var lokalisert på push(gjennom app)http://www.siio.com/alarm-security/fibaro-smoke-sensor-in-practice-how-to-code-your-smoke-alarm-12339/ . Hadde denne både på vann og røyk, og fikk ufrivillig testet begge (og slapp drama).
- 27. mars 2017
1 poeng
Varsling Alarm

Akkurat det jeg er ute etter, tar inni hampen lang tid å lage event for hver enkelt varsler, og som du beskriver viktig å vite tvert hvor alarm er trigget. Litt av grunnen til at jeg gjorde idiotien med å gå over til z-wave var vannvarlser fordi jeg har holdt på skru kobberrør selv for å slippe rørlegger(totalrenovering etter hvert, og liker ikke å da fjerne dyrt arbeid da vi tenker å endre layout på huset, slenge på en etasje etc. Dyr hobby som ikke akkurat sparer tid, men arti læll. Har du delt scriptet og du kanskje? Og hva til Push, er pushover alternativet til iOS?
- 27. mars 2017
1 poeng