Moskus

Ja, det gjør jeg, men jeg regner med den har den samme innebygde problemet jeg fikk sist (siden det da er samme app som sender meldingen).

Kostnad.

Ja, da tipper jeg at den nye Win10 maskinen har engelsk språk og engelsk formatering av dato og klokkeslett. Det var det jeg tenkte på med "locale". Hva om du setter det til norsk? Settings -> Time & Language -> Region ->

Hva kjører du HS på og hvilket "Locale" har du der?

OK. Kjekt å vite. Jeg har koblet noen slike i båten.

Jeg har problemer med å forstå hva du vil. Det er denne figuren... Hvis du skal ha en "Normally Closed" bryter (NC), så kobler du 1 og 2...? Hva skal du bruke den til?

... men luker kan fint brukes hvis man f.eks. har innkassinger eller lagt dem i bjelkelaget. Man får luker som har samme lydisolasjon som et par lag med gips.

Ah, ja da så. Alternativet er pipelyder og annet sus. Har kontrollert støy i feilprosjekterte balanserte hus...

Jepp. + magnetsensor på dører.

... egen kanal mellom soverom og badet, da?

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å.

Du fikk svaret på Facebook, sant?

Aaah, jeg er så vant til å bruke JSON at jeg tror alle har lagt til den referansen nå...

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.

Ikke direkte fra JSON, så vidt jeg ser. Da noe á la: IF json("cases")(i)("name") = "Trøndelag" Then

Men hva med fuktighet? Det er det jeg forserer på.

Corona-virus-tall i Norge:

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.

For Pi'er tar jeg image-backup'er med jevne mellomrom, men kunne tenke meg en slik mulighet automatisk.

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.

Meh! Ofrer ikke 10% på det. Men jeg kikker på om jeg skriver et lite script for BulkSMS.com.

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.

Er vel ingen grunn til å tro at disse er mindre seriøse enn andre tilsvarende tjenester.

Det så veldig lovende ut! For sent, men må teste det likevel.

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.