8 Shape cambiando de color en secuencia.

[[egostar]]

Empezado por JoseFco

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]]

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

[[egostar]]

Empezado por Caral

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

, hey amigo [Caral], como que ni Dios entiende, tan feo está mi code

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Caral]]

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.
Saludos

[[FGarcia]]

upss! Ni hablar tal vez no sea la seccion adecuada pero ¡¡FELICIDADES!! 19 años se dicen facil pero son una eternidad.

[[Caral]]

Hola
Muchas gracias amigo.
Asi es, no se dice fácil 19 años, pero tengo mucha suerte con mi esposa.
Saludos

[[egostar]]

Empezado por Caral

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.
Saludos

Epale amigo, vaya que te sacaste la loteria, mira que aguantarte 19 años,

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

Salud OS

[[Caral]]

Hola
Gracias amigo.
Aparte, Que, me estas echando.
Claro así si me ganas en posts.
Bueno, ya me vengue, como no le hicieron caso a mi pobre código, ya desvirtué el hilo.
Saludos

[[egostar]]

Empezado por Caral

Hola
Gracias amigo.
Aparte, Que, me estas echando.
Claro así si me ganas en posts.
Bueno, ya me vengue, como no le hicieron caso a mi pobre código, ya desvirtué el hilo.
Saludos

, 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]]

Hola
Gracias, sabia que tenia que ser reconocido algún día.
Ahora si me voy, sino me divorcian o peor
Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

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.

Un Saludo.

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

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

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]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

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]

"Tolomeo se mudo al Polo Norte"