|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) 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

____________________________

64.- Colores.

- colores_1.zip

- Presentación.

- En esta ocasión, se presenta una mira de ajuste de color vertical.

- Desmarca esta líneas:

' Canvas1.DrawPoint(x, Y, Colors.Black)
' Canvas1.DrawCircle(x, Y, 2dip, Colors.Red, True, 0)

- Se toca los distintos colores.

- En Caso que
el color sea Rojo, se dibuja un punto azul,
el color sea Azul se dibuja un punto verde,
el color sea Verde se dibuja un punto rojo.

Ceil(X) y Ceil(Y) es la posición X e Y del punto que se ha tocado.

color es el número de ese color, por ejemplo -16251649

If Action = Activity.ACTION_MOVE Then ' Detecta cuando se mueve el dedo por la pantalla

color = Bitmap1.GetPixel(X, Y) ' Capta el color del pixel

Canvas1.DrawCircle(x, Y, 2dip, Colors.Blue, True, 2dip) ' Dibuja un círculo.

Ceil(X) ' Pasa a número entero.

____________________________
- Designer. Layout.

Pantalla



cartadeajuste.jpg

- Baja esta imagen y súbela a la carpeta Files del proyecto.


____________________________
- Código.

Copia y pega este código en un nuevo proyecto
Sub Process_Globals
' Juan Antonio Villalpando
' juana1991@yahoo.com
' kio4.com End Sub Sub Globals Dim Panel1 As Panel Dim ImageView1 As ImageView Dim Canvas1 As Canvas Dim color As Int Dim Bitmap1 As Bitmap Dim etiqueta As Label End Sub Sub Activity_Create(FirstTime As Boolean) Panel1.Initialize("Panel1") Activity.AddView(Panel1, Activity.Width/2-300dip/2, Activity.Height/2 - 300dip/2, 300dip, 300dip) ImageView1.Initialize("") Panel1.AddView(ImageView1, 0, 0, 300dip, 300dip) Canvas1.Initialize(ImageView1) Dim rect1 As Rect rect1.Initialize(0, 0, ImageView1.Width, ImageView1.Height) Canvas1.DrawBitmap(LoadBitmap(File.DirAssets, "cartadeajuste.jpg"), Null, rect1) Bitmap1 = ImageView1.Bitmap ' Crea etiqueta (Label) etiqueta.Initialize("etiqueta") etiqueta.TextSize = 20 etiqueta.color=Colors.Red etiqueta.Gravity = Gravity.CENTER etiqueta.Text = "-----------" Activity.AddView(etiqueta, 20dip, 20dip, 300dip, 40dip) End Sub Sub Panel1_Touch (Action As Int, x As Float, Y As Float) If Action = Activity.ACTION_MOVE Then color = Bitmap1.GetPixel(X, Y) etiqueta.Text = Ceil(X) & " " & Ceil(Y) & " " & color ' Canvas1.DrawPoint(x, Y, Colors.Black) ' Canvas1.DrawCircle(x, Y, 2dip, Colors.Red, True, 0) Select color Case Colors.RGB(255,0,0) Canvas1.DrawCircle(x, Y, 2dip, Colors.Blue, True, 2dip) Case Colors.RGB(0,255,0) Canvas1.DrawCircle(x, Y, 2dip, Colors.Red, True, 2dip) Case Colors.RGB(0,0,255) Canvas1.DrawCircle(x, Y, 2dip, Colors.Green, True, 2dip) End Select Panel1.Invalidate End If End Sub
Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) 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