8 Shape cambiando de color en secuencia.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[egostar]]

Empezado por JoseFco

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

Salud OS

[JoseFco]

"Tolomeo se mudo al Polo Norte"

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

Aqui mi contribucion a este hilo usando el codigo de este otro hilo:

Código Delphi [-]
//Declaramos una variable de tipo byte
var
  Form1: TForm1;
  bValor: byte;

//Creamos esta funcion para convertir el valor entero en una cadena binaria
function TForm1.IntToBinStr(num: integer): string;
var
   i: integer;
begin
   for i := 0 to 7 do
      Result := IntToStr((num shr i) and 1)+ Result;
end;
 
//Esta es la funcion de los led y shapes
procedure TForm1.EnciendeLED;
begin
  //esta etiqueta es nueva
  Label15.Caption := IntToStr(bValor);
  
 if StrToInt(MidStr(IntToBinStr(bValor), 1, 1)) = 0 then
    begin
      Shape8.Brush.Color := clLime;
      Edit8.Text := '0';
    end
  else
    begin
      Shape8.Brush.Color := clMoneyGreen;
      Edit8.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 2, 1)) = 0 then
    begin
      Shape7.Brush.Color := clLime;
      Edit7.Text := '0';
    end
  else
    begin
      Shape7.Brush.Color := clMoneyGreen;
      Edit7.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 3, 1)) = 0 then
    begin
      Shape6.Brush.Color := clLime;
      Edit6.Text := '0';
    end
  else
    begin
      Shape6.Brush.Color := clMoneyGreen;
      Edit6.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 4, 1)) = 0 then
    begin
      Shape5.Brush.Color := clLime;
      Edit5.Text := '0';
    end
  else
    begin
      Shape5.Brush.Color := clMoneyGreen;
      Edit5.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 5, 1)) = 0 then
    begin
      Shape4.Brush.Color := clLime;
      Edit4.Text := '0';
    end
  else
    begin
      Shape4.Brush.Color := clMoneyGreen;
      Edit4.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 6, 1)) = 0 then
    begin
      Shape3.Brush.Color := clLime;
      Edit3.Text := '0';
    end
  else
    begin
      Shape3.Brush.Color := clMoneyGreen;
      Edit3.Text := '1';
    end;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 7, 1)) = 0 then
    begin
      Shape2.Brush.Color := clLime;
      Edit2.Text := '0';
    end
  else
    begin
      Shape2.Brush.Color := clMoneyGreen;
      Edit2.Text := '1';
    end ;
 
  if StrToInt(MidStr(IntToBinStr(bValor), 8, 1)) = 0 then
    begin
      Shape1.Brush.Color := clLime;
      Edit1.Text := '0';
    end
  else
    begin
      Shape1.Brush.Color := clMoneyGreen;
      Edit1.Text := '1';
    end ;
end;

//Cuando cambia el valor de TrackBar al cual llamamos tbValor
procedure TForm1.tbValorChange(Sender: TObject);
begin
  bValor := tbValor.position;
  EnciendeLED;
end;

Como siempre se aceptan criticas constructivas, destructivas, orientativas y sin sentido!!

¡¡Prohibido desvirtuar este hilo!!

[[egostar]]

Empezado por FGarcia

Como siempre se aceptan criticas constructivas, destructivas, orientativas y sin sentido!!

¡¡Prohibido desvirtuar este hilo!!

Hola amigo FGarcia, , lo que pasa es que el amigo [JoseFco] lo que quiere es precisamente lo contrario de lo que estas haciendo, optimización de código

Salud OS

Que conste que no estoy desvirtuando el hilo ehhhh

[[FGarcia]]

La lucha se hace!!!