|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

56F- Programas básicos V. Resolución pantalla. Decimales.

Aquí voy a exponer una serie de programa básicos y sencillos de entender, posiblemente esta página podría estar en el comienzo del tutorial, pero ha quedado en un lugar más avanzado.

- Resolución de pantalla.
- Presentar decimales.
- Entrada de datos numérica.
- Iconos oficiales del Android.

________________________________________________
1.- Resolución de pantalla.

Mediante este código podemos obtener el ancho y el alto de la pantalla.

Código
Sub Resolucion_pantalla
Dim ancho, alto, escala, edpi As Int
   ancho = GetDeviceLayoutValues.Width
   alto = GetDeviceLayoutValues.Height
   escala = GetDeviceLayoutValues.Scale
   If escala= 0.75 Then
   edpi = "120"
   End If
   If escala= 1 Then
   edpi = "160"
   End If
   If escala= 1.5 Then
   edpi = "240"
   End If
   If escala=2 Then
   edpi="320"
   End If
   Log(ancho)
   Log(alto)
   Log(escala)
   Log(edpi)
End Sub

- Aquí observamos otro código para detectar la resolución de la pantalla, aunque no es muy acertado.

________________________________________________

2.- Presentar decimales.

- Para presentar cierto número de decimales utilizamos la función NumberFormat2 de esta manera...

Voltios = NumberFormat2(Voltios, 0, 3, 0, False)

- En caso de que el número esté en notación científica, es decir eV = 4.342453453234e-12

lo haremos de esta manera...

' Redondeo notación científica
Dim eVs As String
eVs = eV
If eVs.Contains("E") Then
Dim strVar() As String=Regex.Split("E",eVs)
Label3.Text = NumberFormat(strVar(0),1,3) & "E" & strVar(1) & " eV"
Else
Label3.Text = NumberFormat(eVs,1,3) & " eV"
End If
________________________________________________
3.- Entrada de datos numérica. Ocultar el teclado.

 

EditText1.InputType = EditText1.INPUT_TYPE_DECIMAL_NUMBERS

- Ocultar el teclado.

Librería Phone

p.HideKeyboard(Activity)

________________________________________________

4.- Iconos oficiales del Android.

En esta página del foro podemos encontrar una aplicación llamada AndroidIcons.zip, de donde podemos aprender a trabajar con los iconos oficiales del Android.

También podemos encontrar iconos en estos enlaces:

http://developer.android.com/shareables/icon_templates-v2.0.zip

http://ntt.cc/2010/08/04/350-fresh-and-elegant-free-icons-for-android.html

- En la siguiente carpeta de instalación del SDK también se encuentran los iconos oficiales:

C:\Android\android-sdk\platforms\android-8\data\res\drawable-mdpi

________________________________

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información