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.

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.

________________________________