Differenze tra le versioni di "Disegnare un poligono su una MapView usando l'Oggetto "Figlio" DrawingArea"
Riga 104: | Riga 104: | ||
For t As <FONT Color=#B22222><B>Byte = 0 To RETTANGOLO - 1</b></font> | For t As <FONT Color=#B22222><B>Byte = 0 To RETTANGOLO - 1</b></font> | ||
+ | pol.Push(RAGGIO * Cos(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) | ||
+ | pol.Push(RAGGIO * Sin(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) | ||
+ | Next | ||
+ | |||
+ | .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 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 isosceele da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT":''</font> | ||
+ | <FONT Color=#B22222><B>Dim gradi As Single[] = [20.0, 160.0, 230.0, 310.0]</b></font> | ||
+ | |||
+ | For t As <FONT Color=#B22222><B>Byte = 0 To TRAPEZIO_ISOSCELE - 1</b></font> | ||
pol.Push(RAGGIO * Cos(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) | pol.Push(RAGGIO * Cos(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) | ||
pol.Push(RAGGIO * Sin(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) | pol.Push(RAGGIO * Sin(Rad(<FONT Color=#B22222><B>gradi[t]</b></font>))) |
Versione delle 15:26, 30 mag 2023
Il Controllo grafico MapView mostra la mappa su una DrawingArea, che è un Oggetto "Figlio" di un Panel, "Figlio" a sua volta del Controllo MapView:
MapView ⬇ padre di un Panel ⬇ padre di una DrawingArea
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 [nota 1], che rimarrà visibile sulla mappa anche dopo l'inserimento di altri poligoni. Per inserire il disegno di un Esagono regolare sulla DrawingArea della MapView, bisogna cliccare con il tasto destro del mouse.
Per variare la dimensione dell'Esagono disegnato sulla DrawingArea della MapView, 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 pn As Panel Private mmpp As New MapPoint[] Private Const RAGGIO As Single = 50.0 Private Const ......... 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://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 ' Individua dapprima l'Oggetto "Figlio" della "MapView", che è un "Panel": pn = MapView1.Children[0] End Public Sub MapView1_MouseUp() If Not Mouse.Right Then Return Dim pt As New Point(Mouse.X, Mouse.Y) ' 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: mmpp.Push(MapView1.Map.PixelToMapPointRel(pt)) Me.Caption = "Lat. " & Format(mmpp[mmpp.Max].Lat, "0.00000") & " - Lon. " & Format(mmpp[mmpp.Max].Lon, "0.00000") For t As Short = 0 To 360 Step 360 / ......... pol.Push(RAGGIO * Cos(Rad(t))) pol.Push(RAGGIO * Sin(Rad(t))) Next MapView1.Refresh End Public Sub MapView1_Draw() Dim i As Integer With Paint .Begin(pn.Children[0]) .Brush = .Color(Color.Yellow) .LineWidth = 2.5 For i = 0 To mmpp.Max coord = [MapView1.Map.MapPointToPixelRel(mmpp[i]).X, MapView1.Map.MapPointToPixelRel(mmpp[i]).Y] .Polygon([.........]) Next .Stroke .End End With End
Indice
- 1 Parti da inserire per disegnare un Triangolo
- 2 Parti da inserire per disegnare un Quadrato
- 3 Parti da inserire per disegnare un Rettangolo
- 4 Parti da inserire per disegnare un Tapezio Isoscele
- 5 Parti da inserire per disegnare un Pentagono regolare
- 6 Parti da inserire per disegnare un Esagono regolare
- 7 Parti da inserire per disegnare un Eptagono regolare
- 8 Parti da inserire per disegnare un Ottagono regolare
- 9 Note
Parti da inserire per disegnare un Triangolo
Le parti di codice che, per disegnare un Quadrato, sostituiranno quelle punteggiate in rosso del codice generico, sopra mostrato, sono le seguenti:
Private Const TRIANGOLO As Byte = 3
In questo caso va modificato anche il valore iniziale del cislo "FOR...NEXT": For t As Short = 30 To 360 Step 360 / TRIANGOLO
.Polygon([(coord[0] + pol[0]), (coord[1] + pol[1]), (coord[0] + pol[2]), (coord[1] + pol[3]), (coord[0] + pol[4]), (coord[1] + pol[5])])
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 QUADRATO As Byte = 4
In questo caso va modificato anche il valore iniziale del cislo "FOR...NEXT": For t As Short = 45 To 360 Step 360 / QUADRATO
.Polygon([(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])])
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 RETTANGOLO As Byte = 4
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": Dim gradi As Single[] = [30.0, 150.0, 210.0, 330.0] For t As Byte = 0 To RETTANGOLO - 1 pol.Push(RAGGIO * Cos(Rad(gradi[t]))) pol.Push(RAGGIO * Sin(Rad(gradi[t]))) Next
.Polygon([(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])])
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 TRAPEZIO_ISOSCELE As Byte = 4
In questo caso va aggiunta la seguente riga per impostare i punti ideali sulla ipotetica circonferenza, sulla quale insistono i quattro vertici del Trapezio isosceele da disegnare e contestualmente va modificata la riga del ciclo "FOR...NEXT": Dim gradi As Single[] = [20.0, 160.0, 230.0, 310.0] For t As Byte = 0 To TRAPEZIO_ISOSCELE - 1 pol.Push(RAGGIO * Cos(Rad(gradi[t]))) pol.Push(RAGGIO * Sin(Rad(gradi[t]))) Next
.Polygon([(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])])
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 PENTAGONO As Byte = 5
For t As Short = 0 To 360 Step 360 / PENTAGONO
.Polygon([(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])])
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 ESAGONO As Byte = 6
For t As Short = 0 To 360 Step 360 / ESAGONO
.Polygon([(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])])
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 EPTAGONO As Byte = 7
For t As Short = 0 To 360 Step 360 / EPTAGONO
.Polygon([(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])])
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 OTTAGONO As Byte = 7
For t As Short = 0 To 360 Step 360 / OTTAGONO
.Polygon([(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])])
Note
[1] Vedere anche la pagina: Disegnare in una DrawingArea un esagono regolare