|     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 VI. Estado de la batería. Whatsapp.

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.

- Consultar el estado de la batería.

- Enviar una imagen a un usuario del Whasapq

________________________________________________

1.- Consultar el estado de la batería.

- Mediante este código podemos consultar el estado de la batería.

Código
Sub Process_Globals
 
End Sub
 
Sub Globals
   Dim PE As PhoneEvents   
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
   PE.Initialize("PE")
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub 
Sub PE_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
    Log("BatteryChanged: Level = " & Level )
End Sub

- Debes activar la librería Phone.

________________________________________________

2.- Enviar una imagen a un usuario del Whatsapp.

Código obtenido del foro.

Código
SSub button1_click 
File.Copy(File.DirAssets,"images.jpg", File.DirDefaultExternal,"images.jpg")
Dim u As Uri
u.Parse("file://" & File.Combine(File.DirDefaultExternal,"images.jpg"))
Dim i As Intent
i.Initialize(i.ACTION_SEND,"")
i.SetType("image/png")
i.SetComponent("com.whatsapp/.ContactPicker")
i.PutExtra("android.intent.extra.STREAM",u)
StartActivity(i)
End Sub

- Debes activar la librería ContentResolver y crear un "Layout" con un Button1.

________________________________

- 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