Gå til innhold
  • Bli medlem
Støtt hjemmeautomasjon! 🥇🥈🥉

Moskus

Administrator
  • Innlegg

    16 882
  • Ble med

  • Besøkte siden sist

  • Dager vunnet

    810

Alt skrevet av Moskus

  1. Ah, ja da så. Alternativet er pipelyder og annet sus. Har kontrollert støy i feilprosjekterte balanserte hus...
  2. Jepp. + magnetsensor på dører.
  3. ... egen kanal mellom soverom og badet, da?
  4. Ja, for de er pålitelige når det gjelder virus... Tror du Apple, av alle i hele verden, hadde tillat en app med virus som bevisst ødelegger telefonen i App Store...? Life360 virker fremdeles utmerket hos meg med PHlocation2. Har kjørt fint ganske lenge nå.
  5. Du fikk svaret på Facebook, sant?
  6. Aaah, jeg er så vant til å bruke JSON at jeg tror alle har lagt til den referansen nå...
  7. Nei, det er faktisk ikke en god idé har det vist seg. Da bør man lage et ekstra (for "OR IF"-delen) som trigger det originale eventet.
  8. Ikke direkte fra JSON, så vidt jeg ser. Da noe á la: IF json("cases")(i)("name") = "Trøndelag" Then
  9. Men hva med fuktighet? Det er det jeg forserer på.
  10. Sub Main(ByVal parameters As Object) 'Moskus 2020 Dim devID As Integer = parameters.ToString Dim useHTMLtable As Boolean = True Dim url As String = "https://www.vg.no/spesial/2020/corona-viruset/data/norway-table-overview/" Dim source As String = "" Try Using client = New System.Net.WebClient Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("CoronaScript", "Got no response from url: " & url) Exit Sub End If Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim output As String = "" Try Dim confirmed As Integer = json("totals")("confirmed") If useHTMLtable Then output &= "<table border=0 cellspacing=0 cellpadding=0>" output &= "<tr><td><b>Totalt</b></td><td align='right'>" & json("totals")("confirmed") & "</td><td align='right'>" & json("totals")("dead") & "</td><td align='right'>" & json("totals")("recovered") & "</td></tr>" For i As Integer = 0 To json("cases").Count - 1 output &= "<tr><td>" & json("cases")(i)("name") & "</td><td align='right'>" & json("cases")(i)("confirmed") & "</td><td align='right'>" & json("cases")(i)("dead") & "</td><td align='right'>" & json("cases")(i)("recovered") & "</td></tr>" Next output &= "</table>" Else output &= "<b>Totalt: " & json("totals")("confirmed") & " / " & json("totals")("dead") & " / " & json("totals")("recovered") & "</b><br>" For i As Integer = 0 To json("cases").Count - 1 output &= "• " & json("cases")(i)("name") & ": " & json("cases")(i)("confirmed") & " / " & json("cases")(i)("dead") & " / " & json("cases")(i)("recovered") & "<br>" Next End If hs.SetDeviceString(devID, output, False) hs.SetDeviceValueByRef(devID, confirmed, True) Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try End Sub Trigger: Kjøres hvert 5. minutt Parameter: DeviceIDen til en virtuell device som skal holde verdien. Du kan endre variabelen "useHTMLtable" til False hvis du vil ha det i HStouch, for HStouch viser ikke pene HTML-tabeller... Oppdatert med data fra RapidAPI siden jeg ble lei av at VG er så dårlig på å oppdatere tallene sine: Sub Main(ByVal parameters As Object) 'Moskus 2020 Dim devID As Integer = parameters.ToString Dim url As String = "https://covid-193.p.rapidapi.com/statistics?country=Norway" Dim source As String = "" Try Using client = New System.Net.WebClient 'TLS1.2 and encoding (UTF8) Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12 client.Encoding = System.Text.Encoding.UTF8 'Headers client.Headers.Set("x-rapidapi-host", "covid-193.p.rapidapi.com") client.Headers.Set("x-rapidapi-key", "DIN_RAPIDAPI_KEY_HER") 'GET the url source = client.DownloadString(url) End Using Catch ex As Exception hs.WriteLog("CoronaScript", "Net Feil: " & ex.Message) End Try If source = "" Then hs.WriteLog("CoronaScript", "Got no response from url: " & url) Exit Sub End If Try Dim json = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Object)(source) Dim confirmed As Integer = json("response")(0)("cases")("total") Dim output As String = "" output &= "<b>Aktive: " & json("response")(0)("cases")("active") & " (" & json("response")(0)("cases")("new") & ") " & "</b><br>" output &= "Totalt: " & json("response")(0)("cases")("total") & "<br>" output &= "Dødsfall: " & json("response")(0)("deaths")("total") & " (" & IIf(json("response")(0)("deaths")("new").ToString = "", "0", json("response")(0)("deaths")("new")) & ") " & "<br>" output &= "Testede: " & json("response")(0)("tests")("total") & "<br>" output &= "<i>Sist oppdatert: " & json("response")(0)("time") & "</i><br>" hs.SetDeviceString(devID, output, False) hs.SetDeviceValueByRef(devID, confirmed, True) Catch ex As Exception hs.WriteLog("CoronaScript Error", "Parsefeil: " & ex.Message) End Try End Sub Kjøres nå hver time, jeg vet ikke begrensningene hos RapidAPI.
  11. For Pi'er tar jeg image-backup'er med jevne mellomrom, men kunne tenke meg en slik mulighet automatisk.
  12. Støtter iallfall et utvalg Sunricher-utstyr, så det er ikke umulig at de støtter Namron også. Men du må nok høre med dem på Slack-kanalen deres.
  13. Meh! Ofrer ikke 10% på det. Men jeg kikker på om jeg skriver et lite script for BulkSMS.com.
  14. Skulle gjerne prøvd Futurehome sin, men her har vi Fireangel. Men vi pusset nettopp opp og fikk da muligheten til å kable (der for Fireangel er montert). Jeg har ikke undersøkt, men mulig de kan kommunisere med hverandre via Z-wave.
  15. Er vel ingen grunn til å tro at disse er mindre seriøse enn andre tilsvarende tjenester.
  16. Det så veldig lovende ut! For sent, men må teste det likevel.
  17. Utgangspunktet er jo at systemet i utgangspunktet ikke behøver så mye justering. Vi har trykkvakt på ventilatoren, og bruker smarthuset til å forsere når det er høy fuktighet på bad. Kunne for så vidt tenke meg en smartere justering av temperatur, men jeg må slåss litt med modbus-plugin'en først. Men så mye mer enn er det vel en diskusjon om faktisk er nødvendig.
  18. Ser det samme, ingen fiks som jeg vet om. Alexa er smartere enn dette...
  19. @Guahtdim har laget en plugin som jeg tror burde passe her:
  20. Det høres bra ut.
  21. Moskus

    Tibber pulse software

    Ja, heldigvis. Men for Home Assistant er veien ganske lang å gå. Men det gjør absolutt ingenting at det blir bedre.
  22. Nei... men det er ikke så nøye. Men da er det ikke det.
  23. Wait, what? Du skal jo kunne koble til "hva som helst" og lese det ut, det er jo en del av spec'en til NVE.
×
×
  • 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.