|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica   ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


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

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

-- Tutorial de B4A --

Volver al índice del tutorial

____________________________

4.- Tres iguales.

- Bajar Tres_iguales.zip

- Se trata de pulsar el botón Comienzo, en ese momentos tres imagenes fresa.gif, limon.gif y pera.gif, se van reproduciendo aleatoriamente en los cuadros (ImageView1, ImageView2 y ImageView3).

- Cuando pulsamos el botòn Parar, las imagenes quedan estáticas, se incrementa en uno el número de intentos y se comprueba si las tres imagenes son iguales, en este caso se incrementa en uno el número de aciertos.

- Creamos una carpeta llamada Tres_iguales, dentro de ella el archivo tresiguales.b4a.

- Baja y descomprime el archivo de los dibujos de las frutas y guarda esos dibujos en la carpeta Tres_iguales / Files

(IMPORTANTE: Si no ves la carpeta Files, ejecuta el programa con el código de inicio, de esta manera se creará la carpeta Files)

- Para copiar archivos de imágenes, vídeos, textos,... en la carpeta Files, pulsamos en Add Files.

- Esa carpeta está en donde hayas guardado la aplicación.

____________________________
- Designer. Layout.

 Recuerda:Designer / AddView: para poner elementos en el emulador
Designer / Tools / Connect: para que esos elementos pasen al emulador y podamos situarlos convenientemente.

Designer / File / Save: para guardar el diseño, le damos de nombre Layout

Desinger / Generate members: para que en el código aparezca las subrutinas de los elementos, por ejemplo:

Sub Button1_Click

End Sub

 

- Vamos a Designer para poner los botones.

- Pulsa Designer / WYSIWYG Designer / Connect para que los elementos pasen al emulador y podamos situarlos convenientemente.

- Pulsa el botón Add Images y añade los gráficos de las frutas.

- Pulsamos en AddView y añadimos 3 botones y 5 Label.
- En el Text del Botón1 he puesto Continua
- En el Text del Botón2 he puesto Parar
- En el Text del Botón3 he puesto Comienzo

- En el Text del Label1 escribe ¡¡¡PREMIO!!! y lo pones de color rojo

- En el Text del Label2 escribe Intentos
- En el Text del Label3 escribe -
- En el Text del Label4 escribe Aciertos
- En el Text del Label5 escribe -

- Una vez puestos y situados los Label2, 3, 4 y 5 le pones el Text Style / Text Color NEGRO
(la pantalla el emulador es de color negro, pero cuando funciona se pone de color blanco, cuidado con eso)

- Añade tres ImageView (ImageView1, ImageView2 y ImageView3) y establece en Image file el gráfico de cada fruta (una imagen cada uno, fresa.gif, limon.gif y pera.gif respectrivamente)


- Guardamos el Designer (File / Save) y le damos como nombre Layout
- Vamos hacer que en el código aparezca:

Sub Button1_Click

End Sub

Para ello en el Designer pulsamos en Tools y Generate members
marcamos todos los Click de los 3 botones


pulsamos en Generate members
en el código aparecerá...

Sub Button1_Click

End Sub

_________________________

Para poner fondo de pantalla Blanco, vas al Designer, pulsas en Activity y establece
Color 255,255,255

____________________________
- Código (copia y pega).

Código de tres iguales
'Activity module
Sub Process_Globals
    ' Juan Antonio Villalpando
    ' KIO4.COM
' juana1991@yahoo.com ' Diciembre 2011 ' Crea el temporizador Dim Timer1 As Timer End Sub Sub Globals ' Declara los ImageView y los Label ' Declara las variables x, y, z, intentos y aciertos. Dim ImageView1, ImageView2, ImageView3 As ImageView Dim Label1, Label2, Label3, Label4, Label5 As Label Dim x, y, z As Int Dim intentos, aciertos As Int End Sub Sub Activity_Create(FirstTime As Boolean) ' Activa el Designer que hemos guardado como Layout ' Establece el tiempo del temporizador en 100 milisegundos ' Para el temporizador ' Pone invisible el Label1 de Premio Activity.LoadLayout("Layout") Timer1.Initialize("Timer1", 100) ' 1000 = 1 segundo Timer1.Enabled = False Label1.Visible= False End Sub Sub Button1_Click ' Cuando pulses este botón ' El Timer empieza a contar ' Pone invisible el Label1 de Premio ' Incrementa el número de intentos ' Pone el número de intentos en el Label3 Timer1.Enabled = True Label1.Visible= False intentos = intentos + 1 Label3.Text = intentos End Sub Sub Button2_Click ' Cuando pulses este botón ' El Timer se para ' Si la x = y = z los tres iguales: pone el PREMIO, incrementa los aciertos, pone los aciertos Timer1.Enabled = False If x = y AND x = z Then Label1.Visible= True aciertos = aciertos + 1 Label5.Text = aciertos End If End Sub Sub Button3_Click ' Cuando pulses este botón ' Pone los intentos y los aciertos a cero intentos = 0 Label3.Text = intentos aciertos = 0 Label5.Text = aciertos Timer1.Enabled = True Label1.Visible= False End Sub Sub Timer1_Tick ' Cada vez que pasan 100 milisegundos ' Se crean tres números aleatorios del 1 al 3 (aunque aquí para que funcione he puesto el 4) ' Según salga el 1, el 2 o el 3, se carga en el ImageView1, ImageView2 y ImageView3 un dibujo x = Rnd(1,4) y = Rnd(1,4) z = Rnd(1,4) If x = 1 Then ImageView1.Bitmap = LoadBitmap(File.DirAssets, "fresa.gif") If x = 2 Then ImageView1.Bitmap = LoadBitmap(File.DirAssets, "limon.gif") If x = 3 Then ImageView1.Bitmap = LoadBitmap(File.DirAssets, "pera.gif") If y = 1 Then ImageView2.Bitmap = LoadBitmap(File.DirAssets, "fresa.gif") If y = 2 Then ImageView2.Bitmap = LoadBitmap(File.DirAssets, "limon.gif") If y = 3 Then ImageView2.Bitmap = LoadBitmap(File.DirAssets, "pera.gif") If z = 1 Then ImageView3.Bitmap = LoadBitmap(File.DirAssets, "fresa.gif") If z = 2 Then ImageView3.Bitmap = LoadBitmap(File.DirAssets, "limon.gif") If z = 3 Then ImageView3.Bitmap = LoadBitmap(File.DirAssets, "pera.gif") End Sub

- 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