|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 Arduino
   Elastix - VoIP Cosas de Windows Webs interesantes  Telecomunicaciones

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Nueva sección en esta web: Elastix - VoIP

¿Qué es esto?

- Monta un servidor telefónico en tu ordenador para poderte comunicar mediante tu móvil con otros móviles que estén en tu red Wifi. Parecido a Skipe o Whatsapp-teléfono, pero en este caso tú controlas al servidor.

- Si sabes abrir puertos del router, también puedes comunicarte con tu móvil de una red Wifi a teléfonos de otra red Wifi.

- También puedes comunicarte con teléfonos "normales", pero para eso necesitas un dispositivo que vale unos 60 €.

- Es muy recomendable aprender el funcionamiento de este servidor telefónico Asterisk-Elastix.

 Elastix - VoIP

 

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial                    Return to index tutorial

____________________________

Basic4Android.

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.

_________________________

Código y Layout

Designer - Layout

Insertamos mediante
Designer / Add View

Label1       
Label2
ImageView1

Button1 ..... Arriba
Button2 ..... Abajo
Button3 ..... Izquierda
Button4 ..... Derecha

Guardamos el Designer como "Layout"

Cuando ya lo tengamos, conviene ejecutar en ese momento el proyecto (pulsando el triángulo azul) para que se cree la carpeta Files.

Cuando ya esté creada copiamos este balon.gif en la carpeta Files.

 


balon.gif

Baja esta imagen y cópiala en la carpeta Files del proyecto.

Aquí está el código.

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

________________________________

Si quieres que este tutorial se mantenga y lo actualice con más programas, escríbeme un correo a Juan Antonio: juana1991@yahoo.com

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información