Egostar llega a los 3,000

[ixMike]

Empezado por felipe88

Aqui coloco un listado de los primeros afortunados que haran parte del paseo de la fama... hasta ahora son los que mas presentes, obviamente faltan muchos pero no han pasado lista ... ni siquiera el capo

Hasta que no se pronuncien no dire mas nombres:

*Casimiro Notevi
*cHackAll
*ContraVeneno
*Delphius
*eduarcol
*jhonny
*Enecumene
*ixMike
*egostar
*caral
*seoane

Ire tomando copia de sus avatar en los proximos dias, esta operacion no necesita anestecia, es indolora

Si me colocas en ese paseo, será por poeta o cliente habitual, no por programador, ¿verdad? ¿o acaso has visto mucho código por aquí últimamente?

Por cierto, ya que estás, compila esto:

Código Delphi [-]
program lee_notas_pas;

(*
lee_notas.exe v1.0 - 04/12/07
Programado por Miguel Cahigüela López - mikelunatiko@yahoo.es

Este programa y su código fuente son libres, puedes usarlos, copiarlos y
 ponerlos en tu web libremente, pero recuerda que debes indicar el autor
 y su página web http://usuarios.lycos.es/mikelunatiko/programas.php

Este programa se distribuye tal cual, sin ningún tipo de garantía. Úsalo
 bajo tu propia responsabilidad.
*)

uses
  Windows, Classes, SysUtils;

var
  L: TStringList;
  n: integer;

begin
  L:=TStringList.Create;
  L.LoadFromFile(ParamStr(1));
  for n:=0 to L.Count-1 do
    begin
    Windows.Beep( StrToInt(Copy(L[n], 1, Pos(' ', L[n]) - 1)),
                  StrToInt(Copy(L[n], Pos(' ', L[n]) + 1, Length(L[n])- Pos(' ', L[n]) + 1)));
    Windows.Beep(35, 10);
    end;
  L.Free;
end.

y lo ejecutas como parámetro un archivo de texto que contenga esto:

988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
988 350
880 150
880 400
988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
880 350
784 150
784 400
880 400
988 200
784 200
880 200
988 100
1047 100
988 200
784 200
880 200
988 100
1047 100
988 200
880 200
784 200
880 200
587 400
988 400
1047 200
1175 200
1175 200
1047 200
988 200
880 200
784 200
784 200
880 200
988 200
880 350
784 150
784 400

¡Pero aléjate de la pantalla!

Nota: si multiplicas los números de la segunda columna por dos, obtendrás un resultado más pausado.


Salu2