B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
59B.- Orientación. Tablet o móvil.
- Vamos a construir un pequeño esqueleto de aplicación para que el código detecte si está funcionando en un móvil o en una tablet.
Si está funcionando en un móvil cargará un layout llamado "telefono" con botones verticales,
si está funcionando en una tablet cargará un layout llamado "tablet" con botones en pareja horizontal.
Según sea Tablet o móvil se carga un layout distinto.
_______________
- Designer.
Vamos al Design y creamos un Layout llamado "telefono" (sin acento) con la siguiente disposición de botones...
En el Designer pulsamos File / New y creamos un nuevo Layout que llamaremos "tablet"
En esta misma ventana del Designer pulsamos el botón "New Variant" y elegimos un tamaño de tablet horizontal.
Situamos 4 botones como indica la figura siguiente.
_______________
- Código.
Código del programa
|
Sub Process_Globals
' Juan Antonio
' juana1991@yahoo.com
End Sub
Sub Globals
Dim ph As Phone
End Sub
Sub Activity_Create(FirstTime As Boolean)
If GetDeviceLayoutValues.ApproximateScreenSize > 6 Then
ph.SetScreenOrientation(0)
Activity.LoadLayout("tablet")
Msgbox("Esto es una tablet, pulgadas: " & Diagonal , "TABLET")
Else
ph.SetScreenOrientation(1)
Activity.LoadLayout("telefono")
Msgbox("Esto es un teléfono, pulgadas: " & Diagonal , "TELÉFONO")
End If
End Sub
Sub Diagonal As Double
Dim lv As LayoutValues
lv = GetDeviceLayoutValues
Dim Diago As Double = Sqrt(Power(lv.Height / lv.Scale / 160, 2) + Power(lv.Width / lv.Scale / 160, 2))
Return Diago
End Sub |
Según el programa se instale en un teléfono móvil o en una tablet, se cargará una disposición de pantalla u otra.
En este ejemplo los botones no realizan ningún código, solamente se han situado como elementos de ejemplo.
________________________________
|