GMap.NET Control Route berechnen

progThis · 19. Mai 2013, 13:09

Hallo,

ich möchte das eine Route in GMap.NET berechnet wird.TextBox1 soll den Startpunkt und TextBox2 der Endpunkt sein.Dann soll wenn man auf Button1 klickt die Route berechnet werden.Kennt jemand den Code dafür ???

Gruß progThis

vb-checker · 19. Mai 2013, 13:30

websofia.com/2013/03/gmap-net-tutorial-routes/

progThis · 19. Mai 2013, 13:45

Funktioniert leider trotzdem nicht

programmer71 · 19. Mai 2013, 13:48

@progThis
Der Code ist nicht VB. Du musst den konvertieren.
Converter
Notfalls frag im Forum: greatmaps.codeplex.com/

Zudem: Was geht nicht? Du musst das immer erläutern.
Und mach bitte nicht wegen allem nen Thread auf und streng dich selber ein wenig an.

progThis · 19. Mai 2013, 13:52

Hab ich schon konvertiert nur das Problem ist ich bekommne dann die Meldung: GetRoute ist kein Member von GMaps.NET.MapProviders.GoogleMapsProvider.Instance

programmer71 · 19. Mai 2013, 13:55

You’ll notice that the map provider (Google, in this case) provides the GetRoute method that we need to create a MapRoute instance. You could use a different mapping provider (BingMapProvider, for instance) to create the route, and use it with yet another provider for the actual map images. After all, it all boils down to latitude/longitude coordinates.

Spoiler anzeigen

progThis · 19. Mai 2013, 14:09

Ich bekomme noch immer den Fehler:

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim start As New PointLatLng(-25.974134, 32.593042)
Dim [end] As New PointLatLng(-25.959048, 32.592827)
Dim route As MapRoute = GMap.NET.MapProviders.BingMapProvider.Instance.GetRoute(start, [end], False, False, 15) 'Da soll ein Fehler drin sein
Dim r As New GMapRoute(route.Points, "My route")
End Sub

programmer71 · 19. Mai 2013, 14:46

Was genau ist der Fehler?

C-Quellcode

GMapOverlay routesOverlay = new GMapOverlay("routes");
routesOverlay.Routes.Add(r);
gmap.Overlays.Add(routesOverlay);

Hast du das übrigens auch noch unten eingefügt?

progThis · 19. Mai 2013, 14:56

Immer das GetRoute kein Member von GMap.NET.BingMapProvider ist

programmer71 · 19. Mai 2013, 14:59

Wie sieht dein kompletter Code aus? Ich vermute, dass dir noch eine Import-Anweisung fehlt.
Importiere also mal alles, was die API bietet...
Oder versuche mal die Methode in einem anderen Sub zu deklarieren...

progThis · 19. Mai 2013, 15:01

Der komplette Code:

VB.NET-Quellcode

Imports GMap.NET.MapProviders
Imports GMap.NET.MapProviders.BingMapProvider
Imports GMap.NET
Imports GMap.NET.MapRoute
Imports GMap.NET.WindowsForms.Markers
Imports GMap.NET.WindowsForms.ToolTips
Imports System.IO
Imports System.Runtime.Serialization
Imports GMap.NET.WindowsForms
Imports GMap.NET.CacheProviders
Imports GMap.NET.GMaps
Imports GMap.NET.WindowsForms.GMapOverlay
Imports GMap.NET.WindowsForms.GMapControl
Imports GMap.NET.CacheProviders.MsSQLPureImageCache
Public Class Route_berechnen
Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GMapControl1.MapProvider = GMapProviders.BingMap
GMapControl1.SetCurrentPositionByKeywords("Deutschland")
GMapControl1.MinZoom = 3
GMapControl1.MaxZoom = 17
GMapControl1.Zoom = 5
GMapControl1.Manager.Mode = AccessMode.ServerAndCache
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim start As New String(TextBox1.Text)
Dim [end] As New String(TextBox2.Text)
Dim route As MapRoute = GMap.NET.MapProviders.BingMapProvider.Instance.GetRoute(start, [end], False, False, 15)
Dim r As New GMapRoute(route.Points, "My route")
Dim routesOverlay As GMapOverlay
routesOverlay.Routes.Add(r)
GMapControl1.Overlays.Add(routesOverlay)
r.Stroke.Width = 2
r.Stroke.Color = Color.SeaGreen
End Sub
End Class

programmer71 · 19. Mai 2013, 15:05

Jap:

VB.NET-Quellcode

Imports GMap.NET.MapProviders
Imports GMap.NET.MapProviders.BingMapProvider
Imports GMap.NET
Imports GMap.NET.MapRoute
Imports GMap.NET.WindowsForms.Markers
Imports GMap.NET.WindowsForms.ToolTips
Imports System.IO
Imports System.Runtime.Serialization
Imports GMap.NET.WindowsForms
Imports GMap.NET.CacheProviders
Imports GMap.NET.GMaps
Imports GMap.NET.WindowsForms.GMapOverlay
Imports GMap.NET.WindowsForms.GMapControl
Imports GMap.NET.CacheProviders.MsSQLPureImageCache
Public Class Route_berechnen
Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GMapControl1.MapProvider = GMapProviders.BingMap
GMapControl1.SetCurrentPositionByKeywords("Deutschland")
GMapControl1.MinZoom = 3
GMapControl1.MaxZoom = 17
GMapControl1.Zoom = 5
GMapControl1.Manager.Mode = AccessMode.ServerAndCache
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim start As New String(TextBox1.Text)
Dim [end] As New String(TextBox2.Text)
Dim route As MapRoute = GMap.NET.MapProviders.GoogleMapProvider.Instance.GetRoute(start, [end], False, False, 15)
Dim r As New GMapRoute(route.Points, "My route")
Dim routesOverlay As GMapOverlay
routesOverlay.Routes.Add(r)
GMapControl1.Overlays.Add(routesOverlay)
r.Stroke.Width = 2
r.Stroke.Color = Color.SeaGreen
End Sub
End Class

progThis · 19. Mai 2013, 15:10

Da kommt noch immer der Fehler

KosmicFilament · 19. Mai 2013, 17:12

Hallo,

Ich bin nicht ganz im Thema aber scheinbar unterstützt der BingNetProvieder "getRoute" nicht. Versuch mal "GetRouteBetweenPoints" zusammen mit dem googleMapProvieder

VB.NET-Quellcode

Dim route As MapRoute =googleMapProvider.Instance.GetRouteBetweenPoints(start, [end], False, False,15)

Importieren des GoogleProvieders nicht vergessen:

VB.NET-Quellcode

Imports GMap.NET.MapProviders.GoogleMapProvider

Info: der BingProvieder scheint "GetRouteBetweenPoints" ebenfalls nicht zu unterstützen... Konnte jedenfalls nichts vernünftiges finden.

Eine Frage, bekommst du nicht ein Problem mit einer NullReferenceException in Zeile 32

viele Grüße

progThis · 20. Mai 2013, 15:23

Es funktioniert :00000

Nur das Problem in Zeile 32 hast recht

Da ist dann auch eine neue Frage

Wie kann ich das beheben hab ja alles befolgt ????

Mein jetziger Code:

VB.NET-Quellcode

Imports GMap.NET.MapProviders
Imports GMap.NET.MapProviders.BingMapProvider
Imports GMap.NET
Imports GMap.NET.MapRoute
Imports GMap.NET.WindowsForms.Markers
Imports GMap.NET.WindowsForms.ToolTips
Imports System.IO
Imports System.Runtime.Serialization
Imports GMap.NET.WindowsForms
Imports GMap.NET.CacheProviders
Imports GMap.NET.GMaps
Imports GMap.NET.WindowsForms.GMapOverlay
Imports GMap.NET.MapProviders.GoogleMapProvider
Imports GMap.NET.WindowsForms.GMapControl
Imports GMap.NET.CacheProviders.MsSQLPureImageCache
Imports GMap.NET.Internals
Imports GMap.NET.metadataType
Imports GMap.NET.Placemark
Imports GMap.NET.WindowsForms.GMapRoute
Public Class Route_berechnen
Private Sub Route_berechnen_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
GMapControl1.MapProvider = GMapProviders.GoogleMap
GMapControl1.SetCurrentPositionByKeywords("Deutschland")
GMapControl1.MinZoom = 3
GMapControl1.MaxZoom = 17
GMapControl1.Zoom = 5
GMapControl1.Manager.Mode = AccessMode.ServerAndCache
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim start As New String(TextBox1.Text)
Dim [end] As New String(TextBox2.Text)
Dim route As MapRoute = GoogleMapProvider.Instance.GetRouteBetweenPoints(start, [end], False, False, 15)
Dim r As New GMapRoute(route.Points, "My route")
Dim routesOverlay As GMapOverlay
routesOverlay.Routes.Add(r)
GMapControl1.Overlays.Add(routesOverlay)
r.Stroke.Width = 2
r.Stroke.Color = Color.SeaGreen
End Sub

KosmicFilament · 20. Mai 2013, 17:53

Hallo,

versuch mal folgendes:

VB.NET-Quellcode

'muss als New deklariert werden da sonst zur Laufzeite eine NullReferenceExzeption hervorgerufen wird
Dim routesOverlay As New GMapOverlay(GMapControl1, "OverLay1")
'Löscht die vorhandenen Overlays, ist jedoch KEIN muss!!!
GMapControl1.Overlays.Clear()
routesOverlay.Routes.Add(r)
GMapControl1.Overlays.Add(routesOverlay)

Ich hoffe es hilft...

viele Grüße

progThis · 20. Mai 2013, 18:48

Hab es schon geschafft trotzdem danke

GMap.NET Control Route berechnen

GMap.NET Control Route berechnen

Skybird schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

C-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben