Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
If File.Exists(File.DirInternal,"basededatos.db") = False Then
File.Copy(File.DirAssets,"basededatos.db",File.DirInternal,"basededatos.db")
End If
SonidoFondo.Initialize
BaseDeDatos.Initialize(File.DirInternal,"basededatos.db",True)
End If
Log("Número de líneas = " & BaseDeDatos.ExecQuerySingleResult("SELECT count(*) FROM Prueba"))
'Preparación del sonido de Fondo
PreparaSonidoDeFondo
SonidoFondo.Play
'Carga de la pantalla principal
Activity.LoadLayout("principal")
End Sub