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

[[felipe88]]

Empezado por ixMike

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

Y que se supone que es... una cancion o que

[ixMike]

Empezado por felipe88

Y que se supone que es... una cancion o que

Suponer... suponer no es bueno. No es científico. Experimenta, como los científicos, y verás....

[[egostar]]

Empezado por ixMike

Suponer... suponer no es bueno. No es científico. Experimenta, como los científicos, y verás....

, quieres que reinicie su PC de nuevo, :

Ah no se puede matar la tarea jejeje

Salud OS

[[felipe88]]

ixMike esta buenisimo tu nuevo ringtone...

Me gusto mucho tu codigo, el tono te salio por casualidad ??, o fue a proposito...

[ixMike]

Empezado por felipe88

ixMike esta buenisimo tu nuevo ringtone...

Me gusto mucho tu codigo, el tono te salio por casualidad ??, o fue a proposito...

Es un programa que hice a cosa hecha... mis compeñeros de informática quedaron alucinados con la versión en C.

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

bla, bla... el mismo rollo de antes
*/

#include <stdio.h>
#include <windows.h>

int main(int arg, char * args [])
{
    FILE *F;
    int duracion, frecuencia=1;
    
    printf("Reproduciendo canción %s...\n\n", args[1]);
    
    F=fopen(args[1],"r");
    
    if (F==NULL)
        {
             printf("Se produjo un error.\n");
             
             getch();
             return 1;
        }
    while (feof(F)==0)
        {
              fscanf(F, "%i%i", &frecuencia, &duracion);
              printf("beep(%i,%i)\n",frecuencia, duracion);
              beep(frecuencia, duracion);
        }
    fclose(F);
    
    printf("\nSe acabo :(");
    getch();
    return 0;
}

Uno hasta sacó la melodía de supermario bros . Bueno, su trabajo fue mayor, porque no hizo un fichero de texto, sino un ejecutable directamente (se hizo su "librería" .h con sus defines, una constante para cada nota, y ale, "Beep(Do, 125); Beep(Re_s, 250)..."


Salu2


P.D.: Es conocido que tiene un bug cuando quieres hacer silencios con la frecuencia 0, pero bueno, siempre puedes poner 1, o cualquiera menor que 20

[jachguate]

Wow... 3,000 es un número para celebrar!![/color]
Muchas gracias egostar, pues tu presencia en el club es valiosa para quienes lo integramos.
Muchas felicidades por el reconocimiento que has encontrado en la comunidad.

Un saludo.

[[egostar]]

Empezado por jachguate

Wow... 3,000 es un número para celebrar!![/color]
Muchas gracias egostar, pues tu presencia en el club es valiosa para quienes lo integramos.
Muchas felicidades por el reconocimiento que has encontrado en la comunidad.

Un saludo.

Muchas gracias amigo jachguate, realmente me siento alagado por todos ustedes, y pues el agradecido soy yo que me han dado su compañerismo y amistad , bueno pero ya no le sigo que voy a soltar en llanto .

Salud OS

[[Delphius]]

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

¿Y esto? Muchachos... nos están vigilando... Vieron... nos van a poner delante del muro, en la sala de testigos... Nos van a poner en fila para el reconocimiento... ¡Que hable el que inció el lío antes que llegue el capo!
¡Queremos al que hizo el lio!

...
Me voy por solo 4 horas y ustedes andan pensando que estoy tirando en el suelo y ebrio. ¿No se olvidan de que no puedo tomar nada de alcohol? El de la foto no soy yo...

Estaba entretenido con algunas damicelas

¡Se pasaron de roscas! Abrí mi casilla de correo y veo un mensaje que dice: "Tienes 69 mensajes nuevos" (Si, es esa cifra... crease o no. Ya se que tiene otro significado, pero bue...) Todos, son confirmaciones de mensaje de Clubdelphi. Nunca recibí tanta cantidad... ¡Realmente nos pasamos esta vez!

A ver... a cual de la chicas me ha faltado conocer...

Saludos,

[[felipe88]]

Impresionante trabajo en equipo ixMike... ademas el manejo de las notas ya es otro mundo, gracias por el codigo


Ahora si te ganaste tu estrella ...