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

Da Gambas-it.org - Wikipedia.
(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...")
 
Riga 8: Riga 8:
 
  '''Public''' Sub Form_Open()
 
  '''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"]
+
   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'''
 
  '''End'''

Versione delle 02:43, 17 dic 2019

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