sábado, 10 de septiembre de 2011

El futuro de la tecnologia de pantallas

Este video que encontre en youtube nos muestra como muy pronto van a ser los dispositivos que tienen una pantalla en un futuro cercano. Hace unos años los creiamos casi imposibles pues solo los veiamos en peliculas de ciencia ficcion y en caricaturas. Ahora, es algo que sucedera en muy poco tiempo por el gran avance de la tecnologia. Espero y les guste.




http://www.youtube.com/watch?v=g7_mOdi3O5E&feature=player_embedded

martes, 6 de septiembre de 2011

Programa manipulacion de colores




void __fastcall TForm1::RojoChange(TObject *Sender)
{
   Panel1->Color = (TColor)RGB(Rojo->Position, Verde->Position, Azul->Position);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{

       for(int i = 0; i < 1000; i++)
       {
         Image1->Canvas->Pixels[random(Image1->Width)][random(Image1->Height)]
          = (TColor)RGB(random(180)+175, 0, 0);
       }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
      for(int i = 0; i < 1000; i++)
       {
         Image1->Canvas->Pixels[random(Image1->Width)][random(Image1->Height)]
          = (TColor)RGB(0, random(180)+175, 0);
       }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
       for(int i = 0; i < 1000; i++)
       {
         Image1->Canvas->Pixels[random(Image1->Width)][random(Image1->Height)]
          = (TColor)RGB(0, 0, random(180)+175);
       }
}
//---------------------------------------------------------------------------

Este programa que hicismos en clase es mas facil de lo que parece. Espero y les guste.