• Sábado 14 de Diciembre de 2024, 18:01

Autor Tema:  Intermitencias  (Leído 1230 veces)

sergiocg

  • Nuevo Miembro
  • *
  • Mensajes: 9
    • Ver Perfil
Intermitencias
« en: Miércoles 2 de Junio de 2010, 21:38 »
0
A ver si me explico tengo un formulario con dos Shape y un botón. Al pulsar el botón se debe poner en marcha los colores de los shapes de forma intermitente, pero no me sale. Alguna sugerencia.

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (m = false)
{
Shape1->Brush->Color = clYellow;
Shape2->Brush->Color = clRed;
}
else
{
Shape1->Brush->Color = clRed;
Shape2->Brush->Color = clYellow;
}
m = true;
}

softevolutions

  • Miembro activo
  • **
  • Mensajes: 84
  • Nacionalidad: es
    • Ver Perfil
    • http://www.softevolutions.es
Re: Intermitencias
« Respuesta #1 en: Jueves 3 de Junio de 2010, 09:11 »
0
Un par de cosas:

1) en el if, has metido una asignación y no una comparación
2) Tienes que cambiar el sitio donde cambias el valor de "m", ya que el cambio SOLO lo hará una vez o ninguna.

Te dejo una sugerencia para evitar el uso de una variable intermedia "m"

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
     if (Shape1->Brush->Color == clYellow) {
          Shape1->Brush->Color = clRed;
          Shape2->Brush->Color = clYellow;
     }
     else {
          Shape1->Brush->Color = clYellow;
          Shape2->Brush->Color = clRed;
     }
}
:: Lo que puedes hacer sólo lo limita tu propia imaginación ::
Soft Evolutions Technology - http://www.softevolutions.es