Energy script hulp gevraagd

[Karell]

als ik hem in een vb zet krijg ik dit

As System.Object' cannot be called with these arguments: Argument matching parameter 'parms' cannot convert from 'Integer()' to 'Object()'.

[Karell]

deze werkt hehe

Sub Main(ByVal parm As String)
Dim ReturnValue

ReturnValue = hs.PluginFunction("Plugwise Pro", "", "GetTotalPower", {"3382"})
hs.writelog("script", "" & ReturnValue)
End Sub

[Karell]

Hoi stef,

is het ook mogelijk om de total value te resetten via een script ?

groet

[stefxx]

Hoi Karel,

Nee dat kan niet. Er zit wel een optie "verstopt" in de device properties (table Plugwise Pro), als je daar een vinkje zet dan zet hij de teller in HS3 op nul. Maar de eigenlijke teller zit in de plug zelf, en die kan de plugin niet resetten. Probleem is dus een beetje dat als de plugin nog niet helemaal "leeg" gelezen is en je hem op 0 zet er toch nog oude data bij komt.

Je kunt overigens in hetzelfde tabje zien of de energy helemaal gelezen is. Als "Logaddress" en "Logaddress (processed)" dezelfde waardes bevatten, is je energie totaal helemaal bij.

Overigens is het niet al te lastig om hier ook een script functie van te maken. Maar als je de data van gisteren hebt, kun je ook "gewoon" die twee waardes van elkaar aftrekken toch? Lijkt me een stuk netter.

[Karell]

ja daar heb je gelijk in ,

ik heb een script maar er is een probleem, hij trekt de ene waarde van de andere niet af.. hier mijn voorbeeld

If CurntRead >= LastRead Then
Used = Meterdecimal - LastRead
hs.SaveINISetting("PowerMeter", "LastRead",Meterdecimal, IniFile)

Meterdecimal = 1.40
LastRead = 1.30

dan krijg ik als uitkomst bij (used) 0 het lijkt erop dat hij de decimalen niet ziet maar hoe kan ik dat oplossen?

dit is het script

Code: Select all

Sub Main(ByVal Parms As Object)
dim Meterdecimal 
dim MeterDev As string = hs.PluginFunction("Plugwise Pro", "", "GetTotalPower", {"3382"})


Meterdecimal = (FormatNumber(MeterDev / 1, 2))


dim Lastread1 as string = hs.getINISetting("Powermeter", "LastRead", "",IniFile)
hs.WriteLog("Lastread1", Lastread1) 

hs.WriteLog("MeterDev", MeterDev)

hs.WriteLog("Meterdecimal", Meterdecimal)
    'Get current and last readings then calculate used value 
    Dim LastRead As Integer 
    Dim CurntRead As Integer 
    Dim Used As Integer 
	
	
    Try 
        LastRead = lastread1
        CurntRead = Meterdecimal
		
        If CurntRead >= LastRead Then 
            Used = Meterdecimal - LastRead 
            hs.SaveINISetting("PowerMeter", "LastRead",Meterdecimal, IniFile) 
        Else 
            hs.WriteLog("PowerMeter", "Error. Current reading is less than last reading!") 
        End If 
    Catch ex As Exception 
        hs.WriteLog("PowerMeter", "Error getting current reading " & ex.ToString) 
        Exit Sub 
    End Try 

    hs.WriteLog("Used", used)
End Sub 

[stefxx]

Integer zijn altijd hele getallen. Gebruik eens een Double?

[Karell]

Klopt helemaal vergeten , Bedankt nog voor de hulp!

Nu kan ik even alle scripts instellen en dan meteen op vakantie gaan