those logs give very close matches to the google maps results.
why would the bearingTo and distanceTo not work?
I changed the location sub to
Sub GPS_LocationChanged (Location1 As Location)
lblLat.Text = "Lat = " & Location1.ConvertToMinutes(Location1.Latitude)
lblLon.Text = "Lon = " & Location1.ConvertToMinutes(Location1.Longitude)
lblSpeed.Text = "Speed = " & Location1.Speed
Log(Location1.Latitude & " " & Location1.Longitude)
edtBearing.Text = "bearing: " & Round2(Location1.BearingTo(target1)+180,2) & " distance: " & Location1.DistanceTo(target1) & "m"
End Sub
I've added 180 to get a compass bearing from 0-360 instead of -180 to 180
I didn't think this would affect the result?
The only other change was in activity_create where I added
target1.Initialize2("12:34.5678", "-12:34.5678")
(with Dim target1 as Location in the globals sub)