new message

Mapmod.bas

@@ -0,0 +1,139 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Activity
+Version=9.801
+@EndOfDesignText@
+#Region  Activity Attributes 
+	#FullScreen: False
+	#IncludeTitle: True
+#End Region
+
+Sub Process_Globals
+	Private rp As RuntimePermissions
+End Sub
+
+Sub Globals
+	Private gmap As GoogleMap
+	Private MapFragment1 As MapFragment
+	Private centerloc As CameraPosition
+	Private bmp As Bitmap
+	Private gmapx As GoogleMapsExtras
+	
+End Sub
+
+Sub Activity_Create(FirstTime As Boolean)
+	'Do not forget to load the layout file created with the visual designer. For example:
+	Activity.LoadLayout("mapfrag")
+	bmp = LoadBitmapResize(File.DirAssets, "marker2.png", 20dip, 20dip, True)
+	Wait For MapFragment1_Ready
+	gmap = MapFragment1.GetMap
+	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		gmap.MyLocationEnabled = True
+	Else
+		Log("No permission!")
+		End If
+
+'matchingsub
+add_line
+	'gmap.mMoveCamera(-centerloc)
+End Sub
+
+Sub Log_Markers
+	'Regex.
+	'For Main.rocklist
+	
+End Sub
+
+Sub matchingsub 'currently pulls location 
+	Do Until MapFragment1.GetMap.IsInitialized 'necissary to prevent 'googlemaps not initialized' error, which is misleading
+		Sleep(100)
+	Loop
+gmap.MapType = gmap.MAP_TYPE_SATELLITE
+centerloc.initialize (-32.676910,118.211034,14)
+gmap.MoveCamera(centerloc)
+	'\d*\.?\d*(L|ml|kg|g])\s(\w+\s?\w*)\s?(\$?\d*\.?\d*)[\n]
+	If Main.headerlist.Size >0 Then
+		For i = 0 To Main.headerlist.Size - 1
+'			sb.Append(headerlist.get(i)).Append(CRLF)
+'			sb.Append(Main.locationstringlist.get(i+1)).Append(CRLF)
+		Next
+	For i = 0 To Main.headerlist.size-1
+	Dim m As Matcher =Regex.Matcher(",(.+?) (.+?),", Main.locationstringlist.Get(i+1))
+	Do While m.Find
+		gmap.AddMarker3(m.group(1),m.group(2),Main.headerlist.get(i),bmp)
+	Loop
+	Next
+	End If
+'	For i = 1 To Main.PointList.Size-1
+'		Dim m As Matcher =Regex.Matcher("(?<=,)(.+) (.+)(?=,)", Main.PointList.Get(i))
+'		Do While m.Find
+'			gmap.AddMarker(m.group(1),m.group(2),"Point")
+'		Loop
+'	Next
+'	For i = 1 To Main.WeedList.Size-1
+'		Dim m As Matcher =Regex.Matcher("(?<=,)(.+) (.+)(?=,)", Main.WeedList.Get(i))
+'		Do While m.Find
+'			gmap.AddMarker(m.group(1),m.group(2),"Weed")
+'		Loop
+'	Next
+End Sub
+
+Sub add_line
+	Dim line As Polyline
+	Dim points As List
+	Dim point As LatLng
+	Dim grpvop As GroundOverlayOptions
+	Dim grov As GroundOverlay
+	Dim overlay4 As Bitmap
+	Dim centr As LatLng
+	grpvop.Initialize
+	overlay4 = LoadBitmap(File.DirAssets, "overlaywhite.png")
+	grpvop.Image(overlay4)
+	centr.Initialize(-32.6972,118.1908)
+	grpvop.Position(centr,29000,16000)
+	grpvop.SetTransparency(.5)
+
+	gmapx.AddGroundOverlay(gmap,grpvop)
+	line=gmap.AddPolyline
+	points.Initialize
+	
+	line.Color=Colors.Red
+	line.Visible=True
+	line.Width=2
+	point.Initialize(-32.6758, 118.1967)
+	points.Add(point)
+	point.Initialize(-32.6757, 118.1756)
+	points.Add(point)
+	point.Initialize(-32.6608, 118.1756)
+	points.Add(point)
+	point.Initialize(-32.6564, 118.182)
+	points.Add(point)
+	point.Initialize(-32.6564, 118.1963)
+	points.Add(point)
+	point.Initialize(-32.6758, 118.1967)
+	points.Add(point)
+	line.Points=points
+	
+End Sub
+
+Sub MapFragment1_Click (Point As LatLng)
+	gmap.AddMarker(Point.Latitude, Point.Longitude, "New Marker")
+	Log(Point)
+
+End Sub
+
+Sub Activity_Resume
+'add_line
+matchingsub
+End Sub
+
+Sub Activity_Pause (UserClosed As Boolean)
+
+End Sub
+
+Sub button1_Click
+	StartActivity(Main)
+End Sub

Objects/AndroidManifest.xml

@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="utf-8"?>
+<manifest
+	xmlns:android="http://schemas.android.com/apk/res/android"
+	package="b4a.rocklogster"
+	android:versionCode="1"
+	android:versionName=""
+	android:installLocation="internalOnly">
+	
+	<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="28"/>
+	<supports-screens android:largeScreens="true" 
+	    android:normalScreens="true" 
+	    android:smallScreens="true" 
+	    android:anyDensity="true"/>
+	<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION"/>
+	<uses-permission android:name="android.permission.INTERNET"/>
+	<uses-permission android:name="com.google.android.providers.gsf.permission.READ_GSERVICES"/>
+	<uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION"/>
+	<uses-permission android:name="b4a.rocklogster.permission.MAPS_RECEIVE"/>
+	<uses-permission android:name="android.permission.ACCESS_NETWORK_STATE"/>
+	<uses-permission android:name="android.permission.FOREGROUND_SERVICE"/>
+	<application
+		android:label="RockLogster"
+		android:theme="@style/DarkTheme"
+		android:icon="@mipmap/ic_launcher">
+		
+		<meta-data
+		  android:name="com.google.android.geo.API_KEY"
+		  android:value="AIzaSyBPqtpSYMEAfgvf-K7wF_L2TFOTUxeDwsA"/>
+		<uses-library
+		      android:name="org.apache.http.legacy"
+		      android:required="false" />
+			  <meta-data android:name="com.google.android.gms.version"
+		      android:value="@integer/google_play_services_version" />
+		<activity
+			android:windowSoftInputMode="stateHidden"
+			android:launchMode="singleTop"
+			android:name=".main"
+			android:label="RockLogster"
+			android:screenOrientation="unspecified">
+			<intent-filter>
+			   <action android:name="android.intent.action.MAIN" />
+			   <category android:name="android.intent.category.LAUNCHER" />
+			</intent-filter>
+			
+		</activity>
+		<service android:name=".starter">
+		</service>
+		<receiver android:name=".starter$starter_BR">
+		</receiver>
+		<activity
+			android:windowSoftInputMode="stateHidden"
+			android:launchMode="singleTop"
+			android:name=".mapmod"
+			android:label="RockLogster"
+			android:screenOrientation="unspecified">
+		</activity>
+	</application>
+</manifest>