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

Da Gambas-it.org - Wikipedia.
Versione del 17 dic 2019 alle 02:41 di Vuott (Discussione | contributi) (Creata pagina con "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 inizi...")

(diff) ← Versione meno recente | Versione attuale (diff) | Versione più recente → (diff)

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).

Mostriamo un esempio pratico (cliccare su un primo punto iniziale e 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": "859"]).SubDomains = ["0", "1", "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