cheveguerra/Pusher_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/Pusher_2.0.git synced 2026-04-19 20:29:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
cheveguerra
2023-09-27 10:56:13 -06:00
parent 7e84eca0d0
commit 9868557f34
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
pusher.chv.com.b4a
View File

@@ -179,7 +179,7 @@ Sub Globals
Private cb_puntosIntermedios As CheckBox Private cb_puntosIntermedios As CheckBox
End Sub End Sub
Sub Activity_Create(FirstTime As Boolean) Sub Activity_Create(FirstTime As Boolean) 'ignore
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean) ' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
Dim p As String Dim p As String
@@ -568,6 +568,7 @@ Sub muestraRuta
Dim point As LatLng Dim point As LatLng
Dim listtemp As List Dim listtemp As List
' Log(rutaGPS) ' Log(rutaGPS)
Dim speedOut As String = 0
If rutaGPS.Length > 10 Then If rutaGPS.Length > 10 Then
listtemp = Regex.Split(CRLF, rutaGPS) listtemp = Regex.Split(CRLF, rutaGPS)
' Log(listtemp.Size) ' Log(listtemp.Size)
@@ -585,7 +586,7 @@ Sub muestraRuta
' Log(estasCoords) ' Log(estasCoords)
Private estaDist As String = coordsAnt.DistanceTo(estasCoords) Private estaDist As String = coordsAnt.DistanceTo(estasCoords)
' Log(estaDist) ' Log(estaDist)
Dim speedOut As String = coords(4) speedOut = coords(4)
Dim Marker0 As Marker Dim Marker0 As Marker
If (i Mod 2 = 0) And estaDist > 300 And cb_puntosIntermedios.Checked Then 'Solo ponemos la mitad de los puntos y si la distancia entre puntos es mayor de 300 mts. If (i Mod 2 = 0) And estaDist > 300 And cb_puntosIntermedios.Checked Then 'Solo ponemos la mitad de los puntos y si la distancia entre puntos es mayor de 300 mts.
Private hora As String = Subs.fechaKMT2Ticks(coords(6)) Private hora As String = Subs.fechaKMT2Ticks(coords(6))