Vinnerliste

It's.... beautiful. Oddvar Brå er nok blitt passé. Nå er det "Hvor var du da Trump ble utestengt fra Twitter?"

Jeg har i ett par år nå tenkt på å bygge min egen føler for fuktighet i jorda. Det meste av tiden har jeg fablet om å benytte solen som energikilde. Ulempen med å bruke solenergi er at det blir litt høyere terskel for å få noe gjort. Denne sommeren har jeg forkastet solceller og heller benyttet batteri. Inspirert av en blogg om egenutviklet fuktighetsføler så satte jeg igang. Low cost garden sensor Målet var å basere den på en enkel "hjerne": ATTiny85 Ikke store karen når den som holder han er en standard legomann. Jeg har valgt å benytte Arduino C og bygget meg en enhet for å kunne programmere ATTiny. Dette er ett shield som sitter på toppen av en Arduino Uno. (Instruksjoner finner du her : Attiny shield) Det har blitt endel timer som har endt opp med at jeg har lært følgende: Capacitive Soil Moisture sensor trenger minimum 3,3V for å gi verdier. 2 AA batterier klarer ikke helt å levere dette. Som gjorde at jeg endte opp med å lage en 3 batteri holder. DS18B20 klarer ikke gi verdier hvis ATTiny er satt til 1KHz klokke. 8KHz er nødvendig for at data timings skal bli korrekt. I min forskning har jeg endt opp med følgende oppsett: Komponenter: 2 stykk 2 AA batteriholdere koblet sammen til 3 AA i serie 1 4,7K motstand 1 FS1000A 433MHz sender 1 Capacitive Soil Moisture sensor v1.2 1 NPN transistor (for å slå av og på strøm til sensorer) 1 led 1 ATTiny85 Som ser ut som følger når man har det på breadboard Og jeg ser helt fint senderens data i RFLink i HomeSeer. Den som ønsker min Arduino C kode finner denne på github ATTiny85MoistureTempTransmitter Og så var det å få dette loddet og satt i en boks....

Etter inspirasjon fra denne tråden har jeg laget/modifisert script for henting av tømmedatoer i Steinkjer og Snåsa. Har laget og drifter en mobilapp for tømmedatoer så jeg laget en rute i backend for å gjøre det litt enklere å tilpasse til Homeseer. Man må lage 3 virtuelle enheter med On/Off mulighet der On er 1 og Off er 0. Scriptet slår på enhetene som har tømming neste dag og slår av enhetene som ikke har tømming neste dag. Nå vet ikke jeg hvor mange som bruker Homeseer i Steinkjer/Snåsa, men det kan jo finnes noen 😊 Public Class Readomrade Public Property id As Integer Public Property omradetekst As String End Class Public Class Readrute Public Property id As Integer Public Property ruteomradeid As Integer Public Property rutetekst As String Public Property rutebeskrivelse As String End Class Public Class TommePlan Public Property id As Integer Public Property dato As DateTime Public Property rutetype As String Public Property readomrade As Readomrade Public Property readrute As Readrute End Class Sub Main(ByVal parameters As Object) ' Tømmeplan Steinkjer og Snåsa. https://grsoft.no/tommeplan ' Parameter: ' 1: Devref Restavfall ' 2: Devref Papp ' 3: Devref Plast ' 4: Områdenr. ' 5: Rutenr. Område og Rutenr hentes fra: https://www.steinkjer.kommune.no/renovasjon.460804.no.html ' ruteType: ' 1,2 = Matavfall og Restavfall ' 1,3 = Matavfall og Papp/Papir ' 4 = Plast ' 5 = Plast sentrum nord for Steinkjerelva ' 6 = Plast sentrum sør for Steinkjerelva 'Clio75 All Credits to [email protected] 'Inspired and based on Moskus scrip NewsReader.vb Dim devIDRest As Integer = parameters.ToString.Split("|")(0) Dim devIDPapp As Integer = parameters.ToString.Split("|")(1) Dim devIDPlast As Integer = parameters.ToString.Split("|")(2) Dim omradeID As String = parameters.ToString.Split("|")(3) Dim ruteID As String = parameters.ToString.Split("|")(4) 'Angir hvor mange fremtidige tømminger som skal hentes Dim fetchLimit As String = "2" Dim ruteType As String = "" Dim devID As Integer = 0 For x As Integer = 0 To 2 Select Case x Case 0 ruteType = "1,2" 'Device ref til Restavfall devID = devIDRest Case 1 ruteType = "1,3" 'Device ref til Papp devID = devIDPapp Case 2 'Endre denne til 5 eller 6 om du bor i sentrum av Steinkjer ruteType = "4" 'Device ref til Plast devID = devIDPlast End Select Dim url As String = "https://tommeplan.grsoft.no/v1/getha?omradeID=" & omradeID & "&ruteID=" & ruteID & "&ruteType=" & ruteType & "&fetchLimit=" & fetchLimit Dim source As String = "" Try Using client As New System.Net.WebClient ' Denne api nøkkelen kan alle bruke client.headers.set("X-Api-Key", "ZABtfylm48W01BPcEGKmnpbm7XCLWKAo") Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("soppel Error", "Got no response from url: " & url) Exit Sub End If Try Dim tommePlan() as TommePlan = Newtonsoft.Json.JsonConvert.DeserializeObject(Of TommePlan())(source) Dim devTekst = "" ' Dim firstDate As DateTime Dim imorgen As Date = DateAdd("d",1,Today) Dim tommeDato As Date For i As Integer = 0 To tommePlan.Count -1 Dim ruteTypeTekst As String = "" Dim dato As DateTime = Convert.ToDateTime(tommePlan(i).dato) Dim formattedDate As String = dato.ToString("ddd d MMM") Select Case i Case 0 devTekst = formattedDate+" <br>" tommeDato = tommePlan(i).dato If imorgen = tommeDato Then ' Slår på virtuell enhet om det er tømming i morgen hs.SetDeviceValueByRef(devID, 1, True) Else ' Slår av virtuell enhet om det ikke er tømming i morgen hs.SetDeviceValueByRef(devID, 0, True) End If Case 1 devTekst = devTekst + "<b>Neste:</b> " + formattedDate End Select hs.SetDeviceString(devID, devTekst , True) Next Catch ex As Exception hs.WriteLog("Soppel Error", "Net Feil: " & ex.Message) End Try Next End Sub renovasjon.vb

Q-light lager to-polt z-wave dimmer ihvertfall. Har ikke testet den selv. https://www.qlight.no/lysstyring/dimmere/zerodim-z-wave/?p=qG

Jeg diskuterer litt med meg selv her, for å muliggjøre innspill, og korrigering av dumme ideer. Og for kanskje å gi noen ideer. 😉 Hvis man bruker gjennomgang av denne typen https://no.rs-online.com/web/p/ethernet-connectors/7980723 så blir det jo kjempeenkelt. Strømforsyning i boksen, RJ45 hanplugg klemp på signalledningene fra FSIen. Da er det bare å lage en UTP-ledning med DS18B20 loddet på samme tre ledere i passende avstander. Alt er enkelt å demontere, flytte og teste. Med de signaleringshastigheter og avstander vi snakker om her så bør ikke et par plugger ødelegge signalet fra sensorene. Jeg tror jeg har en plan. Stjerne i margen til den som kommer opp med showstopperen. 😉

Jeg har ikke lisens på z-way, så det trenger du ikke.

Alt kan modifiseres. Selv har jeg fikset solskjerming med Fyrtur. Det endte med 3x60cm brede enheter hvor 2 stykk ble kuttet ned. Jeg fulgte denne guiden Jeg anbefaler alle som skal gjøre dette å demontere litt mer enn hva han gjør her. Selve motoren kan også løskobles. Gjør det! Jeg mistet en av mine med motoren tilkoblet og den har en helt annen lyd enn de andre. Den fungerer, men bråker litt mer. Ikke umulig at jeg på sikt må skaffe en ny motor. Skjermingsmessig er jeg ikke helt fornøyd. De kunne gjerne tatt unna litt mer sol. Og noen har utvidet ser jeg: https://www.ikeahackers.net/2020/05/ikea-kadrilj-motorized-blinds.html

Oppgradert OpenHAB til v 3 Pfaen, dette var en kraftig omvelting UI-messig. UI kan være UI intill jeg har pønsket ut en måte å løse dette på: Må skrive meg ett python-script så jeg ikke mister historiske data. I morgon, men ikkje i dag, i dag skal eg kvila så julebrennevinet tørkar ut av hu.

Det har kommet en Home Assistant AddOn for Duka One vifter som også fungerer utmerket på Vents Twinfresh v.2, Blauberg Expert v.2 og Flexit Roomie v2. https://github.com/dingusdk/ha-dukaone