Cita:
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;
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:
Código:
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