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.

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.

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.

________________________________