Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Afstandsberekening met Bing Maps API  (gelezen 512 keer)

0 leden en 1 gast bekijken dit topic.

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Afstandsberekening met Bing Maps API
« Gepost op: 08 september 2021, 21:20:54 »
IK heb hier een voorbeeld van berekening wat altijd gewerkt heeft. Nu werkt het opeens niet meer. Bij de berekeningen Distance en Travel Time staat er nu -1 terwijl dat bij de afstand bijvoorbeeld 22.8 moet staan.

Wat zie ik over het hoofd? Ik heb een gelijkaardige vraag proberen te stellen op https://chandoo.org/forum/threads/bing-maps-api.46887/ maar er komt geen response waarschijnlijk door de de geografische locatie.
« Laatst bewerkt op: 08 september 2021, 21:27:45 door cladon »
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.163
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afstandsberekening met Bing Maps API
« Reactie #1 Gepost op: 09 september 2021, 21:09:15 »
Kan het zijn omdat je macro's niet meer gevonden kunnen worden? Je bijlage is een .xlsx dus daar kunnen de helpers niet zoveel mee.  ;)
______________________________

Groet, Leo

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #2 Gepost op: 12 september 2021, 15:31:33 »
Het zou moeten werken zonder macro's. De functie in de cel F35 is eigenlijk ter controle maar geeft hetzelfde resultaat.

Public Function GetDistance(start As String, dest As String, key As String)

    Dim firstVal As String, secondVal As String, lastVal As String

    firstVal = "https://dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins="
    secondVal = "&destinations="
    lastVal = "&travelMode=driving&o=xml&key=" & key & "&distanceUnit=mi"

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    Url = firstVal & start & secondVal & dest & lastVal
    objHTTP.Open "GET", Url, False
    objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.Send ("")
    GetDistance = Round(Round(WorksheetFunction.FilterXML(objHTTP.ResponseText, "//TravelDistance"), 3) * 1.609, 0)

End Function
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline Warme bakkertje

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 136
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #3 Gepost op: 12 september 2021, 23:13:45 »
Denk dat het probleem eerder bij je BingMapKey ligt.

Als ik mijn Key uit een andere functie ipv de jouwe zet krijg ik onmiddellijk een correcte berekening.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #4 Gepost op: 13 september 2021, 11:42:15 »
Ik heb al verschillende key's aangemaakt. Zelf op verschillende account. Bij mij werkt het niet. Het is raar want tot voor enkele weken werkte het perfect. Daarom zou ik willen vragen of ik eens een werkende key mag gebruiken. Dan kan ik verder filteren van wat het probleem zou kunnen zijn.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.163
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afstandsberekening met Bing Maps API
« Reactie #5 Gepost op: 16 september 2021, 20:55:08 »
Ik heb niet zo'n key en ik denk dat de eigenaar van een key deze ook niet zo heel graag wil "uitlenen". Kan het zijn dat je over je limiet van API aanvragen zit met het gratis account? Ik roep ook maar wat hoor. Voor zover ik me kan herinneren is/was dat bij Google ook zo als je teveel aanroepen deed. Dus wellicht dat MS hetzelfde pad heeft gevolgd?
______________________________

Groet, Leo

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #6 Gepost op: 17 september 2021, 10:44:44 »
Ik heb onder verschillende accounts een key aangemaakt. Het probleem blijft behouden.
Ik heb verschillende key's aangemaakt. Het probleem blijft behouden.

Ik heb op verschillende computers de controle gedaan. Het probleem blijft behouden.

Heb zitten spelen met de virusscanner en de firewall. Het probleem blijft behouden.

Het blijft voorlopig zoeken naar een speld in de hooiberg.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.163
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afstandsberekening met Bing Maps API
« Reactie #7 Gepost op: 17 september 2021, 10:53:26 »
Cladon, en als je regel voor regel door je code gaat, kan je dan zien f en wr die er dan uit klapt? Zet ook vooral Error Handlers even uit. Wellicht kom je zo achter het probleem?
______________________________

Groet, Leo

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #8 Gepost op: 17 september 2021, 10:58:08 »
Ga ik zeker doen. Feit is dat het altijd heeft gewerkt. In de toepassing waarin ik het gebruik heeft het altijd perfect gewerkt. Nu opeens niet meer. Er is niets aan de toepassing gewijzigd. Heb ook hier verschillende key's uitgeprobeerd.

Ik zal verder zoeken. Laat het nu even rusten. Misschien lost het zich dan wel op.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.163
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Afstandsberekening met Bing Maps API
« Reactie #9 Gepost op: 17 september 2021, 11:05:23 »
Werk je via een bedrijsnetwerk? Misschien heeft netwerkbeheer bepaalde poorten naar buiten (of naar binnen) voor de veiligheid afgesloten voor bepaalde vormen van communicatie. Ofwel, werkt het bijvoorbeeld wel als je vanuit huis werkt zonder vpn naar het bedrijfsnetwerk?

P.s. voor mij spreek ik nu uit ervaring bij het bedrijf waar ik voor werk. Van de ene op de andere dag werkte er een bepaalde communicatie naar onze polsscanners niet meer. Bleek dus een oude vorm van communicatie waar men van dacht dat die niet meer gebruikt werd en de boel heeft dichtgetimmerd.
______________________________

Groet, Leo

Offline cladon

  • Volledig lid
  • **
  • Berichten: 243
  • Geslacht: Man
Re: Afstandsberekening met Bing Maps API
« Reactie #10 Gepost op: 17 september 2021, 11:16:57 »
Hier thuis heb ik een nieuwe router geplaatst. Hier moet ik nog uitsluiten of het dit kan zijn door de oude even terug te plaatsen.

Op mijn werk moet ik navragen of ze iets hebben aangepast aan het netwerk of de firewall.

IK ben dus inderdaad in dezelfde richting aan het denken die je aangeeft. Om dit te controleren heb ik wat meer tijd nodig. Ik hou je op de hoogte.
Windows 10 Home   NLD 64bit,
Intel(R) Core(TM) i7-3770 CPU @ 3.40GHz 3401
P8B75-M LE
Intel(R) HD Graphics 4000 3072MB 1920 x 1080
VIA HD Audio
C:\ NTFS 237,25GB 135,35GB 15 293MB
AV: Kaspersky
FW: Windows 10

 


www.combell.com