Telling med counters

[GeneralVirus]

Jeg teller antall ganger vaskemaskinen har vært i bruk denne uken og denne måneden. 

 

Men jeg skulle gjerne lagret hvor mange ganger den har vært i bruk hver uke/måned, har det nå slik at counteren resettes hver søndag. Noen tips til hvordan jeg får lagret dette? Det er egentlig nok å vite hvor mange ganger den ble brukt forrige uke og forrige mnd. Hadde jeg bare kunne kopiert over value til counteren over til en ny counter eller device. 

Endret 13. januar 2019 av GeneralVirus

[ZoRaC]

Har du EasyTrigger? I så fall kan du bare lage 4 ekstra devicer og plusse sammen uke 1, 2 og 3 til mnd-device. 

 

Ellers kan du vel bruke denne:

 

[Gizmo]

Akkurat nå, Gizmo skrev:

Så vidt jeg vet så vil ikke det fungere siden countere ikke har en device. Men du kan bruke et enkelt script å lagre verdien til en counter til en device. 

Jeg er rimelig fersk her, men har et script som jeg bruker til dette. Det lagrer verdien til counteren bevegelser til en virtuell device ( i mitt tilfelle device 1188).

 Sånn ser det ut: 

 

Sub Main(parm As Object)
    Dim value As Double = hs.CounterValue("bevegelser")
    Dim str As String = hs.CounterValue("bevegelser")
    hs.waitsecs(1)
    hs.SetDeviceValueByRef(1188, value, True)
    hs.SetDeviceString(1188, str, True)
End Sub

Så du kan bytte ut "bevegelser" med navnet på din counter (men behold "hermetegnene")

Bytt ut 1188 med devicenummeret du vil lagre verdien til. 

 

 

 

[GeneralVirus]

Takk @Gizmo!

Funker som bare!

 

@ZoRaC Testet clonedevice først, men fikk det ikke helt til. Tror ikke counter og timer devicene er helt slik som de vanlige.

[GeneralVirus]

Fikset litt på scriptet slik at det er lettere å gjenbruke.

Sett inn counternavn og deviceref til devicen man skal kopiere til skilt med en "|" i parameter i HS eventet.

Sub Main(ByVal parms As String)
	Dim ref() As String = Split(parms.ToString, "|")
	Dim value As Double = hs.CounterValue(ref(0))
	Dim str As String = hs.CounterValue(ref(0))
	hs.waitsecs(1)
	hs.SetDeviceValueByRef(ref(1), value, True)
	hs.SetDeviceString(ref(1), str, True)
	End Sub

 

[Moskus]

1 time siden, GeneralVirus skrev:

Hadde jeg bare kunne kopiert over value til counteren over til en ny counter eller device.

Det kan du.

hs.SetDeviceValueByRef(NEW_DEVICE_REF, hs.DeviceValueEx(OLD_DEVICE_VALUE), True)

 

 

... men hele greia er kanskje tøffest om du logger til fil før du resetter hver søndag. Så får du uketall.

[GeneralVirus]

1 minute ago, Moskus said:

Det kan du.

hs.SetDeviceValueByRef(NEW_DEVICE_REF, hs.DeviceValueEx(OLD_DEVICE_VALUE), True)

 

 

... men hele greia er kanskje tøffest om du logger til fil før du resetter hver søndag. Så får du uketall.

 

Prøvde det men den oppførte seg ikke da som en vanlig counter, med at man kan legge til og trekke fra. Så valgte da å bare bruke en "vanlig" device.

 

Tenkte tanken å logge til en fil, men så tenkte jeg litt mer på det å kom frem til at jeg neppe kom til å bruke det noen gang. ? Så klarer meg med forrige uke og forrige mnd.