Skip to content

Commit

Permalink
VersiÃn 1.02
Browse files Browse the repository at this point in the history
- Corregidos más problemas en la creación, borrado y reordena de secuencias y actividades.

VersiÃn 1.01
- Nuevas opciones de configuración:
  * Proteger la configuración y el cambio de pantalla
  * Activar o desactivar todas las alertas con un click
- Cambios en la visualización:
  * Mejorados los colores
  * Eliminado el fondo de los iconos
- Corregido un fallo al borrar actividades y después añad otras nuevas (gracias a Celso Alpizar por el reporte)
  • Loading branch information
Ganso committed Dec 21, 2018
1 parent 9df0806 commit e30d535
Show file tree
Hide file tree
Showing 57 changed files with 2,859 additions and 1,865 deletions.
1 change: 0 additions & 1 deletion AcercaDe.bas
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,6 @@ Sub Globals
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("AcercaDe")

TextoAutor.LoadHtml("<html><body><center>"& _
Expand Down
64 changes: 64 additions & 0 deletions Configuracion.bas
Original file line number Diff line number Diff line change
@@ -0,0 +1,64 @@
B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Activity
Version=8.5
@EndOfDesignText@
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#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
Private ActivarAlarmasCheck As CheckBox
Private ActivarAlarmasIcono As ImageView
Private ActivarAlarmasLabel As Label
Private BotonVolver As Button
Private ProtegerVisualizacionCheck As CheckBox
Private ProtegerVisualizacionIcono As ImageView
Private ProtegerVisualizacionLabel As Label
Private Titulo As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Configuracion")
ActivarAlarmasCheck.Checked=Starter.AlarmasActivadas
ProtegerVisualizacionCheck.Checked=Starter.AplicacionProtegida
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyPress (KeyCode As Int)
If KeyCode = KeyCodes.KEYCODE_BACK Then 'Al pulsar atrás...
Sleep(0) 'No hace nada
End If
End Sub

Sub ProtegerVisualizacionCheck_CheckedChange(Checked As Boolean)
Starter.AplicacionProtegida=ProtegerVisualizacionCheck.Checked
If Starter.AplicacionProtegida==True Then
Msgbox2("Para liberar la protección, hacer:"&CRLF&CRLF&"UNA PULSACIÓN CORTA"&CRLF&" seguida de"&CRLF&"UNA PULSACIÓN LARGA"&CRLF&CRLF&"Sobre el icono del candado del resto de pantallas.","IMPORTANTE:"&CRLF&"Aplicación protegida","Aceptar","","",LoadBitmap(File.DirAssets,"candado.png"))
End If
CallSub(Starter,"Guardar_Configuracion")
End Sub

Sub BotonVolver_Click
Activity.Finish
End Sub

Sub ActivarAlarmasCheck_CheckedChange(Checked As Boolean)
Starter.AlarmasActivadas=ActivarAlarmasCheck.Checked
CallSub(Starter,"Guardar_Configuracion")
End Sub
53 changes: 47 additions & 6 deletions ConfigurarSecuencia.bas
Original file line number Diff line number Diff line change
Expand Up @@ -330,6 +330,9 @@ Sub ConfigNotificaciones_Click
Dim Casilla As CheckBox
Casilla=Sender
Starter.Secuencia(Starter.MaxSecuencias).notificaciones=Casilla.Checked
If Casilla.Checked==True And Starter.AlarmasActivadas==False Then
ToastMessageShow("Para que se lance la notificación a la hora indicada es necesario activar las alarmas en la configuración.",True)
End If
End Sub

Sub ConfigIndicarHora_Click
Expand Down Expand Up @@ -414,15 +417,52 @@ Sub ConfigOpcionesAct_Click
resultado=InputList(Opciones,"Acción",-1)

If resultado=0 Then
For nAct=Act To Starter.Secuencia(Starter.MaxSecuencias).num_actividades-2
For nAct=Act To Starter.Secuencia(Starter.MaxSecuencias).num_actividades-1
'CallSub3(Starter,"IntercambiarActividades",Starter.MaxSecuencias,nAct,nAct+1)
Starter.ActividadSecuencia(Starter.MaxSecuencias,nAct)=Starter.ActividadSecuencia(Starter.MaxSecuencias,nAct+1)
'Starter.ActividadSecuencia(Starter.MaxSecuencias,nAct)=Starter.ActividadSecuencia(Starter.MaxSecuencias,nAct+1)
CopiarActividad(Starter.MaxSecuencias,nAct+1,Starter.MaxSecuencias,nAct)
Next
Starter.Secuencia(Starter.MaxSecuencias).num_actividades=Starter.Secuencia(Starter.MaxSecuencias).num_actividades-1
End If
DibujarConfigurarSecuencia
End Sub

Sub CopiarActividad(Seq1 As Int, Act1 As Int, Seq2 As Int, Act2 As Int)
'Copia la actividad Seq1:Act1 sobre Seq2:Act2
Starter.ActividadSecuencia(Seq2,Act2).Descripcion=Starter.ActividadSecuencia(Seq1,Act1).Descripcion
Starter.ActividadSecuencia(Seq2,Act2).hora_fin=Starter.ActividadSecuencia(Seq1,Act1).hora_fin
Starter.ActividadSecuencia(Seq2,Act2).hora_inicio=Starter.ActividadSecuencia(Seq1,Act1).hora_inicio
Starter.ActividadSecuencia(Seq2,Act2).minuto_fin=Starter.ActividadSecuencia(Seq1,Act1).minuto_fin
Starter.ActividadSecuencia(Seq2,Act2).minuto_inicio=Starter.ActividadSecuencia(Seq1,Act1).minuto_inicio
Starter.ActividadSecuencia(Seq2,Act2).Pictograma=Starter.ActividadSecuencia(Seq1,Act1).Pictograma
End Sub

Sub IntercambiarActividades(Seq1 As Int,Act1 As Int,Seq2 As Int,Act2 As Int)
Dim hora_inicio,minuto_inicio,hora_fin,minuto_fin As Int
Dim Descripcion,Pictograma As String

Descripcion=Starter.ActividadSecuencia(Seq1,Act1).Descripcion
hora_fin=Starter.ActividadSecuencia(Seq1,Act1).hora_fin
hora_inicio=Starter.ActividadSecuencia(Seq1,Act1).hora_inicio
minuto_fin=Starter.ActividadSecuencia(Seq1,Act1).minuto_fin
minuto_inicio=Starter.ActividadSecuencia(Seq1,Act1).minuto_inicio
Pictograma=Starter.ActividadSecuencia(Seq1,Act1).Pictograma

Starter.ActividadSecuencia(Seq1,Act1).Descripcion=Starter.ActividadSecuencia(Seq2,Act2).Descripcion
Starter.ActividadSecuencia(Seq1,Act1).hora_fin=Starter.ActividadSecuencia(Seq2,Act2).hora_fin
Starter.ActividadSecuencia(Seq1,Act1).hora_inicio=Starter.ActividadSecuencia(Seq2,Act2).hora_inicio
Starter.ActividadSecuencia(Seq1,Act1).minuto_fin=Starter.ActividadSecuencia(Seq2,Act2).minuto_fin
Starter.ActividadSecuencia(Seq1,Act1).minuto_inicio=Starter.ActividadSecuencia(Seq2,Act2).minuto_inicio
Starter.ActividadSecuencia(Seq1,Act1).Pictograma=Starter.ActividadSecuencia(Seq2,Act2).Pictograma

Starter.ActividadSecuencia(Seq2,Act2).Descripcion=Descripcion
Starter.ActividadSecuencia(Seq2,Act2).hora_fin=hora_fin
Starter.ActividadSecuencia(Seq2,Act2).hora_inicio=hora_inicio
Starter.ActividadSecuencia(Seq2,Act2).minuto_fin=minuto_fin
Starter.ActividadSecuencia(Seq2,Act2).minuto_inicio=minuto_inicio
Starter.ActividadSecuencia(Seq2,Act2).Pictograma=Pictograma
End Sub

Sub ConfigHoraInicioAct_Click
Dim DialogoTiempo As TimeDialog
Dim BotonPulsado As Label
Expand Down Expand Up @@ -459,7 +499,6 @@ End Sub

Sub OrdenarActividades As Boolean
Dim i,j As Int
Dim ActInt As Actividad
Dim IntercambioRealizado As Boolean

IntercambioRealizado=False
Expand All @@ -468,9 +507,11 @@ Sub OrdenarActividades As Boolean
For i=1 To Starter.Secuencia(Starter.MaxSecuencias).num_actividades-1
For j=0 To Starter.Secuencia(Starter.MaxSecuencias).num_actividades-2
If ComparaHoras( Starter.ActividadSecuencia(Starter.MaxSecuencias,j).hora_inicio, Starter.ActividadSecuencia(Starter.MaxSecuencias,j).minuto_inicio, Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1).hora_inicio, Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1).minuto_inicio ) > 0 Then
ActInt=Starter.ActividadSecuencia(Starter.MaxSecuencias,j)
Starter.ActividadSecuencia(Starter.MaxSecuencias,j)=Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1)
Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1)=ActInt
IntercambiarActividades(Starter.MaxSecuencias,j,Starter.MaxSecuencias,j+1)
'ActInt=Starter.ActividadSecuencia(Starter.MaxSecuencias,j)
'Starter.ActividadSecuencia(Starter.MaxSecuencias,j)=Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1)
'CopiarActividad(Starter.MaxSecuencias,j+1,Starter.MaxSecuencias,j)
'Starter.ActividadSecuencia(Starter.MaxSecuencias,j+1)=ActInt
IntercambioRealizado=True
End If
Next
Expand Down
Binary file added Files/alarma.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Files/candado.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file added Files/configuracion.bal
Binary file not shown.
Binary file added Files/llave.png
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Binary file modified Files/portada.bal
Binary file not shown.
11 changes: 9 additions & 2 deletions Objects/AndroidManifest.xml
Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,8 @@
<manifest
xmlns:android="http://schemas.android.com/apk/res/android"
package="javi.prieto.pictorario"
android:versionCode="100"
android:versionName="1.00"
android:versionCode="102"
android:versionName="1.02"
android:installLocation="internalOnly">

<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="26"/>
Expand Down Expand Up @@ -61,6 +61,13 @@
android:label="Pictorario"
android:screenOrientation="portrait">
</activity>
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".configuracion"
android:label="Pictorario"
android:screenOrientation="portrait">
</activity>
<service android:name=".arranqueautomatico">
</service>
<receiver android:name=".arranqueautomatico$arranqueautomatico_BR">
Expand Down
186 changes: 97 additions & 89 deletions Objects/ObfuscatorMap.txt
Original file line number Diff line number Diff line change
Expand Up @@ -16,92 +16,100 @@ vvv2=secuencia
vvv3=actividadsecuencia
vvv4=versioninstalada
vvv5=detectadaversionantigua
vvv6=idpictogramapordefecto
vvv7=dirpictogramas
vvv0=pictogramasiniciales
vvvv1=dibujarportada
vvvv2=starter
vvvv3=acercade
vvvv4=configurarsecuencia
vvvv5=visualizacion
vvvv6=pictogramasecuencia
vvvv7=etiquetasecuencia
vvvv0=editarsecuencia
vvvvv1=proximaalarmapict
vvvvv2=proximaalarma
vvvvv3=botoncrear
vvvvv4=botonacercade
vvvvv5=botonsalir
vvvvv6=httputils2service
vvvvv7=dateutils
vvvvv0=seleccionpictogramas
vvvvvv1=arranqueautomatico
vvvvvv2=avisos
vvvvvv3=activarboton
vvvvvv4=hora24a12
vvvvvv5=minutolegible
vvvvvv6=boton
vvvvvv7=dibujartablero
vvvvvv0=dibujaractividad
vvvvvvv1=centrox
vvvvvvv2=centroy
vvvvvvv3=anguloinicio
vvvvvvv4=normalizarangulo
vvvvvvv5=angulofin
vvvvvvv6=pantalla
vvvvvvv7=radio
vvvvvvv0=dibujarboton
vvvvvvvv1=horaactual
vvvvvvvv2=minutoactual
vvvvvvvv3=pantallaagujas
vvvvvvvv4=minhora
vvvvvvvv5=maxhora
vvvvvvvv6=dibujasagujas
vvvvvvvv7=main
vvvvvvvv0=descripcionsecuenciapordefecto
vvvvvvvvv1=dibujarconfigurarsecuencia
vvvvvvvvv2=descripcionactividadpordefecto
vvvvvvvvv3=sumarhoras
vvvvvvvvv4=horadesdeminutosdia
vvvvvvvvv5=minutosdesdeminutosdia
vvvvvvvvv6=salidaconfigurarsecuencia
vvvvvvvvv7=comparahoras
vvvvvvvvv0=minutosdia
vvvvvvvvvv1=configdescripcion
vvvvvvvvvv2=configdescripcionact
vvvvvvvvvv3=inicializando
vvvvvvvvvv4=quitarsolapes
vvvvvvvvvv5=ordenaractividades
vvvvvvvvvv6=pictogramaeditado
vvvvvvvvvv7=etiquetainicial
vvvvvvvvvv0=configpictograma
vvvvvvvvvvv1=tamcasilla
vvvvvvvvvvv2=separacioncasillas
vvvvvvvvvvv3=etiqtipotablero
vvvvvvvvvvv4=separacionhorizontal
vvvvvvvvvvv5=configtipotablero
vvvvvvvvvvv6=colordefondo
vvvvvvvvvvv7=etiqindicarhora
vvvvvvvvvvv0=configindicarhora
vvvvvvvvvvvv1=etiqtamicono
vvvvvvvvvvvv2=configtamicono
vvvvvvvvvvvv3=etiqnotificaciones
vvvvvvvvvvvv4=confignotificaciones
vvvvvvvvvvvv5=etiqactividades
vvvvvvvvvvvv6=confighorainicioact
vvvvvvvvvvvv7=configpictogramaact
vvvvvvvvvvvv0=confighorafinalact
vvvvvvvvvvvvv1=configopcionesact
vvvvvvvvvvvvv2=botonanadiractividad
vvvvvvvvvvvvv3=botonaceptar
vvvvvvvvvvvvv4=textobuscarpordefecto
vvvvvvvvvvvvv5=tamicono
vvvvvvvvvvvvv6=dibujaiconos
vvvvvvvvvvvvv7=buscartexto
vvvvvvvvvvvvv0=encontrarurlporid
vvvvvvvvvvvvvv1=descargarpictograma
vvvvvvvvvvvvvv2=numcolumnas
vvvvvvvvvvvvvv3=numlineas
vvvvvvvvvvvvvv4=botonicono
vvvvvvvvvvvvvv5=rellenariconos
vvvvvvvvvvvvvv6=copiarpictogramasiniciales
vvv6=alarmasactivadas
vvv7=aplicacionprotegida
vvv0=idpictogramapordefecto
vvvv1=dirpictogramas
vvvv2=pictogramasiniciales
vvvv3=dibujarportada
vvvv4=starter
vvvv5=acercade
vvvv6=contadorcandado
vvvv7=configuracion
vvvv0=configurarsecuencia
vvvvv1=visualizacion
vvvvv2=pictogramasecuencia
vvvvv3=etiquetasecuencia
vvvvv4=editarsecuencia
vvvvv5=proximaalarmapict
vvvvv6=proximaalarma
vvvvv7=botoncrear
vvvvv0=botonacercade
vvvvvv1=botonconfiguracion
vvvvvv2=botonsalir
vvvvvv3=botoncandado
vvvvvv4=httputils2service
vvvvvv5=dateutils
vvvvvv6=seleccionpictogramas
vvvvvv7=arranqueautomatico
vvvvvv0=avisos
vvvvvvv1=activarboton
vvvvvvv2=hora24a12
vvvvvvv3=minutolegible
vvvvvvv4=boton
vvvvvvv5=dibujartablero
vvvvvvv6=dibujaractividad
vvvvvvv7=centrox
vvvvvvv0=centroy
vvvvvvvv1=anguloinicio
vvvvvvvv2=normalizarangulo
vvvvvvvv3=angulofin
vvvvvvvv4=pantalla
vvvvvvvv5=radio
vvvvvvvv6=dibujarboton
vvvvvvvv7=horaactual
vvvvvvvv0=minutoactual
vvvvvvvvv1=pantallaagujas
vvvvvvvvv2=minhora
vvvvvvvvv3=maxhora
vvvvvvvvv4=dibujasagujas
vvvvvvvvv5=main
vvvvvvvvv6=descripcionsecuenciapordefecto
vvvvvvvvv7=dibujarconfigurarsecuencia
vvvvvvvvv0=descripcionactividadpordefecto
vvvvvvvvvv1=sumarhoras
vvvvvvvvvv2=horadesdeminutosdia
vvvvvvvvvv3=minutosdesdeminutosdia
vvvvvvvvvv4=salidaconfigurarsecuencia
vvvvvvvvvv5=comparahoras
vvvvvvvvvv6=minutosdia
vvvvvvvvvv7=configdescripcion
vvvvvvvvvv0=configdescripcionact
vvvvvvvvvvv1=inicializando
vvvvvvvvvvv2=quitarsolapes
vvvvvvvvvvv3=ordenaractividades
vvvvvvvvvvv4=copiaractividad
vvvvvvvvvvv5=pictogramaeditado
vvvvvvvvvvv6=etiquetainicial
vvvvvvvvvvv7=configpictograma
vvvvvvvvvvv0=tamcasilla
vvvvvvvvvvvv1=separacioncasillas
vvvvvvvvvvvv2=etiqtipotablero
vvvvvvvvvvvv3=separacionhorizontal
vvvvvvvvvvvv4=configtipotablero
vvvvvvvvvvvv5=colordefondo
vvvvvvvvvvvv6=etiqindicarhora
vvvvvvvvvvvv7=configindicarhora
vvvvvvvvvvvv0=etiqtamicono
vvvvvvvvvvvvv1=configtamicono
vvvvvvvvvvvvv2=etiqnotificaciones
vvvvvvvvvvvvv3=confignotificaciones
vvvvvvvvvvvvv4=etiqactividades
vvvvvvvvvvvvv5=confighorainicioact
vvvvvvvvvvvvv6=configpictogramaact
vvvvvvvvvvvvv7=confighorafinalact
vvvvvvvvvvvvv0=configopcionesact
vvvvvvvvvvvvvv1=botonanadiractividad
vvvvvvvvvvvvvv2=botonaceptar
vvvvvvvvvvvvvv3=intercambiaractividades
vvvvvvvvvvvvvv4=textobuscarpordefecto
vvvvvvvvvvvvvv5=tamicono
vvvvvvvvvvvvvv6=dibujaiconos
vvvvvvvvvvvvvv7=buscartexto
vvvvvvvvvvvvvv0=encontrarurlporid
vvvvvvvvvvvvvvv1=descargarpictograma
vvvvvvvvvvvvvvv2=numcolumnas
vvvvvvvvvvvvvvv3=numlineas
vvvvvvvvvvvvvvv4=botonicono
vvvvvvvvvvvvvvv5=rellenariconos
vvvvvvvvvvvvvvv6=copiarpictogramasiniciales
Binary file not shown.
Binary file modified Objects/bin/classes/javi/prieto/pictorario/acercade.class
Binary file not shown.
Binary file not shown.
Binary file modified Objects/bin/classes/javi/prieto/pictorario/avisos.class
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file modified Objects/bin/classes/javi/prieto/pictorario/main.class
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file modified Objects/bin/classes/javi/prieto/pictorario/starter.class
Binary file not shown.
Binary file not shown.
Binary file modified Objects/bin/classes/javi/prieto/pictorario/visualizacion.class
Binary file not shown.
Binary file modified Objects/bin/temp.ap_
Binary file not shown.
Binary file modified Objects/classes.dex
Binary file not shown.
Binary file modified Objects/pictorario.apk
Binary file not shown.
Loading

0 comments on commit e30d535

Please sign in to comment.