Foros Club Delphi
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   8 Shape cambiando de color en secuencia. (https://www.clubdelphi.com/foros/showthread.php?t=57433)

JoseFco 14-06-2008 20:36:40
8 Shape cambiando de color en secuencia.
 
"Tolomeo se mudo al Polo Norte"

Caral 14-06-2008 20:39:29
Hola
Jose, efectivamente, un timer.:)
Que problema con estos muchachos que se auto contestan.:D:D
Saludos

JoseFco 14-06-2008 21:00:56
"Tolomeo se mudo al Polo Norte"

Caral 14-06-2008 21:08:58
Hola
Me parece que este componente es un led muy interesante, revisalo, tal vez te sirva.
Saludos

JoseFco 14-06-2008 21:21:54
"Tolomeo se mudo al Polo Norte"

JoseFco 14-06-2008 21:50:08
"Tolomeo se mudo al Polo Norte"

Caral 15-06-2008 00:49:31
Hola
Estaba intentando hacer algo como lo que necesitas con un solo timer, pero no pude, quizás usando un array seria posible, lo intente pero no me sale con los shape.
Bueno, de todos modos te pongo este ejemplo, tal vez te sirva de algo.
Es muy a lo novato, asi que no esperes mucho de el.:D
Saludos

JoseFco 15-06-2008 01:33:49
"Tolomeo se mudo al Polo Norte"

Caral 15-06-2008 02:54:18
Hola
Como he tenido la curiosidad me puse a trabajar sobre arrays.
Bueno aquí te dejo el ejemplo, se reduce el código mucho.
Se usa un solo Timer, como necesitas.
En cualquier momento llega algún Maestro y te lo arregla.:D:D
Saludos

JoseFco 15-06-2008 04:09:39
"Tolomeo se mudo al Polo Norte"

Crandel 15-06-2008 06:45:00
1 Archivos Adjunto(s)
Cita:
Empezado por Caral (Mensaje 293680)
Como he tenido la curiosidad me puse a trabajar sobre arrays.
Aca modifique tu programa para que tenga movimiento en ambos sentidos.

Caral 15-06-2008 15:06:11
Hola
M
Gracias Crandel, esta muy bueno, me gusta la sencillez.
Se nota la mano del maestro.
Saludos

JoseFco 15-06-2008 15:19:54
"Tolomeo se mudo al Polo Norte"

Crandel 15-06-2008 16:15:45
De nada amigos, solo vi en lo que estaban y ayude un poquito.

Feliz dia del padre para uds tambien :)

JoseFco 16-06-2008 00:17:29
"Tolomeo se mudo al Polo Norte"

Crandel 16-06-2008 07:56:22
Se ocurren dos ideas que pueden quedar bien:

1. Seguir con el estilo de manejarlo con vectores haciendo igual como hizo Caral en el ejemplo 2. Y luego le asignas ese color al led seleccionado. Quedaria algo asi:

Código Delphi [-]
if i = posicion then Leds[i].Brush.Color := LedsColor[i]
               else Leds[i].Brush.Color := clGray; // o puedes definir una constante global de tu programa para este color

2. La otra opcion es definir tu propia clase TLed basada en TShape ya con la forma por defecto y le agregas dos propiedades: OnColor y OffColor.
Luego defines dos metodos: TurnOn, TurnOff para prender y apagar el led.

y te quedaria asi:

Código Delphi [-]
if i = posicion then Leds[i].TurnOn
                else Leds[i].TurnOff;

Saludos

egostar 16-06-2008 22:11:59
Yo haría esto:

Código Delphi [-]
var
  Form1: TForm1;
  Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0);


procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 7 downto 0 do begin
      with TShape(components[i]).Brush do begin
         case Arreglo[i] of
             0: color := clRed;
             1: color := clGreen;
         end;
      end;
  end;
end;

Salud OS

JoseFco 16-06-2008 23:14:14
"Tolomeo se mudo al Polo Norte"

egostar 16-06-2008 23:16:13
Cita:
Empezado por JoseFco (Mensaje 293991)
Hola carnal, eso esta perfecto.pero lo que quiero es declarar las pocisiones de los Shape, los colores se los quiero poder hacer update en el procedimiento que este en ese momento pidiendolos.

No se si me explico?

Un Saludo.
NO :D:D:D

Salud OS

JoseFco 17-06-2008 00:08:38
"Tolomeo se mudo al Polo Norte"

egostar 17-06-2008 00:24:20
Cita:
Empezado por JoseFco (Mensaje 294006)
Ok.
Arreglo: Array [0..7] of Integer = (1,1,1,1,0,0,0,0); aqui estan los colores declarados para los 8 Shape. 4 verde y 4 rojos.Estos no cambiaran nunca.la idea es poder declarar los Shape y el color se los da uno cuando llegue el momento. Shape7 puede ser rojo o verde, eso depende de lo que uno quiera.
La pregunta es esta. En vez de declarar los colores, se pueden declarar las pocisiones de los Shape?


Un Saludo.
Si, puedes hacer esto :

Código Delphi [-]
Var
  Arreglo: Array [0..7] of Integer;

//Y donde quieras asignar el valor :

Arreglo[0] := 1;
Arreglo[1] := 1;
Arreglo[2] := 1;
Arreglo[3] := 1;
Arreglo[4] := 0;
Arreglo[5] := 0;
Arreglo[6] := 0;
Arreglo[7] := 0;
Salud OS

Caral 17-06-2008 01:20:51
Hola
A estos maestros ya no hay quien los entienda, me despedazan con mi humilde código y ni sombra del novato.:D:D
Y para hacerlo mas grande, ponéis códigos, que ni Dios entiende.:D:D.
Y yo que me tarde toda una tarde pensando en como hacerle la tarea al Novato 2.:D:D
Que despecho.:D
Saludos

egostar 17-06-2008 01:30:11
Cita:
Empezado por Caral (Mensaje 294016)
Hola
A estos maestros ya no hay quien los entienda, me despedazan con mi humilde código y ni sombra del novato.:D:D
Y para hacerlo mas grande, ponéis códigos, que ni Dios entiende.:D:D.
Y yo que me tarde toda una tarde pensando en como hacerle la tarea al Novato 2.
Que despecho
Saludos
:o, hey amigo [Caral], como que ni Dios entiende, tan feo está mi code :D:D:D

Salud OS

JoseFco 17-06-2008 01:30:32
"Tolomeo se mudo al Polo Norte"

Caral 17-06-2008 01:34:31
Hola
Esta bien por hoy os perdono.
Hoy es un buen día, hace 19 años que me case, así que estoy de buen humor porque todavía me aguanta mi esposa.:D:D
Saludos

FGarcia 17-06-2008 01:46:40
upss! Ni hablar tal vez no sea la seccion adecuada pero ¡¡FELICIDADES!! 19 años se dicen facil pero son una eternidad.

Caral 17-06-2008 01:51:00
Hola
Muchas gracias amigo.
Asi es, no se dice fácil 19 años, pero tengo mucha suerte con mi esposa.
Saludos

egostar 17-06-2008 01:52:13
Cita:
Empezado por Caral (Mensaje 294019)
Hola
Esta bien por hoy os perdono.
Hoy es un buen día, hace 19 años que me case, así que estoy de buen humor porque todavía me aguanta mi esposa.:D:D
Saludos
Epale amigo, vaya que te sacaste la loteria, mira que aguantarte 19 años, :D:D:D

Muchas felicidades amigo, ya deberias estar festejando, que haces por aqui, ya vete hombre :D

Salud OS

Caral 17-06-2008 01:56:51
Hola
Gracias amigo.
Aparte, Que, me estas echando.:D:D
Claro así si me ganas en posts.:D:D:D
Bueno, ya me vengue, como no le hicieron caso a mi pobre código, ya desvirtué el hilo.:D:D:D
Saludos

egostar 17-06-2008 02:05:02
Cita:
Empezado por Caral (Mensaje 294027)
Hola
Gracias amigo.
Aparte, Que, me estas echando.:D
Claro así si me ganas en posts.:D
Bueno, ya me vengue, como no le hicieron caso a mi pobre código, ya desvirtué el hilo.:D
Saludos
:D:D:D, a que mi amigo, lo que pasa es que te pones a hacer un semaforo y pues parece que hay daltónicos por aquí, jajaja

Esta muy bueno tu code amigo, :)

Salud OS

Caral 17-06-2008 02:07:20
Hola
Gracias, sabia que tenia que ser reconocido algún día.:D:D:D
Ahora si me voy, sino me divorcian o peor :D:D
Saludos

JoseFco 17-06-2008 02:14:16
"Tolomeo se mudo al Polo Norte"

JoseFco 17-06-2008 02:15:56
"Tolomeo se mudo al Polo Norte"

JoseFco 17-06-2008 02:23:29
"Tolomeo se mudo al Polo Norte"

egostar 17-06-2008 02:34:07
Cita:
Empezado por JoseFco (Mensaje 294038)
Es que me hace falta encontrar la forma de poder hacer eso de una forma mas corta, de lo contrario en mis programitas tendre que escribir mucho.
Como en este que estoy trabajando:Monitor imaginate estare escribiendo un mes entero.:D:D:D

Un Saludo.
Y donde está el atoradero amigo......

Salud OS

JoseFco 17-06-2008 02:39:40
"Tolomeo se mudo al Polo Norte"

egostar 17-06-2008 02:45:35
Cita:
Empezado por JoseFco (Mensaje 294042)
Es que cada byte, tiene 8 bits ( los 8 paneles) y si son 256 tendre que escribir 256 x8= 2048 lineas solo para hacer update los 8 paneles esos que reflejan el estado de los bits de un byte. Lo mismo de los Shape y los Led's.

Un Saludo.
Perdon amigo, pero que utilidad tiene hacer eso, digo, soy un neofito en lo que estas haciendo y no logro captar tu requerimiento.

Salud OS

JoseFco 17-06-2008 02:58:00
"Tolomeo se mudo al Polo Norte"

egostar 17-06-2008 03:17:57
Cita:
Empezado por JoseFco (Mensaje 294046)
Digamos que tienes un microcontrolador y 8 switches conectados a un puerto de este micro (8 bits) si en el software del micro pones una rutina que lea el estado del puerto ese y lo mande al serial port.Entonces entra este monitor y cada una de las 256 posibles combinaciones se reflejan en el monitor.las podras ver en Decimal,Hexadecimal y en Binario.Esto solo es una parte de lo que hara este programita.Que tambien estara diceñado su form como parte de una leccion de uC.El form ese solo esta en projecto, le faltan cosas.;)

La idea era poder en una sola linea de codigo hacer update a los 8 paneles esos que reflejan el estado de los bits en (binario) no teneindo que escribir 8 lineas como lo que tengo ahora.Pero no me puedo explicar bien.recuerda que yo en esto de Delphi no se nada y pienso como si programara micros.Algunas veces creo que las cosas podrian ser como las rutinas que creo en ellos y pues no es asi, al menos no para mi.

Un Saludo.
Eso lo entiendo amigo [JoseFco], lo que no acabo de entender es para que tener esos leds si solo vas a ver el último byte recibido, los demas pasan tan rápido que no te da tiempo de ver el estado del byte, a menos que me esté perdiendo de algo que no has comentado :)

Salud OS

JoseFco 17-06-2008 13:34:56
"Tolomeo se mudo al Polo Norte"


La franja horaria es GMT +2. Ahora son las 21:59:04.
Página 1 de 2 1 2 >
Mostrar 40 mensajes desde este tema en una página

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi