B4A. Mover dibujo por la pantalla. Código.

- 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