Skip to content

Commit

Permalink
Version 1.03
Browse files Browse the repository at this point in the history 
- Cambios en la visualización de secuencias:
* Se muestran todas las actividades de la Secuencia en la parte
inferior.
* Se muestra el progreso dentro de la actividad actual.
* Se indica la actividad actual con un pictograma en el centro y una
marca roja en el reloj.

- Nuevas opciones de configuración:
* Seleccionar colores para las agujas del reloj.
* Formato de 12h o 24h.

- Por defecto el tamaño de icono es 0, para hacer más limpia la
visualización.
- Optimizada la pantalla de "Acerca de". La opción de "Reiniciar
configuración" se mueve al apartado de configuración.
  • Loading branch information
@Ganso
Ganso committed Mar 12, 2019
1 parent e30d535 commit d3d0752
Show file tree
Hide file tree
Showing 65 changed files with 4,072 additions and 2,342 deletions.
38 changes: 12 additions & 26 deletions AcercaDe.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,31 +21,27 @@ Sub Globals
Private Pictogramas As ImageView
Private Pictorario As Label
Private Programador As ImageView
Private TextoArasaac As WebView
Private TextoAutor As WebView
Private TextoArasaac As Label
Private TextoAutor As Label
Private ParaTeo As Label
Private VersionApp As Label
Private ReinciarConfiguracion As Button
Private VerVideo As Button
Private PulsaLosIconos As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
Dim cs1,cs2 As CSBuilder

Activity.LoadLayout("AcercaDe")

TextoAutor.LoadHtml("<html><body><center>"& _
"<strong>Aplicación</strong>: Javier Prieto Martínez (www.ganso.org)<br />"& _
"<strong>Licencia</strong>: CC (BY-NC-SA)<br />"& _
"</center></body></html>")

TextoArasaac.LoadHtml("<html><body><center>"& _
"<strong>Pictogramas</strong>: Sergio Palao<br />"& _
"<strong>Procedencia</strong>: ARASAAC (www.arasaac.org)<br />"& _
"<strong>Licencia</strong>: CC (BY-NC-SA)<br />"& _
"<strong>Propiedad</strong>: Gobierno de Aragón<br />"& _
"</center></body></html>")

ParaTeo.Typeface=Typeface.LoadFromAssets("GreatVibes-Regular.ttf")
TextoAutor.Text=cs1.Initialize.Bold.Append("Aplicación: ").Pop.Append("Javier Prieto Martínez (www.ganso.org)").Append(CRLF).Bold.Append("Licencia: ").Pop.Append("CC (BY-NC-SA)")

TextoArasaac.Text=cs2.Initialize.Bold.Append("Pictogramas: ").Pop.Append("Sergio Palao").Append(CRLF).Bold.Append("Procedencia: ").Pop.Append("ARASAAC (www.arasaac.org)").Append(CRLF).Bold.Append("Licencia: ").Pop.Append("CC (BY-NC-SA)").Append(CRLF).Bold.Append("Propiedad: ").Pop.Append("Gobierno de Aragón")

' Dim GreatVives As Typeface
' GreatVives=Typeface.LoadFromAssets("GreatVibes-Regular.ttf")
' ParaTeo.Typeface=GreatVives

VersionApp.Text=Application.VersionName

End Sub
Expand Down Expand Up @@ -84,16 +80,6 @@ Sub VerVideo_Click
StartActivity(p.OpenBrowser("http://Bit.ly/VideoPictorario"))
End Sub

Sub ReinciarConfiguracion_Click
If Msgbox2("Se borrarán todas las secuencias creadas y se dejará solo la de ejemplo."&CRLF&CRLF& _
"¿Está seguro de que desea hacer esto?","Borrar todas las secuencias","Sí","","No",Null)==DialogResponse.POSITIVE Then
CallSub(Starter,"Inicializar_Con_Ejemplo")
CallSub(Starter,"BorrarPictogramas")
CallSub(Starter,"Guardar_Configuracion")
Activity.Finish
End If
End Sub

Sub VersionApp_Click
Msgbox2("Novedades de la versión:"&CRLF&CRLF&Starter.CambiosVersion,"Versión "&Application.VersionName,"Continuar","","",Null)
End Sub
Expand Down
Binary file added AutoBackups/Backup 2019-03-10 22.10.zip
View file
Binary file not shown.
Binary file added AutoBackups/Backup 2019-03-12 12.27.zip
View file
Binary file not shown.
Binary file added AutoBackups/Backup 2019-03-12 13.12.zip
View file
Binary file not shown.
Binary file added AutoBackups/Backup 2019-03-12 15.22.zip
View file
Binary file not shown.
Binary file added AutoBackups/Backup 2019-03-12 15.33.zip
View file
Binary file not shown.
158 changes: 155 additions & 3 deletions Configuracion.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -17,19 +17,112 @@ End Sub

Sub Globals
Private ActivarAlarmasCheck As CheckBox
Private ActivarAlarmasIcono As ImageView
Private ActivarAlarmasIcono As Label
Private ActivarAlarmasLabel As Label
Private BotonVolver As Button
Private ProtegerVisualizacionCheck As CheckBox
Private ProtegerVisualizacionIcono As ImageView
Private ProtegerVisualizacionIcono As Label
Private ProtegerVisualizacionLabel As Label
Private Titulo As Label
Private FormatoHorasButton As Button
Private FormatoHorasLabel As Label
Private ColoresRelojLabel As Label
Private BotonHoras As Button
Private BotonMinutos As Button
Private BotonSegundos As Button
Private BotonReiniciar As Button
Private BotonVolver As Button
Private PanelScroll As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Configuracion")

Dim Separador=10dip,Altura=60dip As Int

ActivarAlarmasCheck.Initialize("ActivarAlarmasCheck")
ActivarAlarmasIcono.Initialize("ActivarAlarmasIcono")
ActivarAlarmasLabel.Initialize("ActivarAlarmasLabel")
ProtegerVisualizacionCheck.Initialize("ProtegerVisualizacionCheck")
ProtegerVisualizacionIcono.Initialize("ProtegerVisualizacionIcono")
ProtegerVisualizacionLabel.Initialize("ProtegerVisualizacionLabel")
FormatoHorasButton.Initialize("FormatoHorasButton")
FormatoHorasLabel.Initialize("FormatoHorasLabel")
ColoresRelojLabel.Initialize("ColoresRelojLabel")
BotonHoras.Initialize("BotonHoras")
BotonMinutos.Initialize("BotonMinutos")
BotonSegundos.Initialize("BotonSegundos")
BotonReiniciar.Initialize("BotonReiniciar")
BotonVolver.Initialize("BotonVolver")

ActivarAlarmasLabel.Text="Activar alarmas"
ActivarAlarmasLabel.TextSize=16
ActivarAlarmasLabel.Gravity=Gravity.CENTER_VERTICAL

ProtegerVisualizacionLabel.Text="Proteger aplicación"
ProtegerVisualizacionLabel.TextSize=16
ProtegerVisualizacionLabel.Gravity=Gravity.CENTER_VERTICAL

FormatoHorasLabel.Text="Formato horario"
FormatoHorasLabel.TextSize=16
FormatoHorasLabel.Gravity=Gravity.CENTER_VERTICAL

ActivarAlarmasCheck.Checked=Starter.AlarmasActivadas
ActivarAlarmasCheck.Gravity=Gravity.CENTER

ProtegerVisualizacionCheck.Checked=Starter.AplicacionProtegida
ProtegerVisualizacionCheck.Gravity=Gravity.CENTER

ColoresRelojLabel.Text="Colores del reloj (horario, minutero y segundero)"
ColoresRelojLabel.TextSize=16
ColoresRelojLabel.Gravity=Gravity.CENTER_VERTICAL

BotonHoras.Color=Starter.ColorHoras
BotonMinutos.Color=Starter.ColorMinutos
BotonSegundos.Color=Starter.ColorSegundos

If Starter.Formato24h==True Then
FormatoHorasButton.Text="24 horas"
Else
FormatoHorasButton.Text="12 horas"
End If
FormatoHorasButton.TextSize=20
FormatoHorasButton.Gravity=Gravity.CENTER

BotonReiniciar.Text="Reiniciar configuración"
BotonReiniciar.TextSize=20
BotonReiniciar.Gravity=Gravity.CENTER

BotonVolver.Text="Volver a la portada"
BotonVolver.TextSize=20
BotonVolver.Gravity=Gravity.CENTER

ActivarAlarmasIcono.SetBackgroundImage(LoadBitmap(File.DirAssets,"alarma.png"))
ProtegerVisualizacionIcono.SetBackgroundImage(LoadBitmap(File.DirAssets,"llave.png"))

PanelScroll.Panel.AddView(ActivarAlarmasLabel,10dip,0,100%X-2*Altura-4*Separador,Altura)
PanelScroll.Panel.AddView(ActivarAlarmasIcono,ActivarAlarmasLabel.Left+ActivarAlarmasLabel.Width+Separador,ActivarAlarmasLabel.Top,Altura,Altura)
PanelScroll.Panel.AddView(ActivarAlarmasCheck,ActivarAlarmasIcono.Left+ActivarAlarmasIcono.Width+Separador,ActivarAlarmasIcono.Top,Altura,Altura)

PanelScroll.Panel.AddView(ProtegerVisualizacionLabel,ActivarAlarmasLabel.Left,ActivarAlarmasLabel.Top+ActivarAlarmasLabel.Height+Separador,ActivarAlarmasLabel.Width,ActivarAlarmasLabel.Height)
PanelScroll.Panel.AddView(ProtegerVisualizacionIcono,ProtegerVisualizacionLabel.Left+ProtegerVisualizacionLabel.Width+Separador,ProtegerVisualizacionLabel.Top,Altura,Altura)
PanelScroll.Panel.AddView(ProtegerVisualizacionCheck,ProtegerVisualizacionIcono.Left+ProtegerVisualizacionIcono.Width+Separador,ProtegerVisualizacionLabel.Top,Altura,ProtegerVisualizacionLabel.Height)

PanelScroll.Panel.AddView(FormatoHorasLabel,ProtegerVisualizacionLabel.Left,ProtegerVisualizacionLabel.Top+ProtegerVisualizacionLabel.Height+Separador,ProtegerVisualizacionLabel.Width,ProtegerVisualizacionLabel.Height)
PanelScroll.Panel.AddView(FormatoHorasButton,ProtegerVisualizacionIcono.Left,FormatoHorasLabel.Top,100%X-ProtegerVisualizacionIcono.Left-Separador,FormatoHorasLabel.Height)

PanelScroll.Panel.AddView(ColoresRelojLabel,FormatoHorasLabel.Left,FormatoHorasLabel.Top+FormatoHorasLabel.Height+Separador,FormatoHorasLabel.Width,FormatoHorasLabel.Height)

Dim TamBotonesColores=(100%X-ColoresRelojLabel.Left-ColoresRelojLabel.Width-4*Separador)/3 As Int
PanelScroll.Panel.AddView(BotonHoras,ColoresRelojLabel.Left+ColoresRelojLabel.Width+Separador,ColoresRelojLabel.Top,TamBotonesColores,TamBotonesColores)
PanelScroll.Panel.AddView(BotonMinutos,BotonHoras.Left+BotonHoras.Width+Separador,ColoresRelojLabel.Top,TamBotonesColores,TamBotonesColores)
PanelScroll.Panel.AddView(BotonSegundos,BotonMinutos.Left+BotonMinutos.Width+Separador,ColoresRelojLabel.Top,TamBotonesColores,TamBotonesColores)

PanelScroll.Panel.AddView(BotonReiniciar,Separador,ColoresRelojLabel.Top+ColoresRelojLabel.Height+Separador,100%X-2*Separador,Altura)

PanelScroll.Panel.AddView(BotonVolver,Separador,BotonReiniciar.Top+BotonReiniciar.Height+Separador,100%X-2*Separador,Altura)

PanelScroll.Panel.Height=BotonVolver.Top+BotonVolver.Height+Separador

End Sub

Sub Activity_Resume
Expand All @@ -54,11 +147,70 @@ Sub ProtegerVisualizacionCheck_CheckedChange(Checked As Boolean)
CallSub(Starter,"Guardar_Configuracion")
End Sub

Sub BotonHoras_Click
Dim DialogoColor As ColorPickerDialog
Dim Resultado As Int

DialogoColor.RGB=Starter.ColorHoras
Resultado=DialogoColor.Show("Color del horario","Seleccionar","Cancelar","", Null)
If Resultado=DialogResponse.POSITIVE Then
Starter.ColorHoras=DialogoColor.RGB
BotonHoras.Color=DialogoColor.RGB
CallSub(Starter,"Guardar_Configuracion")
End If
End Sub

Sub BotonMinutos_Click
Dim DialogoColor As ColorPickerDialog
Dim Resultado As Int

DialogoColor.RGB=Starter.ColorMinutos
Resultado=DialogoColor.Show("Color del minutero","Seleccionar","Cancelar","", Null)
If Resultado=DialogResponse.POSITIVE Then
Starter.ColorMinutos=DialogoColor.RGB
BotonMinutos.Color=DialogoColor.RGB
CallSub(Starter,"Guardar_Configuracion")
End If
End Sub

Sub BotonSegundos_Click
Dim DialogoColor As ColorPickerDialog
Dim Resultado As Int

DialogoColor.RGB=Starter.ColorSegundos
Resultado=DialogoColor.Show("Color del segundero","Seleccionar","Cancelar","", Null)
If Resultado=DialogResponse.POSITIVE Then
Starter.ColorSegundos=DialogoColor.RGB
BotonSegundos.Color=DialogoColor.RGB
CallSub(Starter,"Guardar_Configuracion")
End If
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

Sub FormatoHorasButton_Click
Starter.Formato24h=Not(Starter.Formato24h)
If Starter.Formato24h==True Then
FormatoHorasButton.Text="24 horas"
Else
FormatoHorasButton.Text="12 horas"
End If
CallSub(Starter,"Guardar_Configuracion")
End Sub

Sub BotonReiniciar_Click
If Msgbox2("Se borrarán todas las secuencias creadas y se dejará solo la de ejemplo, y se reiniciará toda la configuración."&CRLF&CRLF& _
"¿Está seguro de que desea hacer esto?","Borrar toda la configuración","Sí","","No",Null)==DialogResponse.POSITIVE Then
CallSub(Starter,"Inicializar_Con_Ejemplo")
CallSub(Starter,"BorrarPictogramas")
CallSub(Starter,"Guardar_Configuracion")
Activity.Finish
End If
End Sub
30 changes: 25 additions & 5 deletions ConfigurarSecuencia.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -71,7 +71,7 @@ Sub Activity_Create(FirstTime As Boolean)
Starter.Secuencia(Starter.MaxSecuencias).descripcion=DescripcionSecuenciaPorDefecto
Starter.Secuencia(Starter.MaxSecuencias).pictograma=7229
Starter.Secuencia(Starter.MaxSecuencias).tablero.tipo=3
Starter.Secuencia(Starter.MaxSecuencias).tablero.tam_icono=20
Starter.Secuencia(Starter.MaxSecuencias).tablero.tam_icono=0
Starter.Secuencia(Starter.MaxSecuencias).tablero.indicar_hora=1
Else
CallSub3(Starter,"CopiarSecuencias",Starter.SecuenciaActiva,Starter.MaxSecuencias) 'Si no, copiamos
Expand All @@ -81,6 +81,25 @@ Sub Activity_Create(FirstTime As Boolean)

End Sub

Sub EscribirHora(Hora As Int, Minutos As Int) As String
Dim Salida As String
Dim HoraModificada As Int
If (Starter.Formato24h==False And Hora>11) Then
HoraModificada=Hora-12
Else
HoraModificada=Hora
End If
Salida=NumberFormat(HoraModificada,2,0)&":"&NumberFormat(Minutos,2,0)
If Starter.Formato24h==False Then
If Hora<12 Then
Salida=Salida&" a.m."
Else
Salida=Salida&" p.m."
End If
End If
Return Salida
End Sub

Sub MinutosDia(Hora As Int, Minutos As Int) As Int
'Minutos pasados desde la medianoche (para facilitar cálculos)
Return(Hora*60+Minutos)
Expand Down Expand Up @@ -249,7 +268,8 @@ Sub DibujarConfigurarSecuencia

ConfigHoraInicioAct(Act).Initialize("ConfigHoraInicioAct")
ConfigHoraInicioAct(Act).Tag=Act
ConfigHoraInicioAct(Act).Text="Desde"&CRLF&NumberFormat(Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_inicio,2,0)&":"&NumberFormat(Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_inicio,2,0)
ConfigHoraInicioAct(Act).Text="Desde"&CRLF&EscribirHora( Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_inicio, Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_inicio )

ConfigHoraInicioAct(Act).TextColor=Colors.Black
ConfigHoraInicioAct(Act).TextSize=16
ConfigHoraInicioAct(Act).Gravity=Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
Expand All @@ -258,7 +278,7 @@ Sub DibujarConfigurarSecuencia

ConfigHoraFinalAct(Act).Initialize("ConfigHoraFinalAct")
ConfigHoraFinalAct(Act).Tag=Act
ConfigHoraFinalAct(Act).Text="Hasta"&CRLF&NumberFormat(Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_fin,2,0)&":"&NumberFormat(Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_fin,2,0)
ConfigHoraFinalAct(Act).Text="Desde"&CRLF&EscribirHora( Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_fin, Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_fin )
ConfigHoraFinalAct(Act).TextColor=Colors.Black
ConfigHoraFinalAct(Act).TextSize=16
ConfigHoraFinalAct(Act).Gravity=Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)
Expand Down Expand Up @@ -474,7 +494,7 @@ Sub ConfigHoraInicioAct_Click

DialogoTiempo.Hour=Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_inicio
DialogoTiempo.Minute=Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_inicio
DialogoTiempo.Is24Hours=False
DialogoTiempo.Is24Hours=Starter.Formato24h
Resultado=DialogoTiempo.Show("Indica la hora inicial de la actividad","Hora inicial","Aceptar","Cancelar","",Null)

If Resultado=DialogResponse.POSITIVE Then
Expand Down Expand Up @@ -552,7 +572,7 @@ Sub ConfigHoraFinalAct_Click

DialogoTiempo.Hour=Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).hora_fin
DialogoTiempo.Minute=Starter.ActividadSecuencia(Starter.MaxSecuencias,Act).minuto_fin
DialogoTiempo.Is24Hours=False
DialogoTiempo.Is24Hours=Starter.Formato24h
Resultado=DialogoTiempo.Show("Indica la hora final de la actividad","Hora final","Aceptar","Cancelar","",Null)

If Resultado=DialogResponse.POSITIVE Then
Expand Down
Binary file modified Files/acercade.bal
View file
Binary file not shown.
Binary file modified Files/configuracion.bal
View file
Binary file not shown.
Binary file modified Files/visualizarsecuencia.bal
View file
Binary file not shown.
16 changes: 8 additions & 8 deletions Objects/AndroidManifest.xml
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,11 +2,11 @@
<manifest
xmlns:android="http://schemas.android.com/apk/res/android"
package="javi.prieto.pictorario"
android:versionCode="102"
android:versionName="1.02"
android:versionCode="103"
android:versionName="1.03"
android:installLocation="internalOnly">

<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="26"/>
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>
<supports-screens android:largeScreens="true"
android:normalScreens="true"
android:smallScreens="true"
Expand Down Expand Up @@ -36,21 +36,21 @@
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".visualizacion"
android:name=".configurarsecuencia"
android:label="Pictorario"
android:screenOrientation="portrait">
</activity>
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".configurarsecuencia"
android:name=".seleccionpictogramas"
android:label="Pictorario"
android:screenOrientation="portrait">
</activity>
<activity
android:windowSoftInputMode="stateHidden"
android:launchMode="singleTop"
android:name=".seleccionpictogramas"
android:name=".visualizacion"
android:label="Pictorario"
android:screenOrientation="portrait">
</activity>
Expand Down Expand Up @@ -83,9 +83,9 @@
</service>
<receiver android:name=".starter$starter_BR">
</receiver>
<service android:name="anywheresoftware.b4a.samples.httputils2.httputils2service">
<service android:name=".httputils2service">
</service>
<receiver android:name="anywheresoftware.b4a.samples.httputils2.httputils2service$httputils2service_BR">
<receiver android:name=".httputils2service$httputils2service_BR">
</receiver>
</application>
</manifest>
Loading

0 comments on commit d3d0752

Please sign in to comment.