Hola a todos
No sé si a otras personas les sucede, pero a mi la función 'log' no me funciona. Razon por la cual desarrolle mi propia librería.
Su uso es muy simple, solo debe Incluirla en su proyecto, inicializarla, guardar los datos y Listo!
La librería crea un archivo con el nombre que ud le asigne. El archivo se guarda en
Adjunto encontrará un Zip que contiene la librería
En la carpeta 'Lib' encuentra los archivos de la librería que debe copiar a la carpeta:
Ejemplo de uso
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
Saludos
			
			No sé si a otras personas les sucede, pero a mi la función 'log' no me funciona. Razon por la cual desarrolle mi propia librería.
Su uso es muy simple, solo debe Incluirla en su proyecto, inicializarla, guardar los datos y Listo!
La librería crea un archivo con el nombre que ud le asigne. El archivo se guarda en
Android/{nombreDelPaquete}/files
Adjunto encontrará un Zip que contiene la librería
En la carpeta 'Lib' encuentra los archivos de la librería que debe copiar a la carpeta:
C:\Program Files (x86)\Anywhere Software\Basic4android\Libraries
Ejemplo de uso
			
				B4X:
			
		
		
		#Region  Project Attributes
    #ApplicationLabel: SaveLog Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
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 Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim sl As SaveLog
End Sub
Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    sl.Initialize("log.txt", True)
    sl.ClearLog 'Eliminamos el archivo si ya existe. Es Opcional
End Sub
Sub Activity_Resume
    'Guardamos un registro en el log
    sl.Record("Este es UN registro")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
    'Guardamos otro registro en el log
    sl.Record("Este es OTRO registro")
End SubSaludos
Attachments
			
				Last edited: 
			
		
	
								
								
									
	
		
			
		
	
								
							
							 
				 
 
		 
 
		 
 
		 
 
		 
 
		