Android Tutorial OSMDroid - MapView for B4A tutorial

Activity.AddView(MapView1, -180, -320, 900, 1600)

Sub Process_Globals
End Sub

Sub Globals
   Dim MapView1 As MapView
   Dim Orientation As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If File.ExternalWritable=False Then
      '   OSMDroid requires the use of external storage to cache tiles
      '   if no external storage is available then the MapView will display no tiles
      Log("WARNING NO EXTERNAL STORAGE AVAILABLE")
   End If
   
   MapView1.Initialize("")
   Activity.AddView(MapView1, 0, 0, 100%x, 100%y)
   MapView1.SetZoomEnabled(True)
   MapView1.SetMultiTouchEnabled(True)
   
   '   set the zoom level BEFORE the center (otherwise unpredictable map center may be set)
   MapView1.Zoom=14
   MapView1.SetCenter(52.75192, 0.40505)
   
   Orientation=45
   MapView1.MapOrientation=Orientation
   
   Activity.AddMenuItem("Rotate-", "Menu")
   Activity.AddMenuItem("Rotate+", "Menu")
   
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Menu_Click
   Dim Action As String
   Action=Sender
   Select Action
      Case "Rotate-"
         Orientation=Orientation-10
         If Orientation<0 Then
            Orientation=Orientation+360
         End If
         MapView1.MapOrientation=Orientation
      Case "Rotate+"
         Orientation=Orientation+10
         If Orientation>360 Then
            Orientation=Orientation-360
         End If
         MapView1.MapOrientation=Orientation
   End Select
End Sub

Sub Process_Globals
   Dim MapCenter As GeoPoint
   Dim TileSource As String
   Dim ZoomLevel As Int
End Sub

Sub Globals
   Dim MapView1 As MapView
   Dim Marker1 As Marker
   Dim MarkersOverlay1 As MarkersOverlay
   Dim TileSourceSpinner As Spinner
End Sub

Sub Activity_Create(FirstTime As Boolean)
   Activity.AddMenuItem("Change Marker1 Hotspot", "Menu")
   
   '   MapView initialized with no EventName as we'll not be listening for MapView events
   MapView1.Initialize("")
   Activity.AddView(MapView1, 0, 48dip, 100%x, 100%y-48dip)
   
   MapView1.SetMultiTouchEnabled(True)
   MapView1.SetZoomEnabled(True)
   
   '   initialize the MarkersOverlay and add it to the MapView
   '   an EventName is required as we will listen for the two events that MarkersOverlay generates
   MarkersOverlay1.Initialize(MapView1, "MarkersOverlay1")
   MapView1.AddOverlay(MarkersOverlay1)
   
   Dim Icon As BitmapDrawable
   Icon.Initialize(LoadBitmap(File.DirAssets, "my_icon.png"))
   
   Marker1.Initialize("Home sweet home", "Lorem ipsum dolor sit amet, consectetur adipiscing elit. Morbi egestas suscipit convallis. Etiam pellentesque gravida est, quis luctus nunc commodo at. Nam et risus orci. Integer malesuada lorem dolor. Maecenas vestibulum cursus enim, tincidunt luctus libero placerat non. In vitae metus tellus, nec euismod nibh. Phasellus ut quam vitae justo sagittis auctor. Sed vel sapien dolor. Etiam ut sem id dolor iaculis ullamcorper. Aenean eget sem nibh, a tempor augue. Nulla interdum luctus molestie.", 52.75610, 0.39748, Icon)
   
   Dim Markers As List
   Markers.Initialize2(Array As Object(Marker1))
   
   '   add the List of Markers to the MarkersOverlay
   MarkersOverlay1.AddMarkers(Markers)
   
   If FirstTime Then
      MapCenter=Marker1.GeoPoint
      TileSource="Mapnik"
      ZoomLevel=MapView1.GetMaxZoomLevel
   End If
   
   MapView1.Zoom=ZoomLevel
   MapView1.SetCenter3(MapCenter)
   
   TileSourceSpinner.Initialize("TileSourceSelect")
   Activity.AddView(TileSourceSpinner, 0, 0, 100%x, 48dip)
   
   TileSourceSpinner.AddAll(MapView1.GetTileSources)
   TileSourceSpinner.Prompt="Select a TileSource"
   TileSourceSpinner.SelectedIndex=TileSourceSpinner.IndexOf(TileSource)
   TileSourceSelect_ItemClick(TileSourceSpinner.SelectedIndex, TileSourceSpinner.SelectedItem)
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   MapCenter=MapView1.GetCenter
   TileSource=MapView1.GetTileSource
   ZoomLevel=MapView1.Zoom
End Sub

'   two event listeners listen for the MarkersOverlay's two events

Sub MarkersOverlay1_Click(Title As String, Description As String, Point As GeoPoint)
   Log("MarkersOverlay1_Click")
   ToastMessageShow(Title&": "&Description, True)
End Sub

Sub MarkersOverlay1_LongClick(Title As String, Description As String, Point As GeoPoint)
   Log("MarkersOverlay1_LongClick")
   ToastMessageShow(Title&": Latitude="&Point.Latitude&", Longitude="&Point.Longitude, True)
   
   '   zoom the map in and center (with animation) on the LongClicked Marker
   MapView1.Zoom=MapView1.GetMaxZoomLevel-1
   MapView1.AnimateTo3(Point)
End Sub

Sub Menu_Click
   Dim Action As String
   Action=Sender
   Select Action
      Case "Change Marker1 Hotspot"
         Marker1.MarkerHotspot=Marker1.HOTSPOT_PLACE_TOP_CENTER
         MapView1.Invalidate
   End Select
End Sub

Sub TileSourceSelect_ItemClick (Position As Int, Value As Object)
   MapView1.SetTileSource(Value)
End Sub

405 public static String  _createvormarkers(boolean _fromcsv) throws Exception{
406 anywheresoftware.b4a.objects.drawable.BitmapDrawable _icon = null;
407 int _i = 0;
408 String[] _cells = null;
409 uk.co.martinpearman.b4a.osmdroid.views.overlays.wrappers.MyOverlayItemWrapper _marker1 = null;
410 //BA.debugLineNum = 130;BA.debugLine="Sub CreateVORMarkers(FromCSV As Boolean)";
411 //BA.debugLineNum = 131;BA.debugLine="VORMarkers.Initialize";
412 mostCurrent._vormarkers.Initialize();
413 //BA.debugLineNum = 132;BA.debugLine="MarkersOverlay2.Initialize(MapView1, \"MarkersOverlay2\")";
414 mostCurrent._markersoverlay2.Initialize(mostCurrent.activityBA,(org.osmdroid.views.MapView)(mostCurrent._mapview1.getObject()),"MarkersOverlay2");
415 //BA.debugLineNum = 133;BA.debugLine="MapView1.AddOverlay(MarkersOverlay2)";
416 mostCurrent._mapview1.AddOverlay((org.osmdroid.views.overlay.Overlay)(mostCurrent._markersoverlay2.getObject()));
417 //BA.debugLineNum = 135;BA.debugLine="Dim Icon As BitmapDrawable";
418 _icon = new anywheresoftware.b4a.objects.drawable.BitmapDrawable();
419 //BA.debugLineNum = 138;BA.debugLine="Dim i As Int";

Dim GeoList as List

GeoList.Initialize

For i = 0 to ListOfCoords.Size -1
   Dim CoordDouble()  as Double
   Dim GPoint as GeoPoint
   CoordDouble = ListOfCoords.Get(i)
   GPoint.Initialize(CoordDouble(0),CoordDouble(1))
   GeoList.Add(GPoint)
Next

PathOverlay1.AddPoints(GeoList)

PathOverlay1.AddPoint(CoordDouble(0),CoordDouble(1))

GeoList = PathOverlay1.GetAllPoints

Sub Process_Globals
Dim Compass As PhoneSensors
...
Sub Globals
Dim AngleStep As Int : AngleStep = 15 'Minimum change of magnetic bearing before rotating map
Dim MagneticDeclination As Int: MagneticDeclination = 0' Location dependent magnetic declination http://magnetic-declination.com/
'http://en.wikipedia.org/wiki/Magnetic_declination
...
Sub Activity_Resume
Compass.StartListening("Orientation")
...
Sub Orientation_SensorChanged(Values() As Float)
   Dim degrees As Float, x As Int
   x=360-((720+Values(0))) Mod 360-MagneticDeclination
   If Compassbearing <> x Then
      Compassbearing = x
      If  Abs(Compassbearing-MapView1.MapOrientation)>AngleStep Then
         MapView1.MapOrientation=Compassbearing
      End If   
   End If
End Sub