Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > La Taberna
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Muchisimas felicidades [egostar]

Gracias por esos 3000, y por la estupenda amistad

Saludos
Responder Con Cita
  #2  
Antiguo 01-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por cHackAll Ver Mensaje
Muchisimas felicidades [egostar]

Gracias por esos 3000, y por la estupenda amistad

Saludos
Epale que milagro, hace rato que no te miraba, muchas gracias, sabes que es reciproco amigo.

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #3  
Antiguo 01-02-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Muchas felicidades egostar !!!
Responder Con Cita
  #4  
Antiguo 01-02-2008
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Bueno aqui hacen fiesta y no invitan y ademas con monumentos y todo.
Amigo, no me parece, esta bien que seas el festejado, pero deja algo
Saludos
Responder Con Cita
  #5  
Antiguo 01-02-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Cita:
Empezado por Caral Ver Mensaje
Hola
Bueno aqui hacen fiesta y no invitan y ademas con monumentos y todo.
Amigo, no me parece, esta bien que seas el festejado, pero deja algo
Saludos
Hoy es beviernes amigo Caral, hay suficiente para todos.

PD: lo de monumento no se los dijiste por la edad no?

Saludos
Responder Con Cita
  #6  
Antiguo 01-02-2008
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Poder: 19
felipe88 Va por buen camino
Notificacion Paseo de la Fama

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
__________________
Web
Responder Con Cita
  #7  
Antiguo 01-02-2008
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
Cita:
Empezado por felipe88 Ver Mensaje
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
esa lista que es, de cual operacion hablas??, mira que has bebido mucho, ya suelta el cuchilloooooo
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #8  
Antiguo 01-02-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Poder: 22
ixMike Va por buen camino
Cita:
Empezado por felipe88 Ver Mensaje
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:

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
Responder Con Cita
  #9  
Antiguo 01-02-2008
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Poder: 19
felipe88 Va por buen camino
Cita:
Empezado por ixMike Ver Mensaje
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:

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
Y que se supone que es... una cancion o que
__________________
Web
Responder Con Cita
  #10  
Antiguo 01-02-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Poder: 22
ixMike Va por buen camino
Cita:
Empezado por felipe88 Ver Mensaje
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....
Responder Con Cita
  #11  
Antiguo 01-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por ixMike Ver Mensaje
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #12  
Antiguo 01-02-2008
Avatar de felipe88
[felipe88] felipe88 is offline
Miembro Premium
 
Registrado: may 2007
Ubicación: Mi Valle del Cauca... Colombia!!!
Posts: 1.120
Poder: 19
felipe88 Va por buen camino
ixMike esta buenisimo tu nuevo ringtone...

Me gusto mucho tu codigo, el tono te salio por casualidad ??, o fue a proposito...
__________________
Web
Responder Con Cita
  #13  
Antiguo 01-02-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Poder: 22
ixMike Va por buen camino
Cita:
Empezado por felipe88 Ver Mensaje
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.

Código:
/*
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
Responder Con Cita
  #14  
Antiguo 01-02-2008
Avatar de eduarcol
[eduarcol] eduarcol is offline
Miembro Premium
 
Registrado: ago 2003
Ubicación: En los estados Zulia y Merida de Venezuela
Posts: 4.151
Poder: 25
eduarcol Va por buen camino
Cita:
Empezado por cHackAll Ver Mensaje
Muchisimas felicidades [egostar]

Gracias por esos 3000, y por la estupenda amistad

Saludos
y tu porq vienes aqui a desvirtuar el hilo??
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
Responder Con Cita
  #15  
Antiguo 01-02-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 20
cHackAll Va por buen camino
Cita:
Empezado por eduarcol Ver Mensaje
y tu porq vienes aqui a desvirtuar el hilo??
No te aflijas pues amigo eduarcol... tambien te apreciamos a ti.

Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Caral, Egostar y Delphius en la selva eduarcol Humor 27 16-04-2008 02:40:42
Caral llega a 3,000 egostar La Taberna 25 02-01-2008 18:28:10
Felicitaciones egostar jhonny La Taberna 38 01-10-2007 17:46:21
Pasate por la taberna egostar seoane La Taberna 31 29-05-2007 18:26:59
Cumpleaños de egostar Bicho La Taberna 22 12-05-2007 09:47:28


La franja horaria es GMT +2. Ahora son las 03:06:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi