Hola
Bueno aqui esta mi codigo sin utilidad.
Es un boton, nunca he podido presionarlo.
Saludos

Excelente, poco a poco todos estamos dejando algo. Gracias Caral.

Estaba pensando en incluir mi dirección de correo en mi pagina web, cuando recordé que eso puede provocar una avalancha de spam. Al menos eso cuentan por ahí, que hay montones de spiders revisando a conciencia toda la web en busca de direcciones de correo, por dios cuanta maldad hay en el mundo :D

Leyenda urbana o no, es una buena ocasión para crear "código inútil". El siguiente programa crear a partir de un texto, una imagen, mas o menos legible para un ser humano, pero bastante complicada de leer por un OCR (un programa para reconocer texto). Además le da unos bonitos colores :p

Un ejemplo:
http://img46.imageshack.us/img46/9843/arrobaij6.jpg

Hola
Muy bonito, la verdad, simpatico y util.
Cada vez me sorprendes mas, de donde sacas tantas ideas?, es impresionante tu conocimiento.
Saludos

Tengo demasiado tiempo libre :p

Seoane, este último ejemplo estuvo muy bueno...
Colorido...

Y si quieres que sea ilegible, tan solo le pones una fuente "rara" como symbols.:D

Eso mismo me pregunto yo.

Quisiera tener la mitad de las ideas que tienes. Pareces mago, siempre sacando algo de la galera, o debajo de la manga.

Saludos,

PD: ando viendo aquel truco del MD5 y SHA1 que pusiste. Creo que me puede dar una idea de como hacer más seguro mi sistema.

Hola
Pues no se ha que se debe el tiempo libre, con la mitad de tu conocimiento, no tendria tiempo, estaria por mi cuenta ganando un paston.
Creo que tienes que vender ese conocimieno, vamos seoane, ya es hora.
Saludos

Me sumo a la idea. Vienes demostrando tu talento, y tu intelecto desde hace tiempo. Al igual que Caral opino que deberías intentar ganarte unos cuantos euros.

Caral, lo mismo digo por ti.
Tienen mucho a ganar.

Saludos, les deseo el mejor de los éxitos.

Hola compañeros del club otra vez aquí dejando otro código que tal vez no les sirva, se trata de un programita que hice en la cual puedes programar tareas para que se ejecuten en determinado momento, esto iba a formar parte de una agenda que pensaba crear.

Ahi les dejo el adjunto, si alguien se anima a mejorarlo, pues a buena hora

PD: En frecuencia poner ninguna, ya que las otras opciones no están programadas

Saludos cordiales:)

Inspirado en este otro hilo donde se habla de lo que podemos considerar el photoshop de los mandalas, he creado lo que podemos llamar el "paint" de los mandalas :p

Pues eso, a dibujar mandalas que relaja mucho :D

jajaja cuando inicia la aplicación el boton tiene el foco

Como bien ha propuesto Seoane, parece que el tema de "Mandalas" ha dado para un hilo propio, así que él mismo ha abierto un nuevo hilo aquí, y yo he movido los post que había en este hasta el nuevo hilo (o lo he intentado :o)

Así que dejamos este para seguir con losódigos inútiles" y seguimos econ el tema de "Mandalas" en el nuevo.

Un saludo.

No es accesible, me dice:
"No Tema specified. If you followed a valid link, please notify the administrator"

Corregido.

Bueno, este código fue en honor de los 2000 mensajes de Jhonny.

Código Delphi [-]
uses clipbrd;

function StrToStr(Str: string; S: Integer): string;
var
  Bitmap: TBitmap;
  i,j: integer;
begin
  Result:= '';
  // Creamos un Bitmap
  Bitmap:= TBitmap.Create;
  try
    // Ajustamos el tipo y tamaño de la fuente
    Bitmap.Canvas.Font.Name:= 'Arial Black';
    Bitmap.Canvas.Font.Size:= S;
    // Ajustamos el tamaño del Bitmap al tamaño del texto
    Bitmap.Width:= Bitmap.Canvas.TextWidth(Str);
    Bitmap.Height:= Bitmap.Canvas.TextHeight(Str);
    // Escribimos el texto en el bitmap
    Bitmap.Canvas.TextOut(0,0,Str);
    // Vamos leyendo pixel a pixel del bitmap
    for j:= 0 to Bitmap.Height - 1 do
    begin
      for i:= 0 to Bitmap.Width - 1 do
        // Por cada pixel blanco añadimos la letra _ al resultado
        if Bitmap.Canvas.Pixels[i,j] = $FFFFFF then
          Result:= Result + ' '
        else
          // y por cada pixel que no es blanco añadimos una X
          Result:= Result + 'X';
      // Al final de cada fila de pixeles añadimo al resultado un salto de linea
      Result:= Result + #13#10;
    end;
  finally
    // Eliminamos el bitmap, ya no lo necesitamos
    Bitmap.Free;
  end;
end;

function ContarX(Str: String): Integer;
var
  i: Integer;
begin
  Result:= 0;
  for i:= 1 to Length(Str) do
    if Str[i] = 'X' then
      inc(Result);
end;

function StrToStrN(Str: String; N: Integer): String;
var
  i: Integer;
begin
  i:= 8;
  while ContarX(StrToStr(Str,i)) < N do
    inc(i);
  Result:= StrToStr(Str,i-1);
end;

// Por ejemplo
var
  Str: String;
begin
  Str:= StrToStrN('Jhonny *',2000);
  Clipboard.AsText:= Str;
  ShowMessage(IntToStr(ContarX(Str)));
end;

Como veis, me da un texto de 1960 caracteres así que hay que añadirle las otras cuarenta X a mano :p :D

Tengo este hilo un poco abandonado, últimamente todo el código que hago es utilisimo :cool: :p :D

Aquí dejo este jueguecito, que no es que sea una maravilla pero para perder el tiempo sirve perfectamente. Según me contaron utilizaban algo parecido para entrenar a los pilotos, aunque espero que utilicen mejores gráficos :p

El juego consiste en mover con el ratón un rectángulo azul, intentando escapar de unos rectángulos rojos y sin salirse del rectángulo blanco. Gana el que mas tiempo consiga evitar una colisión.

Para comenzar el juego hay que pulsar sobre el recuadro azul y empezar a moverlo, si se suelta el botón el juego se para. En la barra de títulos aparece el tiempo actual y el tiempo mayor sin una colisión.

Pues nada, a perder el tiempo ...

Joer Domingo, dí la verdad, ¿¿¿Mientras duermes escribes código no???? :eek::eek:
Ya he perdido un rato el tiempo, y engancha eh!!!!!!! :D:D:D

Si, Si que engancha :D ¿Que tiempo haces?

Haaaaaaaaaaaaaaaaaaaa!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Me envicie mal, mal mal mal!!!!!!!!!

12 segundos maximo

:p

No he conseguido pasar de 31 sg. :(:(:(

Me pongo nervioso, miro cuanto tiempo llevo y me "pasan por encima" :(