The following code converts location1.bearing to readable string
Example : Dim MyDirection as String
MyDirection = GetCompassDirection(location1.bearing)
Tag: Direction , GPS direction , GPS Heading
Example : Dim MyDirection as String
MyDirection = GetCompassDirection(location1.bearing)
B4X:
Sub GetCompassDirection(bearing As Double) As String
Dim tmp As Int
' Set Default Direction
Dim direction As String : direction = "N"
tmp = Floor(Round(bearing / 22.5))
Select Case tmp
Case 1
direction = "NNE"
Case 2
direction = "NE"
Case 3
direction = "ENE"
Case 4
direction = "E"
Case 5
direction = "ESE"
Case 6
direction = "SE"
Case 7
direction = "SSE"
Case 8
direction = "S"
Case 9
direction = "SSW"
Case 10
direction = "SW"
Case 11
direction = "WSW"
Case 12
direction = "W"
Case 13
direction = "WNW"
Case 14
direction = "NW"
Case 15
direction = "NNW"
Case Else
direction = "N"
End Select
Return direction
End Sub
Tag: Direction , GPS direction , GPS Heading