cheveguerra/Tortillas_Guerreras
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Tortillas_Guerreras.git synced 2026-04-21 14:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

v5.12.15

Browse Source
This commit is contained in:
Javier
2025-12-26 10:46:05 -06:00
parent a06b688e0b
commit 6a0e127bc4
15 changed files with 1345 additions and 859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
B4A/MAPA_RUTAS.bas
View File

@@ -477,23 +477,23 @@ Sub PointInPolygon(point As LatLng, polygon As List) As Boolean
End Sub
Sub MapFragment1_LongClick (mPoint As LatLng)
' Verificar si el punto está dentro del polígono
If lista_punta.Size > 0 Then
Dim dentro As Boolean = PointInPolygon(mPoint, lista_punta)
If dentro Then
ToastMessageShow("El punto está DENTRO del polígono", True)
Else
ToastMessageShow("El punto está FUERA del polígono", True)
End If
End If
' Agregar marcador y punto a la lista
gmap.AddMarker3(mPoint.Latitude, mPoint.Longitude, "MicroArea ", LoadBitmap(File.DirAssets, "marker-amarillo.png")).InfoWindowShown = True
lista_punta2.Add(mPoint)
If lista_punta2.Size = 6 Then
DrawPolygon(lista_punta2)
End If
End Sub
'Sub MapFragment1_LongClick (mPoint As LatLng)
' ' Verificar si el punto está dentro del polígono
' If lista_punta.Size > 0 Then
' Dim dentro As Boolean = PointInPolygon(mPoint, lista_punta)
'
' If dentro Then
' ToastMessageShow("El punto está DENTRO del polígono", True)
' Else
' ToastMessageShow("El punto está FUERA del polígono", True)
' End If
' End If
'
' ' Agregar marcador y punto a la lista
' gmap.AddMarker3(mPoint.Latitude, mPoint.Longitude, "MicroArea ", LoadBitmap(File.DirAssets, "marker-amarillo.png")).InfoWindowShown = True
' lista_punta2.Add(mPoint)
'
' If lista_punta2.Size = 6 Then
' DrawPolygon(lista_punta2)
' End If
'End Sub