Descarga contenido exclusivo en
Ofimática y Programación + Tecnología

domingo, 28 de julio de 2013



Basic4android - 04 Controlar brillo en APK


Para iniciar una serie de códigos cortos sobre Basic4android, veremos como controlar en brillo dentro de una Apk de forma sencilla con... thumbnail 1 summary

Para iniciar una serie de códigos cortos sobre Basic4android, veremos como controlar en brillo dentro de una Apk de forma sencilla con unas lineas de código.

Abrimos Basic4android. Dejamos el código en el Module Main tal y como sigue (#Region Project Attributes y #Region Activity Attributes los dejamos tal y como están ):



 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#Region  Project Attributes 
 #ApplicationLabel: B4A 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
 Dim cel As Phone    'con esta variable modificaremos el brillo: cel.SetScreenBrightness
 Dim brillo As Float 'en esta variable guardamos el valor del brillo: cel.SetScreenBrightness(brillo)
End Sub

Sub Globals
End Sub

Sub Activity_Create(FirstTime As Boolean)
 Activity.LoadLayout("inicio")   'este código inicia el layout donde estaran los botones para sumarle
          'y restarle al valor del brillo. Se debe crear el layout llamado inicio
         
 brillo=0.5      'iniciamos la variable brillo en 0.5 (50%)
 cel.SetScreenBrightness(brillo) 'con esta linea se modifica el brillo 
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
End Sub

Sub Button1_Click
 If brillo+0.05<1 Then  'aumenta el brillo en 5% (0.05) cada vez que se presiona el botón
  brillo=brillo+0.05 'siempre que el valor no sea igual o superior a 100% (1)
 End If
 cel.SetScreenBrightness(brillo) 'cambia el brillo
End Sub

Sub Button2_Click
 If brillo-0.05>0 Then  'disminuye el brillo en 5% (0.05) cada vez que se presiona el botón
  brillo=brillo-0.05 'siempre que el valor no sea igual o menor a cero
 End If
 cel.SetScreenBrightness(brillo) 'cambia el brillo
End Sub


Es necesario tomar en cuenta que este código modifica el brillo de la pantalla solo mientras esta corriendo la aplicación, es decir, no modifica el brillo del sistema y al salir de la aplicación el brillo vuelve a como estaba antes de ejecutarla.

Para poder declarar la variable "Dim cel As Phone" debemos activar la librería Phone (la pestaña de las librerías la encuentran en la esquina inferior derecha):



Pueden encontrar la construcción de la aplicación en el siguiente vídeo: Basic4android - Controlar brillo en APK








No hay comentarios

Publicar un comentario en la entrada