Rogerbl

Jeg har snekret sammen et python script som henter bussrute data fra entur.no og publiserer de til en MQTT broker. Dette scriptet henter ut alle data inkl. mode: bus, coach og skoleruter slik at man får en fullstendig liste over bussavganger til de aktuelle bussstoppene. Jeg har tilpasset scriptet til mitt lokale bussstopp og det er mulig å endre parametre i cfg fila slik at det passer for dine bussstopp. Man kan importere disse Mqtt dataene inn i hvilket som helst automasjonsystem som støtter Mqtt. Man benytter mcsMQTT plugin'en til å importere disse data inn i Hs3 og opprette devicer. I tillegg legger jeg ved et vb script som henter ut data fra Hs3 devicene og bygger opp en busstabell knyttet til en virtuell device som man må opprette manuelt. Det er litt arbeid med å hente ut DevID og legge de inn i vb scriptet..men det er kun en engangsjobb. Legger også ved det modifiserte pushoverhs.vb som tar DevID(til den virtuelle devicen i dette tilfelle) som parameter 2, og kan derfor sende deg bussruta til din smarttelefon om ønskelig. Legger også ved skjermdump fra smarttelefonens pushover meldinger. Legg merke til at jeg ikke takler samiske tegn...\u00E1 skal være en a med tøddel over. tar gjerne imot tips ang. dette. ? * Oppdaterte Createbus_table.vb scriptet da det ga feile data i visse situasjoner. busstabell-eksempel.txt entur2mqtt1.cfg entur2mqtt1.py installasjon.txt pushoverhs.vb createbus_table.vb

Bussen til/fra Karasjok har mode= coach og ikke mode=bus. Er dette tatt høyde for i scriptet? Coach er vel en "oppgradert" buss med toalett o.s.v. dvs en turbuss klasse.

ja, ser sortert ut nå og ja her går sjelden buss! ?

Her er et modifisert vb script(pushoverhs.vb) som jeg bruker til å sende meg selv pushover meldinger med devicestring verdier. Det kan brukes til å sende bussruter til din smarttelefon. F.eks en gang pr dag. Parametrene er Subjekt | hs.devID | prioritet | lyd f.eks Bussrute Alta - Eiby | 567 | 1 | 1 Hvis du har installert Pushover plugin'en for HomeSeer vil du da motta en melding med bussrutene. Du må selvsagt kjøre Moskus sitt Entur.vb script først så devicene får verdier. Sjekk ut det orginale pushover.vb scriptet for mer info. pushover.vb pushoverhs.vb

vel, her hos meg er avgangstidene usortert. ?

Tips ang. sortering: Les radene inn i en tabell, sorter denne og skriv ut den sorterte tabellen til dev string'en. ? Det er mer oversiktlig med sortering. Og i HSTouch ser man kun starten på dev stringen.. det var litt synd. Man får ikke sett alt, kanskje en ide å sende en pushover melding til telefonen sånn at man får sett alle mulige avganger?

Det likte ikke Hs3; her er feilmeldingen: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point Main exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

endret fra Main til Tripsbetweenstopplaces og det funker! Fått lagt inn de to stoppestedene herfra til Alta. Takk Moskus for en god jobb! ?

Her er resultat fra siste Main rutine jeg fik fra deg: {"data":{"trip":{"tripPatterns":[{"startTime":"2020-01-14T17:21:00+0100","endTime":"2020-01-14T17:28:00+0100","duration":420,"walkDistance":0.0,"legs":[{"mode":"bus","distance":2550.9434618963073,"line":{"id":"KOL:Line:1006_245","publicCode":"5","name":"5"}}]},{"startTime":"2020-01-14T17:29:00+0100","endTime":"2020-01-14T17:36:00+0100","duration":420,"walkDistance":0.0,"legs":[{"mode":"bus","distance":2550.9434618963073,"line":{"id":"KOL:Line:1006_245","publicCode":"5","name":"5"}}]},{"startTime":"2020-01-14T17:36:00+0100","endTime":"2020-01-14T17:43:00+0100","duration":420,"walkDistance":0.0,"legs":[{"mode":"bus","distance":2550.9434618963073,"line":{"id":"KOL:Line:1006_245","publicCode":"5","name":"5"}}]},{"startTime":"2020-01-14T17:44:00+0100","endTime":"2020-01-14T17:51:00+0100","duration":420,"walkDistance":0.0,"legs":[{"mode":"bus","distance":2550.9434618963073,"line":{"id":"KOL:Line:1006_245","publicCode":"5","name":"5"}}]},{"startTime":"2020-01-14T17:51:00+0100","endTime":"2020-01-14T17:58:00+0100","duration":420,"walkDistance":0.0,"legs":[{"mode":"bus","distance":2550.9434618963073,"line":{"id":"KOL:Line:1006_245","publicCode":"5","name":"5"}}]}]}}}

Ja, ser ihvertfall ikke noen feilmelding i loggen ved oppkall av Main istedenfor den andre rutinen. Så der er en forskjell! ?

hmm, så bra for dere, mennår jeg kjører det samme scripet får jeg fremdeles feilmelding, tror jeg er ganna: jan-14 16.33.31 Error 3 Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript() jan-14 16.33.30 Event Running script and waiting: C:/Program Files (x86)/HomeSeer HS3/scripts/EnTur.vb("CallsFromStopplace","345,NSR:StopPlace:57094,NSR:Quay:97801,5") jan-14 16.33.30 Event Event Trigger "Ute Busstider"

Må stikke nå, vi får ta opp tråden senere. Jobben kaller....

får denne i loggen nå: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point Main exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript() jan-14 10.11.05 Event Running script and waiting: C:/Program Files (x86)/HomeSeer HS3/scripts/EnTur.vb("Main","345,NSR:StopPlace:57094,NSR:Quay:97801,5") jan-14 10.11.05 Event Event Trigger "Ute Busstider" jan-14 10.11.05 Event Event Ute Busstider triggered by the event page 'Run' button.

Fikk denne i loggen: Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: entries er ikke deklarert. Den kan være utilgjengelig på grunn av beskyttelsesnivået. jan-14 10.04.34 Error Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.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.

ja.. her er resultat i loggen nå: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point Main exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript() jan-14 09.36.57 Event Running script and waiting: C:/Program Files (x86)/HomeSeer HS3/scripts/EnTur.vb("Main","345,NSR:StopPlace:57094,NSR:Quay:97801,5")

Uten parametre?

feil igjen: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

ja, det lå i root katalogen. Prøver igjen....

endret sub main og fikk denne meldingen i loggen: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

ok, skal prøve det men oppdaget en feilmelding fra TibberSeer i loggen ang. NewtonSoft.json, kanskje en sammenheng? TibberPrice, UpdateData ERROR: Could not load file or assembly 'Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed' or one of its dependencies. The located assembly's manifest definition does not match the assembly reference. (Exception from HRESULT: 0x80131040)

Win 10 Enterprise her. 64 bit

Var jeg som endra det isted, men nå er den til bake til Program Files med feilmelding: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

nei, må være noe feil på oppsettet på min hs3 server. Fikk denne meldingen med ditt script: Running script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb :Målet forårsaket et unntak under aktivering.->Does entry point CallsFromStopplace exist in script? ved System.RuntimeMethodHandle.InvokeMethod(Object target, Object[] arguments, Signature sig, Boolean constructor) ved System.Reflection.RuntimeMethodInfo.UnsafeInvokeInternal(Object obj, Object[] parameters, Object[] arguments) ved System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture) ved Scheduler.clsRunVBNetScript.ExecuteScript()

også denne feilmeldingen kommer: Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb: For få typeargumenter for System.Collections.Generic.List(Of T). jan-13 22.04.37 Error Compiling script C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.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.

ja, restartet Hs3 etter oppdateringen. [Settings] ScriptingReferences=System.Core;System.Core.dll,Newtonsoft.Json;C:\Programfiler (x86)\HomeSeer HS3\Bin\homeseer\Newtonsoft.Json.dll EnTur.vb