Visualizza wikitesto di Individuare su una MapView un punto geografico avendo un punto iniziale, l'angolo di declinazione e la distanza

Per individuare su una ''MapView'' un punto geografico avendo:
<BR>- il punto iniziale (Pi);
<BR>- l'angolo (a) di declinazione rispetto all'asse della latitudine (AL) di tale punto;
<BR>- la distanza (D) tra il punto iniziale e il punto da individuare (Pf);
 AL
 |     '''Pf'''
 |    /
 |   /
 |^^/D
 |a/
 |/
 '''Pi'''
si dovrà utilizzare il Metodo ".From()" della Classe ''MapPoint''.

Vediamo un esempio <SUP>&#091;[[#Note|nota 1]]&#093;</sup> (basterà cliccare una sola volta con il tasto destro del mouse, per vedere individuato sulla ''MapView'' il secondo punto):
 Private MapView1 As MapView
 
 
 Public Sub _new()
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
 
  MapView1 = New MapView(Me) As "MapView1"
 
 End 
 
 
 Public Sub Form_Open()
 
  With MapView1.Map
    .AddTile("GoogleMap", "https&#058;//khms{s}.google.it/kh/v={version}&src=app&x={x}&y={y}&z={z}&s=Galile", ["version": "979"]).SubDomains = ["0", "1", "2"]
    .Zoom = 15
    .Center = MapPoint(41.89018, 12.49230)
  End With
 
 End
 
 
 Public Sub MapView1_MouseUp()
  
  Dim pt As New Point(Mouse.X, Mouse.Y)
  Dim mmpp As New MapPoint[]
 
  If Mouse.Right Then
    With MapView1
 <FONT Color=gray>' ''Per individuare il primo punto (iniziale):''</font>
      mmpp.Push(.Map.PixelToMapPointRel(pt))
 <FONT Color=gray>' ''Per individuare il secondo punto (finale), si impostano i <FONT Color=darkorange>gradi di declinazione</font> e la <FONT Color=darkgreen>distanza</font> del punto iniziale rispetto a quello da individuare:''</font>
      mmpp.Push(MapPoint.<FONT Color=#B22222><B>From</b></font>(mmpp[mmpp.Max], <FONT Color=darkorange>47.83</font>, <FONT Color=darkgreen>2181.969</font>))
 <FONT Color=gray>' ''Mostra le coordinate geografiche del secondo punto (finale):''</font>
      Print mmpp[mmpp.Max].lat, mmpp[mmpp.Max].Lon
 <FONT Color=gray>' ''Per disegnare il punto finale:''</font>
      .Map.AddShape("punto").AddPoint("punto", mmpp[mmpp.Max], Color.Red, Null)
 <FONT Color=gray>' ''Per disegnare la linea congiungente i due punti:''</font>
      .Map.AddShape("polyline").AddPolyLine("polyline", mmpp, Color.Red, 2, 4)
      .Refresh()
      .Map.Refresh()
    End With  
  Endif
   
 End



=Note=
[1] Qualora la mappa non appaia, verificare la versione GoogleMap, ed eventualmente modificarla in questa parte del codice: ["version": "979"]
<BR>Al riguardo vedere: [[Conoscere la versione più recente di Google Maps satellite]]