Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #15  
Antiguo 01-02-2008
Avatar de ixMike
ixMike ixMike is offline
Miembro
 
Registrado: feb 2004
Posts: 1.151
Poder: 24
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 - [email protected]

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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 14:50:57.


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