Android Question How to calculate distance between 2 GPS coordinates?

[incendio]

Hi guys,

I'm newbie in this GPS things.

Suppose, there's 2 coodinates, A & B.
A : LAT 35:24, LON 36:20
B : LAT 30:10, LON 25:04

How to calculate distance in meters between A & B?

 

[KZero]

[B4X] [class] Geodesic - Convert Lat Lon / UTM coordinates

The attached class allows you to convert coordinates between Lat Lon coordinates and UTM coordinates. The conversion is done with WGS84 datum. Note that the class code can handle other datums as well. Usage example: Sub Activity_Create(FirstTime As Boolean) Dim g As Geodesic...

www.b4x.com

 

[DonManfred]

Suppose, there's 2 coodinates, A & B.
A : LAT 35:24, LON 36:20
B : LAT 30:10, LON 25:04

How to calculate distance in meters between A & B?

You can create two Location objects (GPS library) and then calculate the distance with Location.DistanceTo.

 

[harinder]

Add GPS library in Libraries Manager

    Dim Location1, Location2 As Location
    Location1.Initialize
    Location2.Initialize
    Dim distance As Int
    Location1.Latitude = 35.24
    Location1.Longitude = 36.20
    Location2.Latitude = 30.10
    Location2.Longitude = 25.04
    distance = Location1.DistanceTo(Location2)    'distance in meters
    distance=distance*.00054                      'distance in nautical miles

 

[Alex_197]

Public Sub CalcDistance(CurrentLat As Double,CurrentLong As Double,HouseLat As Double,HouseLong As Double) As Double
    
    Try
        
        
        Dim LatP As Double=CurrentLat
        Dim LongP As Double=CurrentLong
        Dim LatD As Double=HouseLat
        Dim LongD As Double=HouseLong
        
        Dim Miles As Double
        Dim Yards As Double
        Dim X As Double
        
        Dim Coeff As Double= 1760.0

        X = Sin(LatP * 0.01745) * Sin(LatD * 0.01745) + Cos(LatP * 0.01745)* Cos(LatD * 0.01745) * Cos(( LongD - LongP ) * 0.01745)
        
        Miles = 1.15 * 3963 * ( ATan(-X / Sqrt(-X * X+ 1.0000000000001)) + 2* ATan(1) )
                                    
        Miles = Round2(Miles, 2)
            
        Yards = Miles * Coeff
            
        Return Round( Yards)
        
    Catch
        
        Log("CalcDistance " & LastException)
        ShowError("CalcDistance " & LastException)
        Return -1
    End Try
    
End Sub