Søk i nettsamfunnet

Jeg har forsøkt meg på å få vist forbruk i kr pr dag på noen devicer som jeg har strømmåling på. Min første tanke var å kjøre dette som SQL-spørringer direkte mot Device History-databasen, men det stoppet seg litt da det ble noe for komplisert for min begrensede SQL-kunnskap. (Spørringen må hente ut alle registreringer innenfor en klokketime, og så regne ut hvor mange kwh det er innenfor denne timen, eventuelt så må den trekke fra maks forrige time fra maks denne timen og vise forskjellen som jeg så kan gange med strømprisen den timen - hvis noen er god på SQL og har en enkel løsning på dette tar jeg imot med åpne armer) Så, leste jeg en post her som jeg ikke finner igjen om å skrive en verdi til en virtuell device. - Det kunne kanskje vært enklere, så hvis jeg kunne fått lage en virtuell device som kun hadde antall kWh forbrukt pr time, så kunne jeg nok enklere gange verdien i denne med strømprisen - muligens, hvis jeg skjønner hvordan jeg skal spørre på en spesifikk time Jeg har søkt endel, for jeg tenkte dette var noe noen hadde gjort før, men har egentlig ikke funnet noe som passer helt. Er det noen som har gjort dette, eller har et forslag til hvordan det kan løses? Har begrensede SQL-kunnskaper og lite vbscript-kunnskaper ....

hei hei Har en industri tempføler som har egen web server. Er det mulig å hente info fra denne inn i Fibaro med bruk av XML eller txt ? har prøvd meg med flere lua koder men får bare feil meldinger. Kan noen hjelpe meg på rett vei? Temperatur = Net.FHttp("192.168.1.26") Temperatur, status, errorCode = temperatur:GET("/command.php?action=get&variable=temperatur") fibaro:debug(status.."-"..errorCode) fibaro:log("Aktuell temp "..temp) fibaro:debug("Aktuell temp = "..temp) short_temp = string.sub(temp, ,1 ,1) fibaro:call(541,"setProperty", "ui.Temp1.value","Temp: "..short_temp.."C") Sensors Values, (n = 1..x) ---------------------------------------------------- .1.3.6.1.4.1.21796.4.9.3.1.1.n Sensor Index (integer, NUM (1..x)) .1.3.6.1.4.1.21796.4.9.3.1.2.n Sensor Name (string, SIZE (0..16)) .1.3.6.1.4.1.21796.4.9.3.1.3.n Sensor State (integer, 0=Invalid, 1=Normal, 2=OutOfRangeLo, 3=OutOfRangeHi, 4=AlarmLo, 5=AlarmHi) .1.3.6.1.4.1.21796.4.9.3.1.4.n Sensor String Value (string, SIZE (0..10)) .1.3.6.1.4.1.21796.4.9.3.1.5.n Sensor Value (integer, current value *10) .1.3.6.1.4.1.21796.4.9.3.1.6.n Sensor SN (string, SIZE (0..16)) .1.3.6.1.4.1.21796.4.9.3.1.7.n Sensor Unit (integer, 0=unknown, 1=°C, 2=°F, 3=°K, 4=%) .1.3.6.1.4.1.21796.4.9.3.1.8.n Sensor ID (integer, NUM (0..x))

Jeg ønsker å få til en virtuell device for alle vinduer, og en for dørene. Denne skal oppdateres med hvilke vinduer/dører som er åpne til en hver tid. Eventuelt om alle er lukket. Scripting er jeg ganske fersk med, så det har blitt litt copy paste fra her inne samt homeseer forumet. Fant et script som skal gjøre akkurat det jeg trenger, men jeg får warning i loggen : VB.Net script exception(0), re-starting: Object reference not set to an instance of an object Noen som har noen tips, er det noe åpenbart jeg har misset her? Til info så har jeg oppdatert scriptet med mine devicer Jeg kjører forøvrig HS3 på Raspbian. ' these are the virtual devices to be updated by the script '423 Windows '424 Doors 'Use the reference ID of the door or window sensor devices in the arrays below Public Sub Main(ByVal Parms as Object) Dim array_windows() as string = {"221", "217", "215", "213", "211"} Dim array_doors() as string = {"219", "209"} Dim windows_count as integer = 0 Dim window_name as string = "" Dim wstr as string = "" Dim doors_count as integer = 0 Dim door_name as String = "" Dim dstr as string = "" Dim dv as Object End Sub 'Using 2 subs, one for doors and the other for windows 'WINDOWS Sub windows(ByVal Parms as Object) Try windows_count = 0 window_name = "" wstr = "" for each devw as string in array_windows 'hs.writelog("Array", "Window " & window_name & " | Value " & hs.DeviceValue(devw)) if hs.DeviceValue(devw) = 1 then windows_count = windows_count + 1 dv = hs.GetDeviceByRef(devw) window_name = dv.Name(hs) wstr = wstr & window_name & ",<br>" hs.writelog("DoorWindow", window_name & " Open") 'hs.writelog("DoorWindow", array_windows) end if next If windows_count > 0 then hs.SetDeviceValueByRef(423,100,true) hs.SetDeviceString(423, wstr,true) Else hs.SetDeviceValueByRef(423,0,true) hs.SetDeviceString(423, "Alle vinduer lukket",true) End If hs.writelog("DoorWindow", "Window Count: " & windows_count) Catch ex As Exception hs.WriteLog ("DoorWindow", "Error: " & ex.Message) End Try End Sub 'DOORS Sub doors(ByVal Parms as Object) Try doors_count = 0 door_name = "" dstr = "" for each devd as string in array_doors 'hs.writelog("Array", "Door " & door_name & " | Value " & hs.DeviceValue(devd)) if hs.DeviceValue(devd) = 1 then dv = hs.GetDeviceByRef(devd) door_name = dv.Name(hs) doors_count = doors_count + 1 dstr = dstr & door_name & ",<br>" hs.writelog("DoorWindow", door_name & " Open") end if next If doors_count > 0 then hs.SetDeviceValueByRef(424,100,true) hs.SetDeviceString(424, dstr,true) Else hs.SetDeviceValueByRef(424,0,true) hs.SetDeviceString(424, "Alle dører lukket",true) End If hs.writelog("DoorWindow", "Door Count: " & doors_count) Catch ex As Exception hs.WriteLog ("DoorWindow", "Error: " & ex.Message) End Try End Sub