Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon.no!

Moskus

Administrator
  • Innlegg

    16 847
  • Ble med

  • Besøkte siden sist

  • Dager vunnet

    799

Alt skrevet av Moskus

  1. Magnetsensor på lokket er å anbefale.
  2. Oi, Fibaro er litt sære på navngiving av variablene for bevegelsessensorer. Men jeg ser ikke hvorfor denne skulle trigges så ofte at du får too many instances...
  3. Flott! Da skal jeg oppdatere første post, takk for debug-hjelp!
  4. Ai, da. Det er jo det samme jeg skulle ha, det hadde jeg trodd skulle fungere. Da er det mulig jeg må sende CultureInfo. Prøv dette, da. Sub Main(ByVal params As Object) Dim devRef As Integer = 3915 Dim postnummer As Integer = 4026 Dim url As String = "https://www.posten.no/levering-av-post-2020/_/component/main/1/leftRegion/1?postCode=" & postnummer Dim source As String = "" Try Using client As New System.Net.WebClient client.Headers.Add("x-requested-with", "XMLHttpRequest") client.BaseAddress = url source = client.DownloadString(url) End Using Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim output As String = "" For i As Integer = 0 To json("nextDeliveryDays").Count - 2 output &= json("nextDeliveryDays")(i).ToString & "<br>" Next output &= json("nextDeliveryDays")(json("nextDeliveryDays").Count - 1).ToString Dim nestePostdag As Date = DateTime.Parse((json("nextDeliveryDays")(0).ToString.ToLower).Replace("i morgen", "").Replace("i dag", ""), New System.Globalization.CultureInfo("nb-NO")) Dim dagerTilPost As Integer = nestePostdag.Date.Subtract(Now.Date).Days hs.SetDeviceValueByRef(devRef, dagerTilPost, True) hs.SetDeviceString(devRef, output, False) Catch ex As Exception hs.SetDeviceValueByRef(devRef, -1, True) hs.SetDeviceString(devRef, "Feil: " & ex.Message, False) End Try End Sub ... da skal "value" bli 1.
  5. Jo, men hva er device-stringen? Jeg ser at den kan inneholde tekst som "i dag" eller "i morgen", og derfor fjerner jeg dem før jeg prøver å parse verdien til en dato. Men det ser ut som du har fått noe som ikke har tatt hensyn til, eller at jeg har bommet på en. Det stemmer, det er fordi man må legge til headeren "x-requested-with:XMLHttpRequest".
  6. Kjør denne versjonen og post resultatet, så ser vi hva jeg ikke har klart å ta hensyn til. Sub Main(ByVal params As Object) Dim devRef As Integer = 3915 Dim postnummer As Integer = 4026 Dim url As String = "https://www.posten.no/levering-av-post-2020/_/component/main/1/leftRegion/1?postCode=" & postnummer Dim source As String = "" Try Using client As New System.Net.WebClient client.Headers.Add("x-requested-with", "XMLHttpRequest") client.BaseAddress = url source = client.DownloadString(url) End Using Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim output As String = "" For i As Integer = 0 To json("nextDeliveryDays").Count - 2 output &= json("nextDeliveryDays")(i).ToString & "<br>" Next output &= json("nextDeliveryDays")(json("nextDeliveryDays").Count - 1).ToString 'Dim nestePostdag As Date = DateTime.Parse((json("nextDeliveryDays")(0).ToString).Replace("i morgen", "").Replace("i dag", "")) 'Dim dagerTilPost As Integer = nestePostdag.Date.Subtract(Now.Date).Days Dim dagerTilPost as Integer = 0 hs.SetDeviceValueByRef(devRef, dagerTilPost, True) hs.SetDeviceString(devRef, output, False) Catch ex As Exception hs.SetDeviceValueByRef(devRef, -1, True) hs.SetDeviceString(devRef, "Feil: " & ex.Message, False) End Try End Sub
  7. Ja, merkelig. Ser ikke ut til at det er en TibberSeer-feil, så jeg er ikke sikker på hva som er feil.
  8. Det letteste er å gjøre det med et Event, det er en Z-wave Action for det.
  9. Noe av det jeg bruker magnetsensoren på postkassen til er jo å huske å faktisk hente posten når jeg går forbi. Regner med at det var det trådstarter var ute etter. En slik magnetsensor gir jo bedre fleksibilitet enn våre integreringer, da det jo ikke er noen garanti at man får post bare fordi den skal bli levert... Men jeg lurer på om jeg kan kombinere magnetsensoren og "postdag". Hvis magnetsensoren trigges på en postdag (verdi = 0), så er det sannsynligvis post. Ellers kan det være reklame, og det er jo ikke så interessant...
  10. Og slik kan det gjøres i HomeSeer:
  11. Et script som sjekker når du får levert post. 1. Du trenger en referanse til Newtonsoft.Json i ScriptingReferences. 2. Du trenger en virtuell device uten knapper eller statuser. 3. Du trenger en konto hos MyBring, du kan opprette gratis her (du trenger ikke firmanavn): https://www.mybring.com/signup/register/user 4. En API-key som du finner på denne siden: https://www.mybring.com/useradmin/account/settings/api Kjør dette scriptet ved midnatt: Sub Main(ByVal params As Object) Dim devRef As Integer = DIN_DEVICEREF_HER Dim postnummer As Integer = DITT_POSTNUMMER_HER Dim mybring_email As String = "[email protected]" Dim mybring_key As String = "DIN_KEY_FRA_MYBRING" Dim url As String = "https://api.bring.com/address/api/no/postal-codes/" & postnummer & "/mailbox-delivery-dates" Dim source As String = "" Try Using client As New System.Net.WebClient Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Headers.Add("x-mybring-api-uid", mybring_email) client.Headers.Add("x-mybring-api-key", mybring_key) client.BaseAddress = url source = client.DownloadString(url) End Using Dim json As Object = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim nestePost As String = json.item("delivery_dates").item(0).ToString Dim nestePostDato As Date = DateTime.Parse(nestePostDato) Dim dagerTilPost As Integer = nestePostDato.Date.Subtract(Now.Date).Days Dim output As String = "" For i As Integer = 0 To json("delivery_dates").Count - 1 Dim currentDate As Date = DateTime.Parse(json.item("delivery_dates").item(i)) output &= GetDateDescription(currentDate) & "<br>" Next hs.SetDeviceValueByRef(devRef, dagerTilPost, True) hs.SetDeviceString(devRef, output, False) Catch ex As Exception hs.SetDeviceValueByRef(devRef, -1, True) hs.SetDeviceString(devRef, "Feil: " & ex.Message, False) End Try End Sub Function GetDateDescription(ByVal nextDate As Date) Dim dagerTilPost As Integer = nextDate.Date.Subtract(Now.Date).Days If dagerTilPost = 0 Then Return "I dag" ElseIf dagerTilPost = 1 Then Return "I morgen" Else Return nextDate.ToString("dddd d. MMM") End If End Function Devicen vil da se slik ut: Device Value er antall dager til postleveranse. "0" betyr da at posten blir levert i dag, kan f.eks. brukes som trigger til noe. EDIT: Takk til @daniel.h.iversen som fant ut at Posten har oppdaget at 2020 var i fjor. 👍 EDIT2: Takk til @DeVille som fant ut at siste 1 skal erstattes med 9. EDIT3: Takk til @ZoRaC for sin oppdatering etter API-omleggingen hos Posten versjon som jeg bygget litt videre på.
  12. Hvis posten har data, så er det vel den mest pålitelige løsningen. Plutselig legger de om på dagene, eller endrer ifb. helligdager. Derfor vi ikke har en fast kalender på tømming av søppeldunker, men parser heller Stavanger Kommune sin nettside. Det har vært stabilt veldig lenge.
  13. Det gjør jeg også, men selv om jeg ikke har brydd meg med å gjøre det på deCONZ, så liker jeg at "spesialisert hardware" har egen fast IP. Jeg mener jeg hadde dette på deCONZ før (jeg måtte resette for mange år siden), og da gjorde jeg det i det gamle webgrensesnittet. Mulig det kan gjøres i Phoscon nå.
  14. Jeg mangler mange...
  15. Er FW noe du kan dele her?
  16. ... er ikke en sensor på postkasselokket en like grei løsning? Foreløpig gjelder jo dette: ... så det er en stund til vi vet om det kan scriptes. Men vi får håpe på et enkelt API.
  17. Moskus

    HS4 + ikea/ELKO

    Merk at Zigbee-plugin'en krever en bestemt Zigbee-stick: Nortek HUSBZB-1. Men de har vel en egen Hue-plugin også?
  18. Det er det samme her. HS4 kommer til å være der i mange år, det gjør ikke noe om jeg venter litt til så de kan få fjerne noen bugs...
  19. Stemmer. Men jeg regner det som den 8. dødssynd å ikke øke rapporteringen på strøm til minst 300...
  20. Jeg har logget støynivåer i stua de siste 8 måneder (relatert til noe annet, lang historie som jeg kanskje kan fortelle om en dag). Selv ikke en gang jeg, som jobber med støy til daglig, er sikker på om slike gjennomsnittsnivåer det er verdt noe. Og mine verdier blir oppdatert hvert 15. sekund, ikke hvert 10. minutt. Ja, innendørsmodulen til Netatmo rapporterer en eller annen form for lydtrykksnivå.
  21. Ja, å sette via parameter har fungert hele tiden. Mener du da at den fortsetter å operere med den gamle setpoint-temperaturen selv om den viser den nye? At det tar 20 sekunder før endringen vises har vært tilstede i Z-TRM2 og Z-TRM2fx også, lurer på om det også gjaldt originale Z-TRM.
  22. TibberSeer tar kun for seg det som ligger i Tibber sitt API. Det begynner å bli en del som Tibber kan gjøre, men som ikke er i APIet...
  23. Hvilke andre alternativer enn "Safe" har du for den øverste triggeren?
  24. How?! Jeg vil prøve å alltid ha Fn-knappen aktivert på min Surface.
  25. Jeg er bare innom her for å fortelle at våre Multisensor 6 fungerer aldeles strålende her. Mulig litt dårlig datagrunnlag, vi har bare 10-12 stykker. Alle rapporterer bevegelse når de skal, og alle parametere kan justeres til passelig rapporteringsintervall. Helt suveren sak som styrer huset etter bevegelse, Lux, temperatur og fuktighet. MEN: Alle går på USB-strøm.
×
×
  • Opprett ny...

Viktig informasjon

Vi har plassert informasjonskapsler/cookies på din enhet for å gjøre denne siden bedre. Du kan justere dine innstillinger for informasjonskapsler, ellers vil vi anta at dette er ok for deg.