B4A en español - Juan Antonio Villalpando
(BASIC4Android)
-- Tutorial de B4A --
Volver al índice del tutorial
____________________________
5.- Mover dibujo por la pantalla.
Tutoriales. Mover dibujo por la pantalla.
- Presentación.
- Vamos a mover un balón por la pantalla, cada vez que pulsemos un botón el balón se moverá 5 unidades hacia arriba, abajo, izquierda o derecha.
- Cuando el balón haga tope en las aristas no continuará en ese sentido. |
____________________________
- Designer. Layout.
Designer - Layout
|
|
Insertamos mediante
Designer / Add View
Label1
Label2
ImageView1
Button1 ..... Arriba
Button2 ..... Abajo
Button3 ..... Izquierda
Button4 ..... Derecha
Guardamos el Designer como "Layout"
Copiamos este balon.gif en la carpeta Files.
balon.gif
|
____________________________
- Código (copia y pega).
File.DirAssets es la carpeta Files.
- Observamos que las Propiedades de los Views se pueden poner mediante el Designer o en el código.
Copia y pega este código en un nuevo proyecto |
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' marzo 2013
End Sub
Sub Globals
Dim ImageView1 As ImageView
Dim Label1, Label2 As Label
Dim h, v As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
Activity.Color = Colors.White
' Cargamos la imagen y la situamos aproximadamente a mitad de pantalla
ImageView1.Bitmap=LoadBitmap(File.DirAssets, "balon.gif")
h = 50%x ' La mitad horizontal de la pantalla
v = 50%y ' La mitad vertical de la pantalla
ImageView1.Left = h
ImageView1.Top = v
' Establecemos el contenido de las etiquetas y su color de texto
Label1.Text = "Horizontal = " & h
Label1.TextColor = Colors.Red
Label2.Text = "Vertical = " & v
Label2.TextColor = Colors.Red
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
v = v - 5
If v <= 0 Then v = 0
ImageView1.Top = v
Label2.Text = "Vertical = " & v
End Sub
Sub Button2_Click
v = v + 5
If v >= 100%y - ImageView1.Height Then v = 100%y - ImageView1.Height
ImageView1.Top = v
Label2.Text = "Vertical = " & v
End Sub
Sub Button3_Click
h = h - 5
If h <= 0 Then h = 0
ImageView1.Left = h
Label1.Text = "Horizontal = " & h
End Sub
Sub Button4_Click
h = h + 5
If h >= 100%x - ImageView1.Width Then h = 100%x - ImageView1.Width
ImageView1.Left = h
Label1.Text = "Horizontal = " & h
End Sub |
________________________________
|