Ruud

Oi, er ny versjon kommet! Gleder meg til jeg kommer hjem i romjulen

Nytt ønske: Jeg ønsker meg en Device som sier hvor mange øre det er mellom billigste og dyreste time for døgnet vi er innen i! Dette skal brukes på HSTouch skjermen til kona slik at hun kan danne seg et bilder over hvor mye strømprisen endre seg i dag, den kan jo variere fra typisk 2,2 øre (20.okt.2018) til 260,1 øre (01.mars.2018)

Jeg trenger ikke datoen men klokkeslettet, dermed endret jeg "ddd dd.MM.yy" til "ddd hh:mm" men det fungerte ikke. Her kan du se hele codelinja: Dim newText As String = hs.DeviceLastChangeRef(649).ToString("ddd hh:mm") & " - " & hs.DeviceValueEx(649) & "°C" fikk dette i logen: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\Lekestue-MAX-historisk-Uke.vb :Målet forårsaket et unntak under aktivering.Konvertering fra strengen ddd hh:mm til typen Integer er ikke gyldig.

Takk Moskus. Det fungerte glimrende. Nå er jeg i en ny setting der jeg kun ønsker klokkeslettet og ikke både dato og klokkeslett? eks: Now.ToString("ddd") & " " & hs.DeviceLastChangeRef(649) & " - " & hs.DeviceValueEx(649) & "°C" gir meg dette: søn. 16.09.2018 07.09.37 - 4,4°C Jeg ønsker dette: søn 07.09.37 - 4,4°C

Jeg holder på å rediger et script og "Now.ToLongTimeString" gir meg klokkeslett akkurat nå. Jeg skulle gjerne hatt klokkeslettet fra "Last Change" på en spesifikk divice. noen som vet koden for det eller kan peke meg i retning av riktig lesestoff?

Å herre Gud, nå ble jeg flau! Det viste jeg jo.

Det har du helt sikker rett i, hvordan gjør jeg det?

Jepp - nå kjører skriptet uten feilmeldinger. På divice 626 ble "Last Change" oppdatert men, det viser ingen temperatur på devicen??

Tusen takk ZoRaC, Nå er jeg noen hak nærmere men dessverre ikke helt i mål. nå er det bare 3 feil i loggen, vet du hva jeg kan ha gjort feil? jun-30 21.42.31 Error Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\max.vb: Typen Float er ikke definert. jun-30 21.42.31 Error Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\max.vb: Typen Float er ikke definert. jun-30 21.42.31 Error Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\max.vb: Navneområdet eller typen som er angitt i importene System.Core, inneholder ikke noe felles medlem eller finnes ikke. Kontroller at navneområdet eller typen er definert og inneholder minst ett felles medlem. Kontroller at det importerte elementnavnet ikke bruker noen aliaser. Kan jeg ha gjort noe feil når jeg opprettet device 626?

mye om scripting : https://homeseer.com/support/homeseer/HS3/HS3Help/default.htm

Ja men hvordan........ jeg er virkelig dårlig på scripting, jeg kan kun å kopiere ander Sub Main(ByVal parm As Object) highTempRef = hs.GetDeviceRefByName(626) currentTempRef = hs.GetDeviceRefByName(608) highTemp = hs.DeviceValueEx(highTempRef) currentTemp = hs.DeviceValueEx(currentTempRef) If currentTemp > highTemp Then hs.SetDeviceValueByRef(highTempRef, currentTemp,true) End If Dette fungerer veldig dårlig hos meg!!!!!!!!

Dette så fantastisk ut! Jeg hadde bare mac inntil jeg kjøpte en windows10 maskin for å kjøre HomeSeer på! Kan dette installeres på mac?

Egentlig ønsker jeg å lage en device(x) som viser datoen og klokkeslette plus temperaturen fra en spesefik device(xx). Denne skal selvfølgelig kun oppdateres hvis temperaturen er høyere i device(xx) en temperaturen i device(x). Er det noen som har en fin oppskrift på dette?

Hvordan deaktivere?

Denne funksjonen synes jeg virker håpløs men kanskje er det jeg som ikke kjenner hvordan jeg bruker den. I dag sjekket jeg logen i HS og ser at jeg har mange feilmeldinger og andre oppdateringer som er relatert til enten Energy DB eller Energy database. Er det noen som skjønar og kan forklarer meg hva dette betyr?

Det blir spennende og se når og hvordan dette blir.......

Her er en mulig forklaring på null consumption: Først: Hafslund er trege, de overfører forbruk til tibber kun en gang i uka. Jeg tror de over fører data for en uke (Mandag 00:00 til Søndag 23:59) og jeg tror dette gjøres hver onsdag. MONTHLY: Her er det inngen null. Data for februar vises. DAILY: Her vises det data alle dager frem til og med søndag 4. februar, nyere dager er null HOURLY: Her vises data frem til og med time 23:00 til 23:59 søndag 4.februar, nyere timer er null Hvorfor skal Hafslund vente 1 og en halv uke med å levere data? Disse data er tilgjengelig for hver avsluttet dag på hafslundnett.no

Bra! Og hvis du nå velger "Consumption" i nedtrekksmenyen... hvordan ser det ut? Slik:

Nope, står bare not connected og så har jeg gått utifra at når den melingen forsvinner så er den connectet. Utrolig hva man finner ut rett etter at man har spurt om hjelp!!! Feil var at den ikke koblet til, som fikset på denne måten i Windows Client: Høyre klikk, Client option, fyll inn username og password, vola! Da fikk jeg Deployet til telefonen også.

Jepp det er klipp og lim fra ditt fantastiske script: LogStatusToFile.vb hmmm.. prøvde å ta vekk funksjonen - GetDeviceString, da sluttet det å virke??

Nå er jeg virkelig flau, men jeg skulle åpne bagasjerommet og sette igang arbeidet, men kommer ikke en cm. Jeg søger guiden frem til "Run Windows Client" men det virker ikke, hva i h*^&%%$ er det jeg gjør feil, har liksom prøvd 1000 ganger nå! HS3 og HSTouch Designer er på samme PC, men det burde vel gå?? Jeg tror jo at alle plugins som trengs er på plass?? Noen som har tips?

+ 1 her Ikke så lang unna her Hagan ved Gjelleråsen

Fungerte nesten, jeg får nummeret på statusen men jeg ønsker teksten som hører til nummeret. Jeg måtte skrive GetDeviceString(ID) det funket hvis jeg også la til 2 funksjoner: Function GetDeviceString(ByVal DeviceRef As Integer) As String 'Henter device string fra HS Dim devstring As String = hs.DeviceString(DeviceRef) If devstring <> String.Empty Then Return devstring 'Henter devicestring directe fra CAPI-status, hvis den finnes devstring = hs.CAPIGetStatus(DeviceRef).Status If devstring <> String.Empty Then Return devstring 'Henter devicestring fra CAPI beskrivelse (basert på value) devstring = GetCapiString(DeviceRef) If devstring <> String.Empty Then Return devstring 'Henter devicestring fra device class Dim dev As Scheduler.Classes.DeviceClass = hs.GetDeviceByRef(DeviceRef) devstring = dev.devString(Nothing) If devstring <> String.Empty Then Return devstring Return "String not found for " & DeviceRef & ", value = " & hs.DeviceValueEx(DeviceRef) End Function Function GetCapiString(ByVal DeviceRef As Integer) As String For Each CAPI As HomeSeerAPI.CAPIControl In hs.CAPIGetControl(DeviceRef) If CAPI.ControlValue = hs.DeviceValue(DeviceRef) Then Return CAPI.Label.ToString Next Return String.Empty End Function

Hm... jeg har en adresse:

Hei, jeg ønsker en ny versjon av dette scriptet, jeg prøvde å skrive det om selv men fikk det ikke helt til. Jeg har EN device som har mange statuser. Ønsker er å ha en device som viser de 10 siste statusene fra denne ene Devicen. Endring jeg ønsker er at scriptet skal skrive statusen til denne bestemte Device i stedet for teksten som skrives inn i parameter. Er et noen som gidder og endre det for meg?