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

Skript som gir totalverdi (telleverk)


Beerpal

Anbefalte innlegg

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. :)

 

 

Lenke til kommentar
Del på andre sider

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 av Beerpal
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.