mirror of
https://github.com/cheveguerra/Pusher_2.0.git
synced 2026-04-17 19:37:05 +00:00
Initial commit
This commit is contained in:
139
subs.bas
Normal file
139
subs.bas
Normal file
@@ -0,0 +1,139 @@
|
||||
B4A=true
|
||||
Group=Default Group
|
||||
ModulesStructureVersion=1
|
||||
Type=StaticCode
|
||||
Version=11
|
||||
@EndOfDesignText@
|
||||
'Code module
|
||||
'Subs in this code module will be accessible from all modules.
|
||||
Sub Process_Globals
|
||||
'These global variables will be declared once when the application starts.
|
||||
'These variables can be accessed from all modules.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub mueveCamaraMapa(mapFragment As MapFragment, lat As String, lon As String)
|
||||
'Mueve el mapa a la posicion solicitada
|
||||
Private gmap As GoogleMap
|
||||
gmap = mapFragment.GetMap
|
||||
Dim aa As CameraPosition
|
||||
aa.Initialize(lat,lon,15)
|
||||
gmap.AnimateCamera(aa)
|
||||
End Sub
|
||||
|
||||
Sub CreateNotification (Body As String) As Notification 'ignore
|
||||
Dim notification As Notification
|
||||
notification.Initialize2(notification.IMPORTANCE_LOW)
|
||||
notification.Icon = "icon"
|
||||
notification.SetInfo("Tracking location", Body, Main)
|
||||
Return notification
|
||||
End Sub
|
||||
|
||||
Sub removeFomList(myList As List, theItem As String) 'ignore
|
||||
Dim x As Int = 0
|
||||
Dim myObject As List
|
||||
Do While x < myList.Size
|
||||
myObject = myList.get(x)
|
||||
If myObject.Get(x) = theItem Then
|
||||
myList.removeAt(x)
|
||||
Else
|
||||
x = x + 1
|
||||
End If
|
||||
Loop
|
||||
End Sub
|
||||
|
||||
Sub creaMarcador(mapFragment As MapFragment, lat As String, lon As String, devModel As String, timemarker As Double) 'ignore
|
||||
' Private gmap As GoogleMap
|
||||
' gmap = mapFragment.GetMap
|
||||
' Dim Marker1 As Marker
|
||||
' Marker1 = gmap.AddMarker(lat, lon, title)
|
||||
' Marker1.Title = devModel
|
||||
'
|
||||
' Dim horaFecha As String = timemarker
|
||||
' Dim hms As String = horaFecha.SubString(6) 'Tomamos solo la parte de la hora
|
||||
'' Log("hms="&hms)
|
||||
' Dim horasMinsSegs As String = hms.SubString2(0,2)&":"&hms.SubString2(2,4)&":"&hms.SubString(4)
|
||||
'' Log(horasMinsSegs)
|
||||
' If Main.wifi <> "" And Main.wifi <> Null Then
|
||||
' Main.wifi = $"Wifi: ${Main.wifi&CRLF}"$
|
||||
' Else
|
||||
' Main.wifi = ""
|
||||
' End If
|
||||
' Marker1.Snippet = "Last Loc: "&horasMinsSegs&CRLF&"Monto Total: "&montoTotal&CRLF&"Bateria: "&batt&"%"
|
||||
End Sub
|
||||
|
||||
'Convierte una fecha al formato yyMMddHHmmss
|
||||
Sub fechaKMT(fecha As String) As String 'ignore
|
||||
' Log(fecha)
|
||||
Dim OrigFormat As String = DateTime.DateFormat 'save orig date format
|
||||
DateTime.DateFormat="yyMMddHHmmss"
|
||||
Dim nuevaFecha As String=DateTime.Date(fecha)
|
||||
DateTime.DateFormat=OrigFormat 'return to orig date format
|
||||
' Log(nuevaFecha)
|
||||
Return nuevaFecha
|
||||
End Sub
|
||||
|
||||
'Hace visible y trae al frente el panel con los parametros "Top" y "Left" dados
|
||||
Sub panelVisible(panel As Panel, top As Int, left As Int) 'ignore
|
||||
panel.BringToFront
|
||||
panel.Visible = True
|
||||
panel.Top = top
|
||||
panel.Left = left
|
||||
End Sub
|
||||
|
||||
Sub diaSemanaString(diaSemana As Int) As String 'ignore
|
||||
If diaSemana = 2 Then Return "Lun"
|
||||
If diaSemana = 3 Then Return "Mar"
|
||||
If diaSemana = 4 Then Return "Mie"
|
||||
If diaSemana = 5 Then Return "Jue"
|
||||
If diaSemana = 6 Then Return "Vie"
|
||||
If diaSemana = 7 Then Return "Sab"
|
||||
If diaSemana = 1 Then Return "Dom"
|
||||
Return ""
|
||||
End Sub
|
||||
|
||||
'Convierte una fecha en formato YYMMDDHHMMSS a Ticks
|
||||
Sub fechaKMT2Ticks(fKMT As String) As Long 'ignore
|
||||
Try
|
||||
If fKMT.Length = 12 Then
|
||||
Private parteFecha As String = fKMT.SubString2(0,6)
|
||||
Private parteHora As String = fKMT.SubString(6)
|
||||
Private OrigFormat As String = DateTime.DateFormat 'save original date format
|
||||
DateTime.DateFormat="yyMMdd"
|
||||
DateTime.TimeFormat="HHmmss"
|
||||
Private ticks As Long = DateTime.DateTimeParse(parteFecha,parteHora)
|
||||
' Log(" +++ +++ pFecha:"&parteFecha&" | pHora:"&parteHora)
|
||||
DateTime.DateFormat=OrigFormat 'return to original date format
|
||||
Return ticks
|
||||
Else
|
||||
Log("Formato de fecha incorrecto, debe de ser 'yyMMddHHmmss', no '"&fKMT&"' largo="&fKMT.Length)
|
||||
Return 0
|
||||
End If
|
||||
Catch
|
||||
Log(LastException)
|
||||
LogColor($"Fecha dada: ${fKMT}, Parte Fecha: ${parteFecha}, Parte Hora: ${parteHora}"$, Colors.Red)
|
||||
Return 0
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub SetDateFormat(Language As String, Country As String, format As String)
|
||||
#if B4A or B4J
|
||||
Dim locale As JavaObject
|
||||
locale.InitializeNewInstance("java.util.Locale", Array(Language, Country))
|
||||
Dim DateFormat As JavaObject
|
||||
DateFormat.InitializeNewInstance("java.text.SimpleDateFormat", Array(format, locale))
|
||||
Dim r As Reflector
|
||||
r.Target = r.RunStaticMethod("anywheresoftware.b4a.keywords.DateTime", "getInst", Null, Null)
|
||||
r.SetField2("dateFormat", DateFormat)
|
||||
#else if B4i
|
||||
Dim locale As NativeObject
|
||||
locale = locale.Initialize("NSLocale").RunMethod("alloc", Null).RunMethod("initWithLocaleIdentifier:", Array(Language & "_" & Country))
|
||||
DateTime.As(NativeObject).GetField("dateFormat").SetField("locale", locale)
|
||||
DateTime.DateFormat = format
|
||||
#End if
|
||||
End Sub
|
||||
|
||||
'Centra un panel dentro de un elemento superior
|
||||
Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore
|
||||
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
|
||||
End Sub
|
||||
Reference in New Issue
Block a user