Ottenere l'angolo di inclinazione tra due punti su una MapView rispetto alla latitudine del punto iniziale

Da Gambas-it.org - Wikipedia.

Usando il Componente gb.map, per ottenere l'angolo di inclinazione tra due punti su una MapView rispetto alla direzione nord dell'asse della latitudine del punto iniziale, bisognerà utilizzare il Metodo .Bearing( ) della Classe MapPoint.
Pertanto avremo l'inclinazione, espressa in gradi, della direzione del secondo punto dal primo punto (iniziale). [Nota 1]

Mostriamo un esempio pratico (cliccare sulla MapView con il tasto destro del mouse per definire un primo punto iniziale e poi un secondo punto finale):

Private mmpp As New MapPoint[]


Public Sub Form_Open()
 
 MapView1.Map.AddTile("GoogleMap", "https://khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "900"]).SubDomains = ["0", "1", "2"]    ' [Nota 2]
 
End


Public Sub MapView1_MouseUp()
 
 Dim pt As New Point(Mouse.X, Mouse.Y)
 
 If mmpp.Count == 2 Then mmpp = New MapPoint[]
 
 If Mouse.Right Then
   mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
   If mmpp.Count == 2 Then 
     With MapPoint
       Print .Bearing(mmpp[0], mmpp[1]); " gradi"
     End With
   Endif
 Endif
 
End


Note

[1] Vedere anche la seguente pagina: Calcolare il rilevamento (bearing) in gradi

[2] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto: ["version": "894"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite