Foros Club Delphi - 8 Shape cambiando de color en secuencia.

Página 2 de 3

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)

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)

: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 13:37:02.

Página 2 de 3

Mostrar 40 mensajes desde este tema en una página