-
Innlegg
178 -
Ble med
-
Besøkte siden sist
-
Dager vunnet
4
Innholdstype
Profiler
Forum
Blogger
Nedlastninger
Artikler
Regler
Hendelser
Galleri
Store
Innlegg skrevet av Rogerbl
-
-
3 timer siden, Moskus skrev:
Ser jo sortert ut? Er vel mer et problem at bussene går så sjeldent?
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.
- 1
-
3 minutter siden, Moskus skrev:
Oookay, det er snålt Prøv dette, da:
Endre
GetCallsFromStopPlace("NSR:StopPlace:27753", "NSR:Quay:47785")
til:
GetCallsFromStopPlace("NSR:StopPlace:27753")
Sortering av hva?
Det er vel sortert slik det skal?
Å laste over i en tabell for å sortere den er vel å gå over bekken etter vann.
I HStouch ser man hele strengen, det er jo ikke et problem.
Du må evt. utvide selve labelen.
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?
-
6 minutter siden, Moskus skrev:
Sub Main(parm As Object) Dim list As List(Of EstimatedCall) = GetCallsFromStopPlace("NSR:StopPlace:27753", "NSR:Quay:47785") Dim out As String = "" For Each c As EstimatedCall In list out &= c.ToString & "<br>" Next hs.WriteLog("EnTur", out) End Sub
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()
-
-
4 minutter siden, Rogerbl skrev:
Ja, ser ihvertfall ikke noen feilmelding i loggen ved oppkall av Main istedenfor den andre rutinen.
Så der er en forskjell! ?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"}}]}]}}}
-
17 minutter siden, Moskus skrev:
.... Men fungerer Main-rutinene some vi hard postet før?
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"
Spoiler -
Må stikke nå, vi får ta opp tråden senere. Jobben kaller....
-
1 minutt siden, Moskus skrev:
Ah, pokker. Glemte entries, rart debuggeren ikke tok det...
Sub Main(parm As Object) Dim stop1 As String = "NSR:StopPlace:59854" Dim stop2 As String = "NSR:StopPlace:27753" Dim entries as Integer = 5 Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}" Dim result As String = RunQuery(jsonQuery) hs.WriteLog("EnTur", result) End Sub
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. -
6 minutter siden, Moskus skrev:
Ok, da prøver vi dette:
Sub Main(parm As Object) Dim stop1 As String = "NSR:StopPlace:59854" Dim stop2 As String = "NSR:StopPlace:27753" Dim jsonQuery As String = "{trip(from:{place: """ & stop1 & """} to: {place: """ & stop2 & """} modes: [bus] numTripPatterns: " & entries & ") { tripPatterns { startTime endTime duration walkDistance legs {mode distance line {id publicCode name } }}}}" Dim result As String = RunQuery(jsonQuery) hs.WriteLog("EnTur", result) End Sub
Hvis dette fungerer, så er det noe tull med JSON. Hvis dette ikke fungerer, så er det noe funky med WebClient, men det burde det ikke være.
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. -
1 minutt siden, Moskus skrev:
Restartet etterpå?
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") -
3 minutter siden, Moskus skrev:
Da har du et event som kaller CallsFromStopplace. Fjern det. Du skal kalle "Main" funksjonen.
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()
-
5 minutter siden, Moskus skrev:
TibberSeer har sin egen Newtonsoft.JSon.dll, men denne feilmeldingen kan tyde på at du har en Newtonsoft.Json.dll i HomeSeer-root-mappa.
DET ville forklare ganske mye. Kan du sjekke?
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() -
19 minutter siden, Moskus skrev:
Oooookay, da skal vi kjøre noen runder med debugging. Yaaaay!
Så kanskje vi til og med lærer noe. Vi deler scriptet opp i stykker og ser hva som skjer. Det kan være syntax-feil, og det kan være språklige utfordringer.
Finn "Sub Main" i scriptet og endre den til dette (tror det finnes der fra før).
Sub Main(parm As Object) Dim list As List(Of Trippattern) = GetTripBetweenStops("NSR:StopPlace:59854", "NSR:StopPlace:27753") Dim out As String = "" For Each c As Trippattern In list out &= c.ToString & "<br>" Next hs.WriteLog("EnTur", out) End Sub
Kjør scriptet med et kall til "Main" istedenfor noen andre funksjoner. Sjekk loggen og rapporter.
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) -
6 minutter siden, Moskus skrev:
Det gjør jeg også, så det betyr nok ingenting.
Aaaargh, dette gjør meg passe gal. Jeg har testet det på Linux og fikk god hjelp til det, jeg tester det på to forskjellige Windows-systemer. Det fungerer fint på Windows 7 og 10.
Jeg kjører imidlertid engelsk OS, men norske formateringer.
Win 10 Enterprise her. 64 bit
-
11 minutter siden, Moskus skrev:
MEN: Du har denne banen her:
C:\Program Files (x86)\HomeSeer HS3\scripts\EnTur.vb
men i scripting-references har du c:\programfiler (x86)?
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()
-
7 minutter siden, Moskus skrev:
Prøv min versjon, da:
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. -
1 time siden, Moskus skrev:
(Du restartet HS3 etter oppdateringen?)
(Hvordan ser ScriptingReference= linja di ut?)
Kan du poste hele EnTur.vb scriptet? Det virker som om noe mangler, og jeg kan diff'e det.
ja, restartet Hs3 etter oppdateringen.
[Settings]
ScriptingReferences=System.Core;System.Core.dll,Newtonsoft.Json;C:\Programfiler (x86)\HomeSeer HS3\Bin\homeseer\Newtonsoft.Json.dll
-
får likevel denne feilmeldingen:
jan-13 12.42.05 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()
SCRIPT: EnTur.vb - Få inn data fra EnTur
i Scripts
Skrevet
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.