Da Gambas-it.org - Wikipedia.
|
|
| (6 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | 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''.
| + | #REDIRECT [[Calcolare_il_rilevamento_(bearing)_in_gradi]] |
| − | <BR>Pertanto avremo l'inclinazione, espressa in gradi, della direzione del secondo punto dal primo punto (iniziale).
| |
| − | | |
| − | Mostriamo un esempio pratico (cliccare sulla ''MapView'' con il tasto destro del mouse per definire un primo punto iniziale e poi 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'''
| |
Versione attuale delle 19:21, 1 mag 2021
