Zheep

23 timer siden, Moskus skrev:

Ja, jeg er enig i det det, men det KAN være at det brukes StopPlace som ikke eksisterer også. Da vil ikke scriptet gi det som tilbakemelding, men vil feile fullstendig (og kunne gi feilmeldinger som over).

Hmm, i see!
Greit om jeg poster ett innlegg på HS sitt forum, refererer til den opprinnelige posten her og ser om noen har noen tanker der?

28 minutter siden, ZoRaC skrev:

Skal det ikke være slik?

Sitat

"CallsFromStopplace",984, NSR:StopPlace:25720,NSR:Quay:38798, 10

Hermetegna kommer automatisk når 984, NSR:StopPlace:25720, NSR:Quay:38798, 10 legges inn som parameter. På samme måten som at hermetegna rundt CallsFromStopplace kommer når vi skriver den inn som suben som skal kalles.

9 timer siden, Trash2000 skrev:

Virker denne feilemeldingen fra Linux-HS3-en min logisk?

 

mar-11 23.35.21

Error

Compiling script /usr/local/HomeSeer/scripts/EnTur.vb: Symbol is not valid.

mar-11 23.35.21

Error

Compiling script /usr/local/HomeSeer/scripts/EnTur.vb: Symbol is not valid.

mar-11 23.35.21

Error

Compiling script /usr/local/HomeSeer/scripts/EnTur.vb: Symbol is not valid.

mar-11 23.35.21

Error

Compiling script /usr/local/HomeSeer/scripts/EnTur.vb: Symbol is not valid.

mar-11 23.35.21

Error

Compiling script /usr/local/HomeSeer/scripts/EnTur.vb: Symbol is not valid.

mar-11 23.35.21

Event

Running script in background: /usr/local/HomeSeer/scripts/EnTur.vb("CallsFromStopplace","984, NSR:StopPlace:25720, NSR:Quay:38798, 10")

mar-11 23.35.21

Event

Event Trigger "Kollektivtrafikk Hente buss til jobb"

mar-11 23.35.21

Event

Event Kollektivtrafikk Hente buss til jobb triggered by the event page 'Run' button.

Er ikke sikker på denne feilmeldingen, men kan det være for at du kjører scriptet i bakgrunnen?
Huk av "Wait for script to finish before continuing" og se om du får samme feilmelding?

På 9.3.2019 den 9.23, Moskus skrev:

Jo... men hva?

Nei si det.. 
Men vet fra forumet til homeseer her, post 39, at det kan være forskjeller på vb.net script i Windows og Linux.

Det er rart at CallsFromStopplace fungerer for noen linux brukere her(?), mens det for andre ikke fungerer.
Scriptet fra lenken over fikk jeg ikke til å fungerer før jeg kommenterte ut linjen som det blir henvist til i den posten.

22 minutter siden, Moskus skrev:

Private Function GetTripBetweenStops(ByVal stop1 As String, ByVal stop2 As String, Optional ByVal entries As Integer = 5) As List(Of Trippattern)
     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)
     Dim enTurJson As EnTur = JsonConvert.DeserializeObject(Of EnTur)(result)

     Return enTurJson.data.trip.tripPatterns
End Function

Der står det "modes: [bus]". Det er kun buss. Jeg har ikke fått til å legge inn flere elementer i den, men det skal være mulig spørre etter "tram". En mulighet er å kopiere funksjonen og lage en ny "GetTripBetweenStopsForTram" og endre [bus] til [tram].

Yes det fungerte!
Så da bør jeg lage en egen funksjon for hver av transportmidlene jeg har tenkt å bruke, samt lage en egen sub for hvert transportmiddel slik som eksempelet her viser:

Men da gjenstår det andre problemet da, hvorfor fungerer ikke CallsFromStopplace, kan det ha noe med funksjonen "GetCallsFromStopPlace" og gjøre?

Private Function GetCallsFromStopPlace(ByVal _stop As String, Optional ByVal _quay As String = "", Optional ByVal entries As Integer = 5) As List(Of EstimatedCall)
	Dim jsonQuery As String = "{stopPlace(id: """ & _stop & """) {id name estimatedCalls(startTime: """ & Now.ToString("yyyy-MM-ddTHH:mm:sszzz") & """, timeRange: 72100, numberOfDepartures: " & (entries * 2 + 2) & "){ realtime aimedArrivalTime expectedArrivalTime destinationDisplay {frontText} quay {id} serviceJourney {journeyPattern {line {id name transportMode}}}}}}"

	Dim result As String = RunQuery(jsonQuery)
	Dim enTurJson As EnTur = Newtonsoft.Json.JsonConvert.DeserializeObject(Of EnTur)(result)

	Dim lst As New List(Of EstimatedCall)
	Dim count As Integer = 0
	For Each e As EstimatedCall In enTurJson.data.stopPlace.estimatedCalls
		If _quay <> "" Then
			If e.quay.id = _quay Then
				lst.Add(e)
				count += 1
			End If
		Else
			lst.Add(e)
			count += 1
		End If
		If count = entries Then Exit For
	Next
	Return lst
End Function

57 minutter siden, Moskus skrev:

Hvilke parametre er "mine" parametre, hvordan ser det eventet ut (screenshot)?

TripsBetweenStops(Dine parametre fra starten av denne tråden):

CallsFromStopplace(Dine parametre fra starten av denne tråden):

Prøvde å kjøre med andre parametre fra buss, i eksempelet her Sandnes rutebilstasjon -> Lurahammaren, det fungerte på TripsBetweenStops:

Kan det være ett problem at jeg har forsøkt med bybanen(trikk hos Entur)i Bergen i min opprinnelige post?
Tenker siden jeg her klarte det med enda ett eksempel fra Kolumbus.

Men CallsFromStopplace med eksempelet Lurahammaren -> Sandnes fungerte ikke..

EDIT:

Har prøvd med busser fra skyss i Bergen også, da fungerer Sub TripsBetweenStops
Har nå prøvd med tog fra Sandnes -> Stavanger med Sub TripsBetweenStops, og da fikk jeg samme feilmelding som jeg skrev i mitt opprinnelige innlegg her. Virker da som det kun går an å få rutetider for buss i dette skriptet slik det er nå?

3 minutter siden, Moskus skrev:

Nei, det er kun gamle debug-linjer fra da jeg skrev scriptet første gangen. "Main" blir jo ikke kjørt i det hele tatt, det er "TripsBetweenStops" og "CallsFromStopplace" som er funksjonene som kjøres.

Var det jeg tenkte meg, men er det ikke da rart at jeg får så mange forskjellige feilmeldinger ved endring av main, selv om jeg kjører de andre subbene?

På 21.1.2019 den 22.48, iceball skrev:

Men, TripsBetweenStops fungerer ser det ut som, ikke CallsFromStopplace.

Hos meg fungerte ikke noen av dem..
Jeg hadde ikke ScriptingReferences= i settings.ini fila, så la dette til som sagt tidligere i kommentarfeltet. Fant Newtonsoft.Json på samme plass som vist i innlegget:

Ved kjøring av dette eventet:

Får jeg følgende feilkode:

Slik ser systemprofilen min ut hvis det er til noe hjelp i eventuell feilsøking:

EDIT:

Har testet med Moskus' parametre på både TripsBetweenStops og CallsFromStopplace. Det fungerte med TripsBetweenStops og ikke CallsFromStopplace
Kan dette ha noe med at det er linjer som er kommentert ut i main? Eventuelt at det burde vært åpne parenteser her og ikke med dine NSR verdier?
Jeg har ikke peiling, men kommer bare med forslag på hva som kan være problemene nå.

Prøvde også å kommentere vekk Dim list As List(Of Trippattern) over og kjørte så TripsBetweenStops med Moskus' paramtere og får følgende feilkode:

Prøver så videre med å ta vekk vekkommenteringen og fjerner også vekkommenteringen på Dim list As List(Of EstimatedCall), main ser da slik ut:

Da får jeg følgende ved kjøring av TripsBetweenStops med Moskus' parameter:

Og dette ved kjøring av CallsFromStopplace med Moskus' parameter:

Dette er så langt jeg har kommet i debuggingen, håper noe av dette kan hjelpe videre?