bio

@HSv har nok rett. Jeg tror du skal klare å få til det du ønsker ved å bruke DeviceState.vb scriptet til@Moskus. Jeg får ikke scriptet til å fungere på Linux, men regner med du kjører HS3 på Windows?

Perfekt. Fungerer nå Da er da bare å leke seg! Tusen takk

Fikk plutselig No events scheduled.. fanga den ikke opp noe? hmm.. Kjørte gamle scriptet igjen, da kom eventene..

Skjønner ikke helt? Scriptet jeg bruker nå, som vel er uten properties om jeg skjønner riktig, sender ikke med 00:00 på heldagsevent? Har ikke prøvd med properties enda, prøver å skjønne hvordan jeg skal bruke de

Du er helt rå! Tusen takk. Skal prøve det så fort unga har sovna:)

Ok takk for info!

Er det flere her som bruker leaf-python-mqtt ifm pycarwings2 ? Mulig jeg misforstår funksjonen api update, men i config filen så står api update interval til 15 min, og jeg ser i loggen at den oppdaterer hvert 15 min og publisher til mqtt topicene. MEN, det er samme verdier som kommer tilbake hele tiden. Om jeg derimot sender Update, så får jeg tilbake oppdaterte verdier fra bilen. Neste Api upate hvert 15min får da disse oppdaterte verdiene, helt til jeg sender ny update. Er det ikke sånn at Api updated skal få ny status fra bilen? Fra 23:09 Api update, 83.33 % batteri (bold) Fra 23:17 publisher jeg en Update, da får jeg 100% batteri tilbake som er riktig (bold) Fra 23:24 Api update, 100% batteri (bold) Mar 1 23:09:37 homeseer3pro python[12499]: INFO:schedule:Running job Every 15 minutes do get_leaf_status() (last run: 2019-03-01 22:54:36, next run: 2019-03-01 23:09:36) Mar 1 23:09:37 homeseer3pro python[12499]: INFO:root:Prepare Session Mar 1 23:09:37 homeseer3pro python[12499]: INFO:root:Login... Mar 1 23:09:37 homeseer3pro python[12499]: INFO:root:Start update time: 2019-03-01 23:09:37 Mar 1 23:09:45 homeseer3pro python[12499]: INFO:root:get_latest_battery_status Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:date mars 01,2019 21:45 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:date 2019/03/01 20:45 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:battery_capacity2 12 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:battery_capacity 12 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:charging_status NORMAL_CHARGING Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:battery_capacity 12 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:battery_remaining_amount 10 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:charging_status NORMAL_CHARGING Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:is_charging True Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:is_quick_charging False Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:plugin_state CONNECTED Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:is_connected True Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:is_connected_to_quick_charger False Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:time_to_full_trickle None Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:time_to_full_l2 3:00:00 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:time_to_full_l2_6kw None Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:leaf_info.battery_percent 83.3333333333 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:End update time: 2019-03-01 23:09:47 Mar 1 23:09:47 homeseer3pro python[12499]: INFO:root:publishing to MQTT base status topic: leaf/status Mar 1 23:09:51 homeseer3pro python[12499]: INFO:root:End update time: 2019-03-01 23:09:51 Mar 1 23:09:51 homeseer3pro python[12499]: INFO:root:Schedule API update every 15min Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:leaf/control/update 1 Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:control sub-topic: update Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:control message: 1 Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:Update control command received: 1 Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:Prepare Session get car update Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:Login... Mar 1 23:17:40 homeseer3pro python[12499]: INFO:root:2019-03-01 23:17:40 Mar 1 23:17:46 homeseer3pro python[12499]: INFO:root:Requesting update from car..wait 30s Mar 1 23:18:32 homeseer3pro python[12499]: INFO:root:End update time: 2019-03-01 23:18:32 Mar 1 23:18:32 homeseer3pro python[12499]: INFO:root:publishing to MQTT base status topic: leaf/status Mar 1 23:24:52 homeseer3pro python[12499]: INFO:schedule:Running job Every 15 minutes do get_leaf_status() (last run: 2019-03-01 23:09:51, next run: 2019-03-01 23:24:51) Mar 1 23:24:52 homeseer3pro python[12499]: INFO:root:Prepare Session Mar 1 23:24:52 homeseer3pro python[12499]: INFO:root:Login... Mar 1 23:24:52 homeseer3pro python[12499]: INFO:root:Start update time: 2019-03-01 23:24:52 Mar 1 23:24:59 homeseer3pro python[12499]: INFO:root:get_latest_battery_status Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:date mars 01,2019 23:18 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:date 2019/03/01 22:18 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:battery_capacity2 12 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:battery_capacity 12 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:charging_status NORMAL_CHARGING Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:battery_capacity 12 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:battery_remaining_amount 12 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:charging_status NORMAL_CHARGING Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:is_charging True Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:is_quick_charging False Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:plugin_state CONNECTED Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:is_connected True Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:is_connected_to_quick_charger False Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:time_to_full_trickle None Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:time_to_full_l2 0:40:00 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:time_to_full_l2_6kw None Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:leaf_info.battery_percent 100.0 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:End update time: 2019-03-01 23:25:01 Mar 1 23:25:01 homeseer3pro python[12499]: INFO:root:publishing to MQTT base status topic: leaf/status Mar 1 23:25:05 homeseer3pro python[12499]: INFO:root:End update time: 2019-03-01 23:25:05 Mar 1 23:25:05 homeseer3pro python[12499]: INFO:root:Schedule API update every 15min Ikke noe krise, kan bare lage event i Homeseer som trigger update i ny og ne, ønsker bare å skjønne hva Scheduled api update gjør. Er det kun vedlikehold å sjekke om man har kontakt?

Tenkte det kunne være greit å dele scriptet HS brukeren Pierre bruker for å få formatteringen som på bildet i min forrige post på dagens og morgendagens eventer. Dette brukes mot BLGData pluginen, men det er nok mye som kan brukes der for GCalseer. This is script to copy all calendar's appointments for today and tomerrow 'The string can then be used easyly in HSTouch, or by speaking 'You must have BLGData plugin installed and running, with at least one agenda in the setup into a device's string. 'You must also create or use a device where to store, use it's adress iin the settings below Sub Main(ByVal Parm As Object) dim chaine as string="" dim User_email,Calendar_name,prefix_heure as string dim NumberofDays as integer dim TodayGCal_device as integer dim jour as string = DateTime.Now.Date.Tostring("dd/MM/yyyy") dim heure as string = Now.Tostring("HH:mm") dim today_txt,today_txt_allday,tomorrow_txt,tomorrow_txt_allday,bckgrd_color,event_name as string 'user's settings========================================================================= TodayGCal_device=760 'the adress of the device where the events are going to be dumped in the string User_email= "[email protected]" 'user email as in the BLGData plugin Calendar_name="[email protected]" 'Calendar name as in the BLGData plugin NumberofDays=1 'number of days to fetch ahead bckgrd_color="#A0EAE7" today_txt=" A " today_txt_allday="" tomorrow_txt="DEMAIN A " tomorrow_txt_allday="DEMAIN " 'end of user's settings========================================================================= Dim allEvents As Object() allEvents = hs.PluginFunction("BLGData", "", "GetCalendarEventsForXDays", new Object(){User_email,Calendar_name,NumberofDays}) Try 'Log("GoogleCalendar Script 1 Starting") chaine="<table bgcolor='" & bckgrd_color & "'>" For Each ev As Object In allEvents ' hs.writelog("Info", " A: " & ev.StartTime & " Pierre: " & ev.Name) ' on écarte aussi les événements dont l'heure de fin est passée if ev.StartDate=jour and ev.EndTime> heure then 'detecte les évènements journee entière pour aujourd'hui if ev.StartTime="00:00" and ev.Endtime="00:00" then chaine= chaine & "<tr><td>" & today_txt_allday & chaine & " " & ev.Name & ".</td></tr>" else chaine= chaine & "<tr><td>" & today_txt & ev.StartTime & ": " & ev.Name & ". </td></tr>" end if elseif ev.StartDate>jour then 'detecte les évènements journee entière if ev.StartTime="00:00" and ev.Endtime="00:00" then chaine= chaine & "<tr><td>" & tomorrow_txt_allday & ev.Name & ". </td></tr>" else chaine= chaine & "<tr><td>" & tomorrow_txt & ev.StartTime & " : " & ev.Name & ". </td></tr>" end if end if 'chaine=chaine & "</tr>" ' Log("--- End Of Entry ---") Next 'Log("End Of GoogleCalendar Script") chaine=chaine & "</table>" ' Log("End Of GoogleCalendar Script 1") Log(chaine) 'if string is empty the device value will be set to 0 if striptags(chaine)="" then hs.SetDeviceValueByref(TodayGCal_device,0,true) hs.setdeviceString(TodayGCal_device,"",true) else 'if there is a string set the device value to 100 hs.SetDeviceValueByref(TodayGCal_device,100,true) hs.setdeviceString(TodayGCal_device,chaine,true) end if Catch ex As Exception Log("Exception: " & ex.Message.ToString) End Try End Sub Sub Log(ByVal ParStr As String) hs.writelog("Ald_gcal_tostring", ParStr) End Sub Function striptags(Byval chaine as string)'enleve les tags dim debut, fin as integer 'enleve les tags 'hs.writelog "signature_mail",chaine do 'cherche les < debut = Instr (chaine,"<") if debut <>0 then 'boucle a garder autrement erreur 'hs.writelog "message",debut 'cherche les > fin = Instr (chaine,">") 'msgbox fin 'enleve ce qui est entre les 2 bornes chaine = left(chaine,debut-1) & right(chaine,len(chaine)-fin) 'hs.writelog "signature_mail",chaine end if loop while debut<>0 'msgbox data return chaine end Function

Takk for forsøket! Skulle gjerne hjulpet, men kommer litt til kort når det gjelder koding :)

@Guahtdim, vedr liste ut eventer fra kalender til device. Vet du hvordan jeg kan formatere teksten annerledes på dagens eventer og morgendagens, overimorgen osv? Skulle i første omgang ihvertfall hatt dagens eventer i bold og fremtidige eventer i normal tekst. Noe ala dette: Ser forøvrig at i scriptet for BLGData så henter den ut ev.starttime, ev.name: For Each ev As Object In allEvents msg = msg & "<tr><td> " & ev.StartTime & " - " & ev.Name & "." & "</td></tr>" Dette er fra scriptet ditt: For Each ev As Object In allEvents msg = msg & "<br>" & ev & "</br>" Aner ikke hva som kommer tilbake fra kalenderen?

Jeg har også fått error etter knappe sekunder, selv om de har inkludert seg fint. Andre ganger spinner den i evigheter uten at noe skjer. Husker ikke helt nå, men mener at de som inkluderte seg greit med en gang, fikk ERR med en gang. Alt i alt, disse termostatene oppfører seg rart. Bare det at de rapporterer inn temp på ekstern føler når den ikke er koblet til? Har fjernet assosiasjon til denne som en temp fix. Mine overholder ikke rapportering på strøm ELLER gulvtemperatur utifra parameterene som er satt. Har problemer med at meldinger ikke kommer frem, eller tilbake, så har en haug av feilsøk eventer for å trigge ting på nytt. Dette skal være helt unødvendig. Dette har jeg også på Fibaro Dimmer 2, men jeg mistenker at termostatene er roten til all ustabiliteten hos meg. Har gjort en haaaug av tiltak. Satt opp VD for varmemodus Heat eller Energy Save, og har disse eventene på alle termostatene.. Dette skal ikke være nødvendig.. Kan ikke stole på noen ting..

Tenker du på for å inkludere de? Det var forsåvidt bare å prøve og prøve, ta strømmen, restarte Zwave plugin i HS, prøve igjen. Plutselig ble de fanget opp. Dette var med zwave pinnen inntil enheten. Fant aldri noe rød tråd.. Veldig uforutsigbart.

Har også hatt disse problemene, ufattelig irriterende. De er nå alle inkludert, og fungerer, men mistenker fortsatt at de gjør mitt Zwave nettverk ustabilt. Thermofloor har forresten ikke kommet tilbake med noe nytt rundt problemer med overrapportering, selv etter gjentatte purringer. De var veldig ivrig i starten, ringte meg flere ganger, så ble det tyst..

Supert! Vet ikke om du får noe ut av dette bildet:

Hadde gjerne kjøpt om du får laget noen som passer sorte Elko Plus rammer/brytere?[emoji848]

Tenkte kun å liste ut eventer, men ser helt klart poenget ditt [emoji106]

@Guahtdim Pluginen din fungerer utmerket. Har nå uninstallert BLGData plugin og bruker kun din. Takk for godt arbeid. Skal utforske resten av funksjonene etterhvert, ser ut som det er mye nyttig der, gode innspill fra bla @toonwolf (takk til deg også forresten, spesielt med arbeidet rundt IDLock 150 integrasjonen) Bruker exchange mail/kalender på jobb. Hvordan er det å få dette inn i din plugin? Ikke så enkelt kanskje med tanke på autentisering?

HOLY! Ettersom vi var alle litt lost, inkludert Blade, spurte jeg om hjelp på HS forumet. Første post reply kom fixen, Endre fra: Dim allEvents As Object() til Dim allEvents As Object Thats it, nå virker både GCalseer og BLGData i Linux! Takk for feilsøking alle mann!

Testet nå fra flere Google kalendere på en Win 10 maskin, fungerte glitrende til devicer med @Guahtdim sin plugin. Synd Linux har issues med dette ?

Hei igjen! Fikk svar fra Blade, han var usikker på hva problemet kan være, men trolig mono/linux relatert. Uansett, jeg har jo fått med meg din plugin, men trodde ikke denne funksjonen fantes i din plugin, dvs liste eventer til device. Så jeg installerte pluginen din for å prøve. Får dessverre samme feil med din plugin, så dette er vel linux relatert ? Koden fra din dokumentasjon: Sub Main(ByVal Parms As Object) Dim msg as string = "" Try Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim tDevice = ParmArray(0) Dim tCalendar = ParmArray(1) Dim tDays = cint(ParmArray(2)) Dim allEvents As Object() allEvents = hs.PluginFunction("GCalSeer", "", "GetItemsForCalendar", new Object(){tCalendar ,tDays }) For Each ev As Object In allEvents msg = msg & "<br>" & ev & "</br>" Next hs.WriteLog("test","events found: " & msg) if msg="" then msg="No Events Scheduled" hs.SetDeviceString(tDevice , msg, true) Catch ex As Exception hs.WriteLog("", "Exception in script: " & ex.Message) End Try hs.WriteLog("test","---=== DONE ===---") End Sub Gir (har bare pastet inn koden i samme fil, derfor BLGData_Calendar.vb navnet) : Ved å endre koden med: Dim tDevice as string = ParmArray(0) Dim tCalendar as string = ParmArray(1) Dim tDays as integer = cint(ParmArray(2)) Gjenstår disse to:

Ja, jeg prøvde også New Object foran hver Object som i tråden du linket til, men hjalp ingenting. Vi får se, ordner seg vel på en eller annen måte. Vet du om noen andre måter å få kalender eventer fra Google Calendar inn i HStouch? Ser jo oversiktlig ut å få dette på en device, deretter ut i HStouch (litt formatting denne karen har gjort):

5.18.0.240 Søker og søker på HS forumet, og prøver forskjellige ting uten hjelp. Det ser ut som dette er en gjenganger i linux i diverse scripts The import 'System.Core' could not be found. Om det har en sammenheng i scriptet jeg kjører, vet jeg ikke. Akkurat denne plugin funksjonen skal jo være relativt rett frem. Fra BLGData Help: Prøver nå uten å inkludere Parm i allEvents linjen, som i hjelpefilen, men det feiler: Sub Main(ByVal Parms As Object) Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim tDevice as String = ParmArray(0) Dim tCalendar as String = ParmArray(1) Dim tDays as Integer = cint(ParmArray(2)) Dim allEvents As Object() Dim myemail as string="[email protected]" Dim msg as string = "" allEvents = hs.PluginFunction("BLGData", "", "GetCalendarEventsForXDays", new Object(){"[email protected]","Minkalender",2}) if msg="" then msg="No Events Scheduled" hs.SetDeviceString(2164, msg.Trim, true) End Sub

Ok, uansett, takk for at du tok deg tid.

Begynte fra toppen å la til alle variabeldeklarasjoner. Scriptet feilet ikke før jeg la til linjen allEvents = hs.PluginFunction("BLGData", "", "GetCalendarEventsForXDays", new Object(){myemail,tCalendar,tdays}) Denne feiler: Sub Main(ByVal Parms As Object) Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim tDevice = ParmArray(0) Dim tCalendar = ParmArray(1) Dim tDays = cint(ParmArray(2)) Dim allEvents As Object() Dim myemail as string="[email protected]" Dim msg as string = "" allEvents = hs.PluginFunction("BLGData", "", "GetCalendarEventsForXDays", new Object(){myemail,tCalendar,tdays}) if msg="" then msg="No Events Scheduled" hs.SetDeviceString(2164, msg.Trim, true) End Sub Med: Denne koden feiler ikke og oppdaterer device 2164: Sub Main(ByVal Parms As Object) Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim tDevice = ParmArray(0) Dim tCalendar = ParmArray(1) Dim tDays = cint(ParmArray(2)) Dim allEvents As Object() Dim myemail as string="[email protected]" Dim msg as string = "" if msg="" then msg="No Events Scheduled" hs.SetDeviceString(2164, msg.Trim, true) End Sub

Den enkle koden fungerte flott: Ble mye rot og frem og tilbake her, så jeg endret til koden fra min første post, dvs uten å ta bort noe, og endret til Sub Main: Sub Main(ByVal Parms As Object) Dim ParmArray() as String ParmArray = Parms.tostring.split(",") Dim tDevice = ParmArray(0) Dim tCalendar = ParmArray(1) Dim tDays = cint(ParmArray(2)) Dim allEvents As Object() Dim myemail as string="[email protected]" Dim msg as string = "" allEvents = hs.PluginFunction("BLGData", "", "GetCalendarEventsForXDays", new Object(){myemail,tCalendar,tdays}) msg="<table>" For Each ev As Object In allEvents msg = msg & "<tr><td> " & ev.StartTime & " - " & ev.Name & "." & "</td></tr>" Next msg=msg & "</table>" if msg="" then msg="No Events Scheduled" hs.SetDeviceString(tDevice, msg.Trim, true) End Sub Da får jeg kun denne feilmeldingen hvis det hjelper noe.