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.
________________________________
|