Search Results

used location class, and worked like a charm Dim LocationFrom As Location Dim LocationTo as Location LocationTo.Initialize2(routeto.Latitude,routeto.Longitude) LocationFrom.Initialize2(routebegin.Latitude,routebegin.Longitude) rotateangle =LocationFrom.BearingTo(LocationTo)

Location.Initialize2(Lat as string, Lon as string) where Lat/Lon (if using seconds) should be formatted as DD:MM:SS.SSSSS My comment is about a possible internal convertion made by the Location object itself. It could read in any decimal separator and "convert" it to the decimal point it expects. S
link: 234d Dim myLon As Double = 5.678d 'Test with android location object Dim J As JavaObject J.InitializeContext J.RunMethod("locationT

Dim l1, l2 As Location l1.Initialize2(gmap.MyLocation.Latitude,gmap.MyLocation.Longitude) l2.Initialize2(RootMap.Get("LatitudB"), RootMap.Get("LongitudB")) 'ahora necesitamos la distancia entre nuestra ubicación y la ubicación de destino
link: Hi not having yet enough skills to manage B4XPages (because I use B4A with years intervals and changes in it gave me learning problems), I adapted an
link: 1. Use B4XPages. 2. Call this sub once when the program starts: Private Sub SetMapBearing Do While True If gmap.IsInitialized And gmap.My

Or, if you already use the GPS library: Private Loc1, Loc2 As Location Loc1.Initialize2(Lat1, Lng1) Loc2.Initialize2(Lat2, Lng2) Angle = Loc1.BearingTo(Loc2)

Initialize2 (Priority As Int, IntervalMillis As Long) As LocationRequest Constructs a LocationRequest with the given priority and interval, and default values for all other fields. Initialize3 (Request As LocationRequest) As LocationRequest Constructs a LocationRequest with values copied from the gi
link: GetLastLocation Wait For (Result As LocationResult) If Result.Status=LocationResult.STATUS_SUCCESSFUL Then Dim Loc As Loc

To get more precise results you could have used the DistanceTo method from the GPS libary. Private Location1, Location2 As Location Location1.Initialize(Lat1, Lng1) Location2.Initialize(Lat2, Lng2) Distance = Location1.DistanceTo(Location2)

i get 66.1 meters. here's the deal: 1) you NEED to read the documentation relating to the Location object 2) prepare moist towel for some head banging and blood sopping 3) you need to feed location2() 2 strings, not 2 variables declared as strings specifically: ' works: L1.Initialize2("-
link: Hi All I think there is a problem with the DistanceTo method in Location. When I run the following code I get a return value of 7482515 for somethin

HI guy just though I would sharte this example got it working thank erel just remember for this example you need to change the gps geo.Center.Initialize2(-29.814433207125315, 30.90207661547709) 'change location! to your location to test it rp.CheckAndRequest(rp.) Wait For B4XPag

I tested the code and works fine. I have inserted a simple msgbox to notify when i'm near a specific GPS point p1.Initialize2("+42.0559340","+13.9242163") 'target p3.Initialize2(Location1.Latitude,Location1.Longitude) Dim Distance As Float = p1.DistanceTo(p3) i also write in log same notification
link: End Sub Sub (lm As LocationManager, ActivityType As Int) 'ignore Dim no As NativeObject = lm no = no.GetField("manager") no.SetField("activityTyp

Thanks Manfred. The location variable is a standard Location type rather than a FusedLocation one. I hadn't spotted the Initialize2 method. That works a treat passing the bearing and lat and lon in. Thank you!
link: are you sure a fusedlocation has an Bearing? You need to create a new CameraPosition Dim cp As CameraPosition cp.Initialize2(pos1.Latitude,po

Powered by ColBERT