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

Vinnerliste

  1. Moskus

    Moskus

    Administrator


    • Poeng

      3

    • Innlegg

      16 801


  2. ZoRaC

    ZoRaC

    Crew


    • Poeng

      1

    • Innlegg

      5 744


  3. xibriz

    xibriz

    VIP


    • Poeng

      1

    • Innlegg

      1 289


  4. Arne Johnny

    Arne Johnny

    Medlemmer


    • Poeng

      1

    • Innlegg

      278


Populært innhold

Viser innholdet med mest poeng fra 20. sep. 2020 i alle områder

  1. 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 = "DIN@EPOSTADRESSE.HER" 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å.
    1 poeng
  2. Jo... men det er litt som å kunne sy. Å sy er ikke vanskelig, men å tre den helvetes nåla er! Samme med lodding. Det er så smått og puslete og man får lyst til å hive alt i veggen etter 3 sekunder...
    1 poeng
  3. Dette ga meg et spark i ræva for å få fikset alternativ løsning (ble en ESPhome-løsning) på den eneste integrasjonen jeg brukte IFTTT til. Så nå er kontoen på IFTTT slettet. Mest av prinsipp og for å bruke det eneste jeg har av markedsmakt. Enig med @stigvi i at dette kan være en fordel på sikt
    1 poeng
  4. I sin enkleste form: Sub Main(Byval params as Object) Dim url as String = "http://kamera-URL/bilde.jpg" Dim filename as String = "C:\Program Files (x86)\HomeSeer HS3\html\kamera.jpg" Dim _username as String = "" Dim _password as String = "" My.Computer.Network.DownloadFile(url, savename, _username, _password, False, 4000, True) End Sub
    1 poeng
  5. Litt moro med rutiner i Google assistant. Praktisk er det også! Må høres med lyd.
    1 poeng
  6. Jeg har ikke kommet til automatisjonen enda, så foreløpig er det bare en del: https://www.komplett.no/product/1137549/tv-lyd-bilde/tv-video/bord-og-veggfeste/iiglo-motorisert-tv-stativ-tvl1002 https://www.kjell.com/no/produkter/lyd-og-bilde/tv-tilbehor/tv-feste/tv-stativ/motorisert-stativ-for-tv-32-65-p30094
    1 poeng
  7. Fjernstyring av min eldre Carrier varmepumpe.. ESP8266 + IR + DS18B20 (DS18B20 for å måle utblåsningstemp) Var heldig å fant 5VDC i kretskortet for innedelen. ESP8266 fikk også fint plass i den originale boksen 😉 Satte inn en Fibaro plugg for å kunne måle strømtrekken i tillegg. https://www.domoticz.com/wiki/ESPEasy_Aircondition_Inverter_IR_control
    1 poeng
  8. Startet på prosjekt gedigen blomsterkasse i påsken. Selvfølgelig med automatisk vanning og indirekte ledstrips med wled programvare. Dimmet ned når det ikke er bevegelse og dimmer opp ved aktivitet. Da ble det led på gjerdet også. på gårdsplassen Sent from my iPhone using Tapatalk
    1 poeng
  9. Satt opp fast månedlig backup av UZB1: #!/bin/bash sudo /home/uzb1backup/ZMESerialUpdater/arm/ZMESerialUpdater serialapi_ripnvm -d /dev/ttyACM0 ~/HS3Backup/UZB1-backup.bin Har ikke fått testet restore enda da... Men har en UZB1-pinne i reserver også. Den er nyere og kjører trolig nyere firmware, så litt usikker på hva jeg skal gjøre med det - nedgradere den eller oppgradere den andre (kjører 5.06 på den jeg bruker og tidligere støttet ikke HS 5.07 eller nyere, så vet ikke helt hva status er på det nå?).
    1 poeng
Vinnerlisten er satt til Oslo/GMT+01:00
×
×
  • 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.