Bruker denne eventen:
Dette scriptet:
Public Sub Main(params As Object)
Dim OldMalerstandh As Double
Dim NowMalerstandh As Double
Dim Forbrukh As Integer
OldMalerstandh = CDbl(hs.GetVar("forbrukh"))
NowMalerstandh = hs.DeviceValueEx(416)
Forbrukh = CInt(NowMalerstandh - OldMalerstandh)
hs.SetDeviceValueByRef(657, Forbrukh, True)
hs.SetDeviceString(657, Forbrukh & " Kwh", True)
hs.SaveVar("forbrukh", NowMalerstandh)
End Sub
Så har jeg en global variable som husker siste måling:
Og en Virtuell device hvor forbruket lagres, denne logges i Device history:
Ser jeg har klippet noe fra forbruktime og noe fra forbrukdøgn, men det er bare bruke samme navn alle steder i ditt oppsett.