|
B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
71.- Códigos pequeños.
1.- Ocultar todos los Views. Está tomado de la wiki. Mediante este código podemos ocultar todos los elementos del Activity.
Copia y pega este código. |
For i = 0 To Activity.NumberOfViews - 1
Dim v As View
v = Activity.GetView(i)
v.Visible = False
End If
|
Para borrarlos: Activity.RemoveViewAt(i)
2.- Aquí tenemos un Botón con el evento de Pulsado Largo.
Nos saldrá un MsgBox que nos preguntará si "¿Lo hago?" o no.
Si pulsamos que NO. NEGATIVE, saldrá del IF
Si pulsamos que SÍ, realizará el código del Else.
Consulta las posibilidades de MsgBox2.
Copia y pega este código. |
Sub Button_LongClick
Dim mensaje As Int
mensaje = Msgbox2("¿Lo hago?","Título","Sí","Cancela","No",Null)
If MsgHide = DialogResponse.NEGATIVE Then
Return True
Else
Hago_todo_esto
End If
End Sub
|
3.- Cuando pulso un botón voy a la pantalla de inicio.
Copia y pega este código. |
Sub Button1_Click
Dim i As Intent
i.Initialize(i.ACTION_MAIN, "")
i.AddCategory("android.intent.category.HOME")
i.Flags = 268435456
StartActivity(i)
End Sub
|
4.- Personalizar la aplicación. Parte de la información del archivo AndroidManifest.xml se puede poner al inicio del código.
Leer Modules Attributes
Copia y pega este código. |
#Region Project Attributes
#ApplicationLabel: TestLotOfActivities
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
|
Activity Atributes
5.- Escribir un texto en un canvas
Copia y pega este código. |
Dim ancho, alto As Float
Dim Canvas1 As Canvas
Dim t As String
Canvas1.Initialize(Activity)
t = "Esto es un texto"
ancho = Canvas1.MeasureStringWidth(t, Typeface .DEFAULT, 20)
alto = Canvas1.MeasureStringHeight(t, Typeface .DEFAULT, 20)
|
6.- Ocultar el teclado en pantalla.
Activar la librería IME.
Copia y pega este código. |
Dim IME1 As IME
IME1.Initialize( "" )
IME1.HideKeyboard
|
7.- Medir la distancia longitud, latitud entre dos puntos.
Activar la librería GPS.
Copia y pega este código. |
Dim Latitud1, Latitud2, Longitud1, Longitud2, Distancia As Double
Dim Location1, Location2 As Location
Location1.Latitud = Latitud1
Location1.Longitud = Longitud1
Location2.Latitud = Latitud2
Location2.Longitud = Longitud2
Distancia = Location1.DistanceTo(Location2)
|
Mediante una fórmula
Dim Lat1, Lat2, Long1, Long2 As Double
Dim angulo, distancia As Double
EarthRadius = 6378.137 ' WGS -84 kilometers?
angulo = ACos(SinD(Lat1) * SinD(Lat2) + CosD(Lat1) * CosD(Lat2) * CosD(Long2 - Long1))
distancia = 6378.137 * angulo
________________________________
|
