Differenze tra le versioni di "Disegnare un percorso su una MapView e calcolarne la lunghezza"
(Creata pagina con "Mostriamo di seguito un possibile codice per disegnare su una ''MapView'' un percorso e calcolarne la lunghezza man mano che il tracciato viene disegnato. E' fondamentale l'u...") |
|||
Riga 10: | Riga 10: | ||
Funzionamento del programma: | Funzionamento del programma: | ||
− | <BR>per iniziare a disegnare e calcolare la lunghezza di un percorso sulla mappa, cliccare innanzitutto con il tasto DESTRO del mouse sulla mappa medesima. Quindi cliccare con il tasto CENTRALE del mouse sul punto ove si intende fa cominciare il percorso da calcolare, e disegnare il tracciato spostandosi con il mouse, mantenendo premuto il tasto CENTRALE del mouse. | + | <BR>per iniziare a disegnare e calcolare la lunghezza di un percorso sulla mappa, cliccare innanzitutto con il tasto DESTRO del mouse sulla mappa medesima. Quindi cliccare con il tasto CENTRALE del mouse sul punto ove si intende fa cominciare il percorso da calcolare, e disegnare il tracciato spostandosi con il mouse, mantenendo premuto il tasto CENTRALE del mouse. E' possibile anche effettuare il calcolo della lunghezza di un tracciato cliccando solo su alcuni punti distanti fra loro (questo metodo ovviamente è preferibile soltanto per tratti rettilinei). |
<BR>Per spostare la mappa, senza perdere i dati immessi, utili per il calcolo del tracciato, usare esclusivamente il tasto SINISTRO del mouse. | <BR>Per spostare la mappa, senza perdere i dati immessi, utili per il calcolo del tracciato, usare esclusivamente il tasto SINISTRO del mouse. | ||
<BR>Per iniziare a calcolare un nuovo percorso, cliccare nuovamente con il tasto DESTRO del mouse sulla mappa. | <BR>Per iniziare a calcolare un nuovo percorso, cliccare nuovamente con il tasto DESTRO del mouse sulla mappa. |
Versione delle 12:30, 25 apr 2021
Mostriamo di seguito un possibile codice per disegnare su una MapView un percorso e calcolarne la lunghezza man mano che il tracciato viene disegnato.
E' fondamentale l'uso del Metodo ".Distance()" della Classe "MapPoint" del Componente gb.map.
Si farà uso altresì della "DrawingArea", Oggetto "Figlio" di un "Panel", "Figlio" quest'ultimo a sua volta dell'Oggetto "MapView":
MapView ⬇ padre di un Panel ⬇ padre di una DrawingArea
Funzionamento del programma:
per iniziare a disegnare e calcolare la lunghezza di un percorso sulla mappa, cliccare innanzitutto con il tasto DESTRO del mouse sulla mappa medesima. Quindi cliccare con il tasto CENTRALE del mouse sul punto ove si intende fa cominciare il percorso da calcolare, e disegnare il tracciato spostandosi con il mouse, mantenendo premuto il tasto CENTRALE del mouse. E' possibile anche effettuare il calcolo della lunghezza di un tracciato cliccando solo su alcuni punti distanti fra loro (questo metodo ovviamente è preferibile soltanto per tratti rettilinei).
Per spostare la mappa, senza perdere i dati immessi, utili per il calcolo del tracciato, usare esclusivamente il tasto SINISTRO del mouse.
Per iniziare a calcolare un nuovo percorso, cliccare nuovamente con il tasto DESTRO del mouse sulla mappa.
Private MapView1 As MapView Private pn As Panel Private AreaDisegno As DrawingArea Private obs As Observer Private mp As MapPoint = MapPoint(41.8903, 12.49223) Private mmpp As MapPoint[] Private f As Float Private bo As Boolean 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", "https://mt0.google.com/vt/lyrs=s&hl=&x={x}&y={y}&z={z}") .Map.Zoom = 6 ' Imposta il centro della mappa: .Map.Center = mp End With ' Si individua innanzitutto l'Oggetto "Figlio" del widget "MapView", che in questo caso è un "Panel": pn = MapView1.Children[0] ' Si individua quindi l'Oggetto "Figlio" dell'Oggetto "Panel" appena prima individuato, che in questo caso è una "DrawingArea": AreaDisegno = pn.Children[0] ' In questo caso si usa la Classe "Observer" - e non il Metodo "Object.Attach()" - per consentire che la mappa sia visibile: obs = New Observer(AreaDisegno) As "AreaDisegno" End Public Sub AreaDisegno_MouseDown() Dim pt As New Point(Mouse.X, Mouse.Y) Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon ' Se si clicca con il tasto DESTRO del mouse, è possibile iniziare un nuovo tracciato: If Mouse.Right Then f = 0.0 mmpp = New MapPoint[] Endif If Not Mouse.Middle Then Return ' Se non è stato premuto sulla mappa con il tasto DESTRO del mouse, viene mostrato un avviso: If Not Object.IsValid(mmpp) Then Message.Warning("Per iniziare un tracciato, cliccare preliminarmente con il tasto DESTRO del mouse sulla mmappa !") Return Endif mp = MapPoint(lat, lon) mmpp.Push(mp) bo = True Me.Mouse = Mouse.Blank ' Consente che sia disegnato il mirino sulla mappa, non appena vi si clicca con il tasto CENTRALE: MapView1.Refresh MapView1.Map.Refresh End Public Sub AreaDisegno_MouseUp() bo = False Me.Mouse = Mouse.Arrow End Public Sub AreaDisegno_MouseMove() Dim pt As New Point(Mouse.X, Mouse.Y) Dim lat As Float = MapView1.Map.PixelToMapPointRel(pt).Lat Dim lon As Float = MapView1.Map.PixelToMapPointRel(pt).Lon If Not Mouse.Middle Then Return Me.Mouse = Mouse.Blank mp = MapPoint(lat, lon) mmpp.Push(mp) MapView1.Refresh MapView1.Map.Refresh End Public Sub MapView1_Draw() Dim c, x, y, r As Short Dim s As String Dim po As Point = MapView1.Map.MapPointToPixelRel(mp) With Paint .Begin(AreaDisegno) .Brush = .Color(Color.DarkOrange) .LineWidth = 2.0 .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 50, 0, 360, False) .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 30, 0, 360, False) .Stroke .Brush = .Color(Color.Red) .Arc(MapView1.Map.MapPointToPixelRel(mp).X, MapView1.Map.MapPointToPixelRel(mp).Y, 1.5, 0, 360, False) .Fill r = 50 x = po.X y = po.Y For c = 0 To 270 Step 90 po.X = x + r * Cos(Rad(c)) po.Y = y + r * Sin(Rad(c)) .MoveTo(po.X, po.Y) ' Per ridurre la lunghezza della "x" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: +n 0 -n 0 che si ottiene con il Coseno di c. ' Per ridurre la lunghezza della "y" per i gradi 0, 90, 180 e 270 è necessaria questa sequenza: 0 -n 0 +n che si ottiene con il Coseno di c + 90. .LineTo(x + (20 * Cos(Rad(c))), y - (20 * Cos(Rad(c + 90)))) .Stroke Next .Brush = .Color(Color.Orange) .Font.Size = 8 .DrawText(Format(mp.Lat, "0.######"), x + r * Cos(Rad(270)) - (Me.Font.TextWidth(Format(mp.Lat, "0.######")) / 2), y + (r + 15) * Sin(Rad(270)), Me.Font.TextWidth(Format(mp.Lat, "0.######")), Me.Font.TextHeight(Format(mp.Lat, "0.######")), Align.Right) .DrawText(Format(mp.Lon, "0.######"), x + r * Cos(Rad(0)) - (Me.Font.TextWidth(Format(mp.Lon, "0.######")) / 2), (y + r * Sin(Rad(0))) - 17, Me.Font.TextWidth(Format(mp.Lon, "0.######")), Me.Font.TextHeight(Format(mp.Lon, "0.######")), Align.Right) If Not Object.IsValid(mmpp) Then .End Return Endif ' Disegna i punti del tracciato seguito: .Brush = .Color(Color.Yellow) For c = 0 To mmpp.Max r = 1 If c = 0 Then r = 4 .Arc(MapView1.Map.MapPointToPixelRel(mmpp[c]).X, MapView1.Map.MapPointToPixelRel(mmpp[c]).Y, r, 0, 360, False) .Fill Next ' Disegna il calcolo in metri dell'intero percorso sino in quel momento tracciato: If mmpp.Count == 1 Then s = "m. 0,00" If mmpp.Count > 1 Then If bo Then f += MapPoint.Distance(mmpp[mmpp.Max - 1], mmpp[mmpp.Max]) s = "m. " & Format(f, "0.##") Endif .Font.Size = 11 .DrawText(s, x + r * Cos(Rad(90)) - (Me.Font.TextWidth(s) / 2), y + (r + 50) * Sin(Rad(90)), Me.Font.TextWidth(s), Me.Font.TextHeight(s), Align.Right) .End End With End