Ottenere l'angolo di inclinazione tra due punti su una MapView rispetto alla latitudine del punto iniziale
Da Gambas-it.org - Wikipedia.
Versione del 10 giu 2020 alle 16:32 di Vuott (Discussione | contributi)
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 sulla MapView con il tasto destro del mouse per definire un primo punto iniziale e poi un secondo punto finale): [Nota 1]
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": "869"]).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
Note
[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questo punto: ["version": "860"]
Al riguardo vedere: Conoscere la versione più recente di Google Maps satellite