MapView

Alle Fragen zur Programmierung, die nicht in die speziellen Themen passen
Antworten
Melsmann
Foriker
Beiträge: 24
Registriert: Do 9. Mai 2019, 11:18
Kontaktdaten:

MapView

Beitrag von Melsmann » So 15. Dez 2019, 17:10

Moin Zusammen,
Hat von Euch schon jemand Erfahrungen mit dem MapView?

Ich habe mal das Beispiel-Projekt heruntergeladen, bekomme aber nur ein graues Feld angezeigt....

Gruß Jürgen

Benutzeravatar
gambi
Moderator
Beiträge: 322
Registriert: Mi 8. Mai 2013, 21:46
Kontaktdaten:

Re: MapView

Beitrag von gambi » So 15. Dez 2019, 19:40

Hallo Jürgen,
schau dir doch mal mein Projekt hier an: viewtopic.php?f=33&t=5424#p12136

Gruß
gambi

Benutzeravatar
Honsek
Foriker
Beiträge: 411
Registriert: Do 4. Okt 2007, 17:01
Kontaktdaten:

Re: MapView

Beitrag von Honsek » Do 26. Dez 2019, 18:44

Ich habe mal das Beispiel-Projekt heruntergeladen, bekomme aber nur ein graues Feld angezeigt....
Welche Quelle steht hinter dem 'Beispiel-Projekt'?

Hallo Melsmann,

ich habe Erfahrungen mit MapView. Nicht immer gute, denn oft ändern sich Adressen hinter der benutzen Quelle OpenStreetMap. *** Was genau möchtest Du in Deinem Projekt umsetzen?

Als hätte ich es geahnt. Ich habe die beiden Projekte schon vor längerer Zeit geändert und hochgeladen. Jetzt Alles wieder ändern. Hier die Quelltext-Änderung *** :
gambas code
Public Sub ShowMap()
  Dim iZoom As Integer
  Dim fLatitude, fLongitude As Float
  Dim sCacheName, sTileName, sTilePattern As String
  Dim cArguments As New Collection

' Initialisierung
  iZoom = 13  
  sTileName = "OpenStreetMap"
  
' sTilePattern = "85.30.190.241/{z}/{x}/{y}.png"
  sTilePattern = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png" ' <<--- ÄNDERUNG
  
  cArguments = Null
  sCacheName = Null  
  fLatitude = 52.7905  ' °Breite Osterburg
  fLongitude = 11.7531 ' °Länge Osterburg   
    
  MapView1.Map.AddTile(sTileName, sTilePattern, cArguments, sCacheName)
  MapView1.Map[sTileName].Copyright = " © OpenStreetMap"
  MapView1.Map[sTileName].Visible = True ' optional; Standard-Einstellung ist TRUE    
  MapView1.Map.AddShape("P1")
  MapView1.Map!P1.AddPoint("Osterburg", MapPoint(fLatitude, fLongitude))  
  MapView1.Map.Center = MapPoint(fLatitude, fLongitude)
' MapView1.Map.Center = MapView1.Map!P1!Osterburg.Points ' Alternative
  MapView1.Map.Zoom = iZoom 
  MapView1.AllowEffect = True
    
' Alternative Orte:
' MapView1.Map.Center = MapPoint(8, - 8) ' Welt-Karte; Zoom = 1
' MapView1.Map.Zoom = 1
' MapView1.Map.Center = MapPoint(51.4, 10.7) ' Deutschland-Karte; Zoom = 6
' MapView1.Map.Zoom = 6
  
End 
Mit freundlichem Gruß

Honsek
Honsek (https://www.gambas-buch.de)
---> Wenn Du eine gute Antwort erwartest, musst Du sehr gut fragen!

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast