Beerpal Skrevet 12. november 2018 Del Skrevet 12. november 2018 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. Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Moskus Skrevet 13. november 2018 Del Skrevet 13. november 2018 Dette er nesten umulig å svare på uten å vite hvilke input du har. Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Beerpal Skrevet 13. november 2018 Forfatter Del Skrevet 13. november 2018 (endret) 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 Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Beerpal Skrevet 14. november 2018 Forfatter Del Skrevet 14. november 2018 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? Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Moskus Skrevet 15. november 2018 Del Skrevet 15. november 2018 Hvis du skal kjøre scriptet hvert minutt, så skal du bare velge noe á la dette: Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Beerpal Skrevet 16. november 2018 Forfatter Del Skrevet 16. november 2018 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 1 Siter Lenke til kommentar Del på andre sider Flere delingsvalg…
Anbefalte innlegg
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.