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

SCRIPT: MotionLog.vb - Logg bevegelser til en device


Anbefalte innlegg

Sitter remote på jobb og tester dette scriptet ?

 

Hvordan stiller jeg inn sånn at status kolonnen ikke "bryter tekst", dvs havner på flere linjer, men heller utvider kolonnen?

 

image.png.30b7922aaa38731ed3a5bad03edfc5ad.png

 

De kommer på en linje dersom jeg velger å vise flere devicer, hvor kolonnen da blir utvidet av en av de andre devicene.

 

Lenke til kommentar
Del på andre sider

19 timer siden, bio skrev:

Hvordan stiller jeg inn sånn at status kolonnen ikke "bryter tekst", dvs havner på flere linjer, men heller utvider kolonnen?

Du får "skjule" (filtrere bort) den devicesn som tar opp all plassen i "Control"-kolonnen, så ordner det seg.

Lenke til kommentar
Del på andre sider

Du får "skjule" (filtrere bort) den devicesn som tar opp all plassen i "Control"-kolonnen, så ordner det seg.
Aha, selvfølgelig! Det var Home Connect stekeovn VDen med alle status controls fra ifttt. Har ikke justert status graphics settings på den enda:)

Slipper vel kanskje den løsningen med Home Connect snart? [emoji16]

Takk for hjelpen, og takk for scriptet!

Sent fra min SM-N960F via Tapatalk

Lenke til kommentar
Del på andre sider

  • 1 måned senere...

Oppdaget noe rart med loggen idag.

 

Av og til så logges det dobbelt og vell så det.

image.png.964b6a97fb3df3317320b2fe94627372.png

 

Sensoren har reset tid på 10 sekunder, og script trigges bare på had its value set to Motion.

Fungerte som det skal 2 minutter tidligere, og ved neste trigging igjen.

 

Noe tilsvarende skjedde med en annen sensor tidligere idag.

Hva kan være grunnen?

 

Spoiler

Public Sub Main(ByVal input As Object)
        Dim logDeviceRef As Integer = 743 ' Update this
        Dim count As Integer = 9 'Maximum number of lines shown on the device - 1. 9 means 10 lines are shown

        Dim currentText As String = hs.DeviceString(logDeviceRef)
        currentText = currentText.Replace("<br>", "|")
        Dim lines() As String = currentText.Split("|")
        If lines.GetLength(0) < count Then count = lines.GetLength(0)
        Dim oldLines(count - 1) As String
        Array.Copy(lines, oldLines, count)

        'Creating the device text
        Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString
        If lines.GetLength(0) > 0 And lines(0) <> "" Then newText &= "<br>"

        'Adding the previous lines
        newText &= String.Join("<br>", oldLines)

        'Updating the device string
        hs.SetDeviceString(logDeviceRef, newText, True)
        'hs.TriggerEvent("Restart SisteBeveglse timer")

        lines = Nothing
        oldLines = Nothing
    End Sub

 

 

Lenke til kommentar
Del på andre sider

  • 9 måneder senere...
  • 1 måned senere...
49 minutter siden, JohnMartin skrev:

Eller evt droppe dato og kun vise tid?


Endre denne:

Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString

 

Til:

Dim newText As String = Now.ToLongTimeString & " - " & input.ToString

Bør gjøre susen. :) 

  • Like 2
Lenke til kommentar
Del på andre sider

Du kan få enda flere muligheter til å tilpasse datoformatet hvis du bruker .ToString().

Dermed erstatter du dette:

Dim newText As String = Now.Date & " " & Now.ToLongTimeString & " - " & input.ToString

 

Med dette:

Dim newText As String = Now.ToString("dd.MM.yy HH:mm:ss") & " - " & input.ToString

... og endrer datoformatet til det som passer deg.

"dd.MM HH:mm" gir "23.10 09:17"

'"HH:mm:ss" gir "09:17:23"

... og så videre.

  • Like 2
Lenke til kommentar
Del på andre sider

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

×
×
  • 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.