8 Shape cambiando de color en secuencia.

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

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[enecumene]]

Hola, JoseFco, perdona amigo pero aún no entiendo que va a moniterar, o sea, para qué se usa el microcontrolador que mencionas, perdón, soy igual de neofito que Ego.

Saludos.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[enecumene]]

Empezado por JoseFco

o puede usarce para controlar algun que otro juguetito sexual.

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[enecumene]]

Empezado por JoseFco

Hola enecumene.

Esta buena esa firma:

Las Palabras son enanas, los ejemplos gigantes y los politicos unos farzantes...que con projectos gigantes... nos regalan economias enanas.


Un Saludo.

¡Hombre, has adivinado el significado de esa frase!