Korleis lagre script og kjøre det i homeseer?

[Join]

Hei!

 

Utvikleren til Device History plugin-et har vore meget serviceinnstilt og levert kode for å hente ut gjennomsnittsverdi frå sist time og skrive verdien til et virtuellt device.

 

På denne måten kan eg sammenligne direkte med en verdi, istedenfor å gjennomsnittsberegne for kvar enkelt funksjon.

 

Koden er som følger:

 

 

Public Sub UpdateHourlyStats(parms As String)

Dim intSourceRef As Integer Dim intDestRef As Integer Dim dtmFrom As Date Dim dtmTo As Date Dim strDeviceStats As String Dim astrStats() As String Const IDX_STATS_MIN As Integer = 0 Const IDX_STATS_MAX As Integer = 1 Const IDX_STATS_AVG As Integer = 2 Const IDX_STATS_COUNT As Integer = 3 Dim dblMin As Double Dim dblMax As Double Dim dblAvg As Double Dim intCount As Integer 'figure out the parameters intSourceRef = CType(parms.Split(";")(0), Integer) intDestRef = CType(parms.Split(";")(1), Integer) dtmTo = Date.Now dtmFrom = dtmTo.AddHours(-1) hs.WriteLog("Device History", "Getting updated stats for device " & intSourceRef & " from '" & dtmFrom.ToString() & "' to '" & dtmTo.ToString() & "' ...") 'Ask the plugin for the stats strDeviceStats = hs.PluginFunction("Device History", "", "GetRangeStats", {intSourceRef.ToString(), dtmFrom.ToString(), dtmTo.ToString()}) 'Parse the response into discrete variables astrStats = strDeviceStats.Split("|") If astrStats.Length() = 4 Then

dblMin = astrStats(IDX_STATS_MIN) dblMax = astrStats(IDX_STATS_MAX) dblAvg = astrStats(IDX_STATS_AVG) intCount = astrStats(IDX_STATS_COUNT) 'Do something with the output hs.WriteLog("Device History", "Device " & intSourceRef & " ranged from " & dblMin & " to " & dblMax & ", with an average value of " & dblAvg & " taken from " & intCount & " changes.") hs.WriteLog("Device History", "Updating device " & intDestRef & " with value " & dblAvg) hs.SetDeviceValueByRef(intDestRef, dblAvg, True)

Else

hs.WriteLog("Error", "Retrieval of stats for device " & intSourceRef & " failed.")

End If

End Sub

 

Korleis lagre som .vb fil?

 

 Og så må eg ha litt rettleiing på kva som er rett device-ref. 

 

Er det root-device, eller ref på funksjoner etc.

 

Edit: I tillegg ser det ut til eg også må lære å legge inn kode som skjult tekst og rett formatering, slik som de andre bruker. 

Endret 7. november 2021 av Join

[Moskus]

Har du sett denne:

 

...og det ser ut som om du må formatere koden din. Den der klarer jeg ikke lese uten altfor mye innsats.

 

On 07/11/2021 at 11:40, Join said:

Og så må eg ha litt rettleiing på kva som er rett device-ref. 

https://www.hjemmeautomasjon.no/forside/guider/homeseer/homeseer-skolen-del6/

[Join]

Moskus skrev (4 timer siden):

Har du sett denne:

 

...og det ser ut som om du må formatere koden din. Den der klarer jeg ikke lese uten altfor mye innsats.

 

 

Slik? Eg skal ta meg ein tur på skulen.

Public Sub UpdateHourlyStats(parms As String)
Dim intSourceRef As Integer
Dim intDestRef As Integer
Dim dtmFrom As Date
Dim dtmTo As Date

Dim strDeviceStats As String
Dim astrStats() As String

Const IDX_STATS_MIN As Integer = 0
Const IDX_STATS_MAX As Integer = 1
Const IDX_STATS_AVG As Integer = 2
Const IDX_STATS_COUNT As Integer = 3

Dim dblMin As Double
Dim dblMax As Double
Dim dblAvg As Double
Dim intCount As Integer

'figure out the parameters
intSourceRef = CType(parms.Split(";")(0), Integer)
intDestRef = CType(parms.Split(";")(1), Integer)
dtmTo = Date.Now
dtmFrom = dtmTo.AddHours(-1)

hs.WriteLog("Device History", "Getting updated stats for device " & intSourceRef & " from '" & dtmFrom.ToString() & "' to '" & dtmTo.ToString() & "' ...")

'Ask the plugin for the stats
strDeviceStats = hs.PluginFunction("Device History", "", "GetRangeStats", {intSourceRef.ToString(), dtmFrom.ToString(), dtmTo.ToString()})

'Parse the response into discrete variables
astrStats = strDeviceStats.Split("|")
If astrStats.Length() = 4 Then
dblMin = astrStats(IDX_STATS_MIN)
dblMax = astrStats(IDX_STATS_MAX)
dblAvg = astrStats(IDX_STATS_AVG)
intCount = astrStats(IDX_STATS_COUNT)

'Do something with the output
hs.WriteLog("Device History", "Device " & intSourceRef & " ranged from " & dblMin & " to " & dblMax & ", with an average value of " & dblAvg & " taken from " & intCount & " changes.")
hs.WriteLog("Device History", "Updating device " & intDestRef & " with value " & dblAvg)
hs.SetDeviceValueByRef(intDestRef, dblAvg, True)
Else
hs.WriteLog("Error", "Retrieval of stats for device " & intSourceRef & " failed.")
End If
 
End Sub

 

Takk for push, fann knapp for "kode" på verktøylinja på innlegg.

Device ref, blir det det samme som Device Id. Dette virker logisk.

 

I tillegg fekk eg tips om korleis kjøre script (må prøve meg fram med eit intervall som er ofte nok, men uten å overlaste serveren): Vedlagt bilde.

 

 

Sourceref blir Tibberseer Power (Deviceref 212) og Destsourceref blir det virtuelle devicet med det korte navnet "Live snittforbruk kWh sist time" (Deviceref 54)?

 

Eg må sjekke om det er riktig innstilling på devicet, men har lagt inn det skal vere 3desimaler og benevnelsen kWh på slutten, då burde det kunne få gjennomsnittsverdi frå scriptet.

 

Mvh

Endret 8. november 2021 av Join
Meir info. Ny lærdom. Bytte av teskje.

[Moskus]

16 hours ago, Join said:

Device ref, blir det det samme som Device Id. Dette virker logisk.

Ja, det er bare synd at i kildekoden deres heter det Device Reference, mens i UIet heter det Device ID. Men det er det samme nummeret, ja.

[Join]

Hei!

 

Kan noken fortelle meg meininga med dette her:

---------

Save this in a .vb file in your Scripts directory then create a recurring event that runs a script using the .vb file and the UpdateHourlyStats function with the source ref and destination ref separated by ";":

-----------

Eg finn ikkje rett plass i scriptet ved å sjå på det..

Sourceref skal vere 212

Destsourceref skal vere 54

 

Korleis skal dette skrives korrekt i koden?

 

Mvh

[Moskus]

Det er de nederste feltene her:

...hvor Sub or Function skal settes til "UpdateHourlyStats" uten sitatmerker, og Parameters skal være "212;54" uten sitatmerker.

[Join]

Moskus skrev (1 time siden):

Det er de nederste feltene her:

...hvor Sub or Function skal settes til "UpdateHourlyStats" uten sitatmerker, og Parameters skal være "212;54" uten sitatmerker.

Dvs scriptet skal vere uforandret, kun lagre det som .vb fil og linkes til i "kjør script" aksjonen med parameter?

 

Blir nesten som å kjøre underprogram i iso-programmering det her då. 😀 

Endret 17. november 2021 av Join

[Moskus]

4 hours ago, Join said:

Dvs scriptet skal vere uforandret, kun lagre det som .vb fil og linkes til i "kjør script" aksjonen med parameter?

Ja. Husk funksjonsnavn også.

 

4 hours ago, Join said:

Blir nesten som å kjøre underprogram i iso-programmering det her då. 😀 

If you say so.  

[Join]

Moskus skrev (På 17.11.2021 den 21.13):

Ja. Husk funksjonsnavn også.

 

#Når man kun får til å lagre .vbproj -fil og ikkje .vb ...

[Moskus]

13 hours ago, Join said:

#Når man kun får til å lagre .vbproj -fil og ikkje .vb ...

Det er en prosjektfil, du har flere filer enn det. Eller du kan opprette en tekstfil, kopiere over innholdet og endre endelsen fra .txt til .vb.

[Join]

Heihei.

 

God helg.

 

Eg har trøbbel med å få igang scriptet mitt..

 

Har de tips til mulig feil som kan oppstå her?

 

target device (54) har 0,000kWh som verdi.

 

Mistenker at scriptet ikkje kjører. 

 

 

Mvh

[Gjelsvik]

Legg ut hva som står på linje 1 i filen. Alle paranteser som "åpnes" med ( må også lukkes med en )

 

Også ser det ut som at filnavnet ditt nå er "kwh sist time.vb.txt" endelsen må være bare .vb ellers så er det per def fortsatt en txt fil.

 

Er det effekt (kw) eller mengden (kwh) du ønsker å ta ut et gjennomsnitt av? Har selv en utregning av kwh, men den gjør jeg ved å lese av tibber total consumption devicen hver hele time, og trekke fra forrige times verdi. Da får du kwh brukt den siste timen.