MrTiger

ah, ser nå at der også er en skill for homeseer i alexa.com

Jon00 sin helper..er ikke det echo SKILL helper, eller er det en anne skill?

Har egentlig gjort det allerede og lurer da på hva er poenget med Alexa skill helper... Man slipper jo med en kortere setning med en virtuell device.

Hva mener du med direkte...

Er det noen andre muligheter til og styre en event(hs3) med alexa enn å bruke plugin`en til jon00(echo skill helper)?

Hvis det ikke er for seint, så tar jeg 1 stk dot. Farge er ubetydelig.

hadde satt inn feil id på realtime devicen i scriptet, når jeg fikk satt inn riktig begynte det å fungere. Har litt problemer med å få den til å lese riktig kw, så jeg tester ut litt forskjellige parametere.

Prøvde og lagre den i .vb i steden for .txt og da får jeg denne feilmeldingen. Running script C:\Program Files (x86)\HomeSeer HS3\scripts\northq.vb :Exception has been thrown by the target of an invocation.Arithmetic operation resulted in an overflow.

Det ser slik ut.

joda, det står at den mangeler/ forventer ) i første linje, men ser ikke hel problemet. Dette er srciptet. Sub Main(params as Object) Dim devRefNow as Integer = 880 Dim devRefPrev as Integer = 877 Dim devRefWatts as Integer = 876 Dim devRefWattsDayHi as Integer = 878 Dim devRefWattsDayLo as Integer = 879 Dim dateNow As Date = hs.DeviceLastChangeRef(devRefNow) Dim datePrev As Date = hs.DeviceLastChangeRef(devRefPrev) Dim kWhNow as Double = hs.DeviceValueEx(devRefNow) Dim kWhPrev As Double = hs.DeviceValueEx(devrefPrev) Dim wattsDayHi As Integer = hs.DeviceValueEx(devRefWattsDayHi) Dim wattsDayLo As Integer = hs.DeviceValueEx(devRefWattsDayLo) Dim watts As Integer = Math.Round(1000 * (kWhNow - kWhPrev) / dateNow.Subtract(datePrev).TotalHours, 0) hs.writelog("NorthQ","NorthQ VP - Current kWh: " & kWhNow & " Previous kWh: " & kWhPrev & " Current W: " & watts) hs.SetDeviceValueByRef(devRefWatts, watts, True) hs.SetDeviceString(devRefWatts, watts & " W", False) hs.SetDeviceValueByRef(devRefPrev, kWhNow, True) hs.SetDeviceString(devRefPrev, kWhPrev & " kWh", False) if wattsDayHi < watts then hs.SetDeviceValueByRef(devRefWattsDayHi, watts, True) hs.SetDeviceString(devRefWattsDayHi, watts & " W", False) End if if wattsDayLo > watts then hs.SetDeviceValueByRef(devRefWattsDayLo, watts, True) hs.SetDeviceString(devRefWattsDayLo, watts & " W", False) End if End Sub

Gikk greit når jeg brukte laptop'en.

Er hjemme igjen og har prøvd litt fram og tilbake med dette scriptet. Får opp denne feilmeldigen i loggen til hs3 når jeg kjører det Running script, script run or compile error in file: C:/Program Files (x86)/HomeSeer HS3/scripts/northq.txt1006:Expected ')' in line 1 More info: Expected ')' Hva betyr dette?

Hvordan går det med dette prosjektet?

Ah, ser at de 5 første linjene er borte i første post? Sikkert jeg som har rotet det litt til det:) når jeg ser litt lengre ned i posten er scriptet komplett. Da gir det litt mer mening:) etter de 5 første linjene er det 6 linjer til, er det for og lage en graf? Setter pris på hjelpen karer:)

Er det en eller to devicer i den linjen der. hvis det er en, er det slik den skal se ut hvis device ID er a1 hs.writelog("A","1 - Current kWh: " & kWhNow & " Previous kWh: " & kWhPrev & " Current W: " & watts Hvis det er 2 device hs.writelog("A1","a2 - Current kWh: " & kWhNow & " Previous kWh: " & kWhPrev & " Current W: " & watts Vet heller ikke om det er hele scriptet:(

Takk, men ser ikke helt hvor jeg setter in device id (f.eks ID A1) in i the scriptet som jeg postet.

Kan du forklare det litt mer nøyaktig:) jeg forstod det ikke helt.

Lagrer jeg scriptet i notepad+ og kaller opp scriptet med et event? og, hva med device'ene.?

Device'ene

OK, ser it som det er parameter 9, får prøve det når jeg er hjemme igjen. en annen ting jeg lurer på også. Har funnet en Code på hs forumet som skal gi noen fler devicer. Hvor legger jeg inn denne koden og hvordan lager jeg de tilhørende devicene? Er en stund siden jeg gjorde dette og har glemt det litt:( ub Main(params as Object) Dim dateNow As Date = hs.DeviceLastChangeRef(devRefNow) Dim datePrev As Date = hs.DeviceLastChangeRef(devRefPrev) Dim kWhNow as Double = hs.DeviceValueEx(devRefNow) Dim kWhPrev As Double = hs.DeviceValueEx(devrefPrev) Dim wattsDayHi As Integer = hs.DeviceValueEx(devRefWattsDayHi) Dim wattsDayLo As Integer = hs.DeviceValueEx(devRefWattsDayLo) Dim watts As Integer = Math.Round(1000 * (kWhNow - kWhPrev) / dateNow.Subtract(datePrev).TotalHours, 0) hs.writelog("NorthQ","NorthQ VP - Current kWh: " & kWhNow & " Previous kWh: " & kWhPrev & " Current W: " & watts) hs.SetDeviceValueByRef(devRefWatts, watts, True) hs.SetDeviceString(devRefWatts, watts & " W", False) hs.SetDeviceValueByRef(devRefPrev, kWhNow, True) hs.SetDeviceString(devRefPrev, kWhPrev & " kWh", False) if wattsDayHi < watts then hs.SetDeviceValueByRef(devRefWattsDayHi, watts, True) hs.SetDeviceString(devRefWattsDayHi, watts & " W", False) End if if wattsDayLo > watts then hs.SetDeviceValueByRef(devRefWattsDayLo, watts, True) hs.SetDeviceString(devRefWattsDayLo, watts & " W", False) End if End Sub

Slik som i denne guiden? http://beebom.com/how-install-georestricted-apps-iphone/ mente at jeg så et eller annet sted en enklere måte og gjøre det på.

Hvordan får jeg installert alexa appen på telefonen? Får bare opp denne feilmeldingen når jeg prøver

Hvordan får jeg slettet 3114,092 kW til 0KW igjen?

Denne

fikk en ny idag strømmåler idag og etter det jeg kan se er den på 1000imp/kwh