Visualizza wikitesto di Disegnare un poligono su una MapView usando l'Oggetto "Figlio" DrawingArea

Il Controllo grafico ''MapView'' mostra la mappa su una ''DrawingArea'', che è un Oggetto "Figlio" di un ''Panel'', "Figlio" a sua volta del Controllo ''MapView'':
 <FONT Size=4>MapView</font>
 <FONT Size=3>⬇</font> <FONT Size=1>padre di un</font>
 Panel
 <FONT Size=3>⬇</font> <FONT Size=1>padre di una</font>
 <FONT Size=2>DrawingArea</font>
Pertanto, sarà possibile utilizzare tale ''DrawingArea'' per disegnare qualsiasi cosa, facendola apparire al di sopra della mappa.

Mostriamo di seguito il codice ''base'' per disegnare ogni volta nel punto, ove si è cliccato sulla mappa con il puntatore del mouse, un poligono <SUP>&#091;[[#Note|nota 1]]&#093;</sup>, che rimarrà visibile sulla mappa anche dopo l'inserimento di altri poligoni. Per inserire il disegno di un poligono sulla ''DrawingArea'' della ''MapView'', si dovrà cliccare con il tasto ''destro'' del mouse.
<BR>Per variare la dimensione del poligono, disegnato sulla ''DrawingArea'' della ''MapView'', si dovrà cambiare il valore della Costante "RAGGIO".

A seconda del tipo di poligono da disegnare sulla mappa bisognerà sostituire le parti punteggiate in rosso e in grassetto con i pezzi coerenti di codice proposti a seguire.
 Private MapView1 As MapView
 Private Const <FONT Color=darkgreen>RAGGIO</font> As Single = 50.0
 Private Const ZOOM As Byte = <FONT Color=darkgreen>14</font>       <FONT Color=gray>' ''Zoom iniziale''</font>
 Private Const <FONT Color=#B22222><B>.........</b></font>   <FONT Color=gray>'</font><FONT Color=#B22222> ''Qui va il nome della Costante del poligono e il rispettivo valore in base al numero dei vertici''</font>
 Private pn As Panel
 Private mmpp As New MapPoint[]
 Private coord As Single[]
 Private pol As New Single[]
 
 
 Public Sub Form_Open()
 
  With Me
    .W = Screen.AvailableWidth
    .H = Screen.AvailableHeight
    .Arrangement = Arrange.Fill
  End With
  With MapView1 = New MapView(Me) As "MapView1"
    .Map.AddTile("GoogleMap", "http&#058;//mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}")
    .Map.Zoom = 14
    .Map.Center = New MapPoint(41.89018, 12.49230)
  End With
 
 <FONT Color=gray>' ''Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel":''</font>
  pn = MapView1.Children[0]
 
 End
 
 Public Sub MapView1_MouseUp()
 
  If Not Mouse.Right Then Return 
 
  Dim pt As New Point(Mouse.X, Mouse.Y)
 
 <FONT Color=gray>' ''Si usa l'Oggetto "MapPoint" per garantire la coerenza del puntamento su un punto della mappa anche nel caso di spostamento o variazione dello zoom della mappa medesima:''</font>
  mmpp.Push(MapView1.Map.PixelToMapPointRel(pt))
 
  Me.Caption = "Lat. " & Format(mmpp[mmpp.Max].Lat, "0.00000") &
               "  -  Lon. " & Format(mmpp[mmpp.Max].Lon, "0.00000")
 
 <FONT Color=gray>' '''''Se si vuole immettere sulla "DrawingArea" dei poligoni, aventi un raggio (e quindi una dimensione) pari al raggio impostato come ''Costante'', proporzionato allo zoom attuale, si inserirà il seguente codice, contenente la formula per proporzionare il raggio del poligono allo zoom corrente:'''''</font>
  Dim rd As Single = <FONT Color=darkgreen>RAGGIO * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM))</font>
 
  For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>.........</b></font> <FONT Color=gray>' ''Qui va il nome della Costante del poligono''</font>
    pol.Push(rd * Cos(Rad(t)))
    pol.Push(rd * Sin(Rad(t)))
  Next
 
 <FONT Color=gray>' ''Altrimenti si useranno le seguenti righe:''
 ' '''''For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>.........</b></font>''''' <FONT Color=gray>' ''Qui va il nome della Costante del poligono''</font>
    ' '''''pol.Push(RAGGIO * Cos(Rad(t)))'''''
    ' '''''pol.Push(RAGGIO * Sin(Rad(t)))'''''
  ' '''''Next'''''</font>
 
  MapView1.Refresh
 
 End
 
 Public Sub MapView1_Draw()
 
 <FONT Color=gray>' ''Si proporzionano i poligoni, disegnati sulla "DrawingArea" allo zoom corrente:</font>
  Dim rd As Single = <FONT Color=darkgreen>RAGGIO * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM))</font>
 
  For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>.........</b></font> <FONT Color=gray>' ''Qui va il nome della Costante del poligono''</font>
    pol.Push(rd * Cos(Rad(t)))
    pol.Push(rd * Sin(Rad(t)))
  Next
 
  With Paint
    .Begin(pn.Children[0])
    .Brush = .Color(Color.Yellow)
 <FONT Color=gray>' ''Proporziona lo spessore del perimetro del poligono allo zoom corrente:</font>
    .LineWidth = 2.5 <FONT Color=darkgreen>* CSingle(1.5 ^ (MapView1.Map.Zoom - ZOOM))</font>
    For i As Integer = 0 To mmpp.Max
      coord = [MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y]
      .Polygon([<FONT Color=#B22222><B>.........</b></font>])
    Next
    .Stroke
    .End
  End With
  pol.Clear
 
 End


==Parti da inserire per disegnare un Triangolo==
Le parti di codice che, per disegnare un Triangolo, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 <FONT Color=gray>' ''Il nome identificativo della ''Costante'' del Triangolo, il tipo di dato e il rispettivo valore in base al numero dei suoi vertici:''</font>
 Private Const <FONT Color=#B22222><B>TRIANGOLO As Byte = 3</b></font>

 <FONT Color=gray>''In questo caso va modificato anche il valore iniziale del cislo "FOR...NEXT" in base al numero dei suoi vertici:''</font> 
 For t As Short = <FONT Color=#B22222><B>30</b></font> To 360 Step 360 / <FONT Color=#B22222><B>TRIANGOLO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5])</b></font>])

==Parti da inserire per disegnare un Quadrato==
Le parti di codice che, per disegnare un Quadrato, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>QUADRATO As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va modificato anche il valore iniziale del cislo "FOR...NEXT":''</font> 
 For t As Short = <FONT Color=#B22222><B>45</b></font> To 360 Step 360 / <FONT Color=#B22222><B>QUADRATO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Rettangolo==
Le parti di codice che, per disegnare un Rettangolo, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>RETTANGOLO As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Rettangolo da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font> 
 For t As Short = <FONT Color=#B22222><B>45</b></font> To 360 Step 360 / <FONT Color=#B22222><B>RETTANGOLO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]) - </b></font><FONT Color=darkgreen><B>(40 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[3]), (coord[0] + pol[4]) - </b></font><FONT Color=darkgreen><B>(40 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Tapezio Isoscele==
Le parti di codice che, per disegnare un Trapezio isoscele, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>TRAPEZIO_ISOSCELE As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Trapezio isoscele da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font> 
 For t As Short = <FONT Color=#B22222><B>45</b></font> To 360 Step 360 / <FONT Color=#B22222><B>TRAPEZIO_ISOSCELE</b></font>
 
 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]) + </b></font><FONT Color=darkgreen><B>(30 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[1]), (coord[0] + pol[2]) - </b></font><FONT Color=darkgreen><B>(30 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Tapezio Rettangolo==
Le parti di codice che, per disegnare un Trapezio rettangolo, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>TRAPEZIO_RETTANGOLO As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Trapezio rettangolo da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font>
 For t As Short = <FONT Color=#B22222><B>45</b></font> To 360 Step 360 / <FONT Color=#B22222><B>TRAPEZIO_ISOSCELE</b></font>
 
 <FONT Color=gray>''In questo caso, per creare il Trapezio rettangolo, basterà partire dalle coordinate del Rettangolo, avendo cura di ridurre la lunghezza del lato superiore da un solo vertice:''</font> 
 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6])</b></font> - <FONT Color=darkgreen><B>(30 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Tapezio Scaleno==
Le parti di codice che, per disegnare un Trapezio scaleno, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>TRAPEZIO_SCALENO As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Trapezio scaleno da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font>
 For t As Short = <FONT Color=#B22222><B>45</b></font> To 360 Step 360 / <FONT Color=#B22222><B>TRAPEZIO_SCALENO</b></font>
 

 <FONT Color=gray>''In questo caso, per creare il Trapezio scaleno, basterà partire dalle coordinate del Rettangolo, avendo cura di ridurre la lunghezza del lato superiore da entrambi i suoi due vertici:''</font> 
 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]) + </b></font><FONT Color=darkgreen><B>(50 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4])</b></font> + <FONT Color=darkgreen><B>(20 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[5]), (coord[0] + pol[6])</b></font> - <FONT Color=darkgreen><B>(10 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Rombo==
Le parti di codice che, per disegnare un Rombo, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>ROMBO As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Rombo da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font>
 For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>ROMBO</b></font>
 
 <FONT Color=gray>''In questo caso, per creare il Rombo, basterà partire dalle coordinate del Rettangolo, avendo cura di ridurre la distanza fra due vertici contrapposti:''</font> 
 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0])</b></font> - <FONT Color=darkgreen><B>(30 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4])</b></font> + <FONT Color=darkgreen><B>(30 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</b></font><FONT Color=#B22222><B>, (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7])</b></font>])

==Parti da inserire per disegnare un Romboide==
Le parti di codice che, per disegnare un Romboide, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>ROMBOIDE As Byte = 4</b></font>

 <FONT Color=gray>''In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Romboide da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font>
 For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>ROMBOIDE</b></font>

 <FONT Color=gray>''In questo caso, per creare il Romboide, basterà partire dalle coordinate del Rettangolo, avendo cura di aumentare la lunghezza di un vertice rispetto al fulcro centrale della figura:''</font> 
 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7]) - <FONT Color=darkgreen>(120 * CSingle(2 ^ (MapView1.Map.Zoom - ZOOM)))</font></b></font>])

==Parti da inserire per disegnare un Pentagono regolare==
Le parti di codice che, per disegnare un Pentagono regolare, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>PENTAGONO As Byte = 5</b></font>

 For t As Short = -18 To 342 Step 360 / <FONT Color=#B22222><B>PENTAGONO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7]), (coord[0] + pol[8]), (coord[1] + pol[9])</b></font>])

==Parti da inserire per disegnare un Esagono regolare==
Le parti di codice che, per disegnare un Esagono regolare, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>ESAGONO As Byte = 6</b></font>

 For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>ESAGONO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7]), (coord[0] + pol[8]), (coord[1] + pol[9]), (coord[0] + pol[10]), (coord[1] + pol[11])</b></font>])

==Parti da inserire per disegnare un Eptagono regolare==
Le parti di codice che, per disegnare un Eptagono regolare, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>EPTAGONO As Byte = 7</b></font>

 For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>EPTAGONO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7]), (coord[0] + pol[8]), (coord[1] + pol[9]), (coord[0] + pol[10]), (coord[1] + pol[11]), (coord[0] + pol[12]), (coord[1] + pol[13])</b></font>])

==Parti da inserire per disegnare un Ottagono regolare==
Le parti di codice che, per disegnare un Ottagono regolare, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
 Private Const <FONT Color=#B22222><B>OTTAGONO As Byte = 8</b></font>

 For t As Short = 0 To 360 Step 360 / <FONT Color=#B22222><B>OTTAGONO</b></font>

 .Polygon([<FONT Color=#B22222><B>(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5]), (coord[0] + pol[6]), (coord[1] + pol[7]), (coord[0] + pol[8]), (coord[1] + pol[9]), (coord[0] + pol[10]), (coord[1] + pol[11]), (coord[0] + pol[12]), (coord[1] + pol[13]), (coord[0] + pol[14]), (coord[1] + pol[15])</b></font>])



=Note=
[1] Vedere anche le pagine:
* [https://www.gambas-it.org/wiki/index.php/Disegnare_un_cerchio_o_un_punto_su_una_MapView#Disegnare_un_cerchio_o_una_ellisse_o_un_punto_su_una_MapView_usando_l.27Oggetto_.22Figlio.22_DrawingArea Disegnare un cerchio o una ellisse o un punto su una MapView usando l'Oggetto "Figlio" DrawingArea]
* [[Mostrare sulla MapView disegni, immagini e Controlli senza l'uso del Metodo Map.AddShape()]]