Skript som gir totalverdi (telleverk)

[Beerpal]

Hei

 

Jeg trenger litt dytt i riktig retning, da det er noe ikke jeg klarer å finne ut av.

 

Jeg har laget et skript oppgir nåværende forbruk på vannbåren gulvvarme. (Jeg har trykkregulert pumpe og kan derfår oppgi fast liter pr min til de som lurte)

 

Sub Main(Byval params as Object)

'Biblotek
hs.SetDeviceValueByRef(1576, (1.162*(hs.DeviceValueEx(415)/255*1.8*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Stue
hs.SetDeviceValueByRef(1578, (1.162*(hs.DeviceValueEx(417)/255*1.2*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Kjøkken
hs.SetDeviceValueByRef(1579, (1.162*(hs.DeviceValueEx(416)/255*4.7*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Kontor
hs.SetDeviceValueByRef(1580, (1.162*(hs.DeviceValueEx(418)/255*2.8*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Bad 1. etg
hs.SetDeviceValueByRef(1581, (1.162*(hs.DeviceValueEx(419)/255*1.4*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Gang
hs.SetDeviceValueByRef(1582, (1.162*(hs.DeviceValueEx(420)/255*3.6*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Sum alle kurser
hs.SetDeviceValueByRef(1583, (hs.DeviceValueEx(1578)+hs.DeviceValueEx(1580)+hs.DeviceValueEx(1579)+hs.DeviceValueEx(1582)+hs.DeviceValueEx(1576)+hs.DeviceValueEx(1581)), True)

End Sub

 

Det jeg nå ønsker er at jeg kan se totalt i dag,  i går, denne uken osv.

 

Tusen takk for et flott forum.

 

 

[Moskus]

Dette er nesten umulig å svare på uten å vite hvilke input du har.  

[Beerpal]

1 time siden, Moskus skrev:

Dette er nesten umulig å svare på uten å vite hvilke input du har.  

'Gang
hs.SetDeviceValueByRef(1582, (1.162*(hs.DeviceValueEx(420)/255*3.6*60*(hs.DeviceValueEx(188)-hs.DeviceValueEx(189)))), True)

'Sum alle kurser
hs.SetDeviceValueByRef(1583, (hs.DeviceValueEx(1578)+hs.DeviceValueEx(1580)+hs.DeviceValueEx(1579)+hs.DeviceValueEx(1582)+hs.DeviceValueEx(1576)+hs.DeviceValueEx(1581)), True)

Device 1582 viser Watt fra utregning fra Device 420 som er på(255) og av(0) gulvvarme kurs, dette er en lhc-5020. Device 188 og 189 er verdi fra Arduino API som er one  wire temperaturføler.

Device 1583 er summen i kW av alle kursene.

 

 

Takk for svar

Endret 13. november 2018 av Beerpal

[Beerpal]

Det jeg prøver på er at dette skriptet kjøres 1 gang pr minutt

Og ser noe slikt ut:

Sub Main(parm As Object)
hs.SetDeviceValueByRef(1587, (hs.DeviceValueEx(1587) + (hs.DeviceValueEx(1583)/60))
End Sub

 

Hvordan får jeg dette til?

[Moskus]

Hvis du skal kjøre scriptet hvert minutt, så skal du bare velge noe á la dette:

[Beerpal]

Jeg fikk det til. 

Jeg manglet "Byval" og ", True"

 

Slik måtte det se ut : 

 

Sub Main(Byval params as Object)
     hs.SetDeviceValueByRef(1587, (hs.DeviceValueEx(1587) + (hs.DeviceValueEx(1583)/60)), True)
End Sub