/******** Programa hecho por Raul Marmolejo ********/
/******** rm3 kReAtIoNz ********/
/******** www.raul.marmolejo.net ********/
/******** raulgerardo@marmolejo.net ********/
#include <dos.h>
#include <conio.h>
/*********NOTAS*********/
#define do 515
#define re 580
#define mi 650
#define fa 685
#define sol 780
#define sols 838
#define la 870
#define si 995
#define DO 1045
#define RE 1162
#define MI 1300
#define FA 1385
/*******TIEMPOS*********/
#define Redonda 2000
#define Blanca 1000
#define Negra 500
#define Corchea 250
#define Semicorchea 125
/********OTROS**********/
#define Espacio 100
struct Nota
{
char nota;
int tiempo;
int espacio;
};
void tocar(Nota &N);
void main()
{
Nota Love_History[106]= { {'C',4},{'e',4},{'e',4},{'C',4},{'C',2}, {'e',4},{'e',4},{'C',4},{'C',4},{'e',4},{'f',4},{'e',4},{'d',4},
{'d',4},{'d',4},{'b',4},{'b',2},{'d',4},{'d',4},{'b',4},{'b',4},{'d',4},{'e',4},{'d',4},{'c',4},{'c',4},{'c',4},{'a',4},{'a',2},
{'c',4},{'c',4},{'a',4},{'a',4},{'c',4},{'d',4},{'c',4},{'b',4},{'b',4},{'b',4},{'h',4},{'h',1},{'a',3},{'b',3},{'f',3},{'e',1},
{'e',3},{'C',1},{'D',3},{'E',3},{'a',3},{'F',1},{'a',4},{'F',4},{'a',4},{'a',4},{'b',4},{'b',2},{'D',4},{'F',4},{'D',4},{'E',2},
{'g',4},{'E',4},{'g',4},{'g',4},{'a',4},{'a',2},{'C',4},{'E',4},{'C',4},{'D',2},{'b',4},{'D',4},{'b',4},{'C',2},{'D',4},{'E',4},
{'a',4},{'C',4},{'E',4},{'F',1},{'g',4},{'a',4},{'C',4},{'C',3},{'b',2},{'b',4},{'C',4},{'D',4},{'f',4},{'e',2},{'e',4},{'f',4},
{'g',4},{'b',3},{'a',2},{'a',3},{'f',4},{'e',4},{'h',2},{'h',4},{'b',4},{'h',4},{'a',2},{'g',3},{'a',1}};
for(int i=0;i<45;i++)
tocar(Love_History[i]); //1ra parte
for(i=0;i<43;i++)
tocar(Love_History[i]); //2da parte
for(i=45;i<104;i++)
tocar(Love_History[i]); //3ra parte
for(i=0;i<43;i++)
tocar(Love_History[i]); //1ra parte
for(i=104;i<106;i++)
tocar(Love_History[i]); //4ta parte
}
void tocar(Nota &N)
{
int sonido,time;
if(!kbhit()){
switch(N.nota){
case 'c' :sonido = do ;break;
case 'd' :sonido = re ;break;
case 'e' :sonido = mi ;break;
case 'f' :sonido = fa ;break;
case 'g' :sonido = sol ;break;
case 'h' :sonido = sols ;break;
case 'a' :sonido = la ;break;
case 'b' :sonido = si ;break;
case 'C' :sonido = DO ;break;
case 'D' :sonido = RE ;break;
case 'E' :sonido = MI ;break;
case 'F' :sonido = FA ;break;
}
switch(N.tiempo){
case 1 :time = Redonda ;break;
case 2 :time = Blanca ;break;
case 3 :time = Negra ;break;
case 4 :time = Corchea ;break;
case 5 :time = Semicorchea ;break;
}
sound(sonido);
delay(time);
nosound();
delay(Espacio);
}
else
nosound();
}
Comentarios sobre la versión: Versión 1 (7)
y me parece que no es NADA GRACIOSO el estar atribuyendose
el código de este sencillo programa, Y ni siquiera me cita como parte
del mismo
Este Sujeto lo Unico que hizo fue añadir comentarios al comienzo
diciendo que él es el autor!!!
La Publicación Original fue hecha en 1999 en lo que antes
era el Portal CWorld lo que ahora es
http://www.mundovb.net/mundoc/music.htm
alli veran al verdadero Autor
Gracias por su Comprensión
PD: Gente Conchuda por mi madre!!!
Como bién dice Fernando, su programa fué publicado hace unos años en lo que antes era C WORLD (http://www.cworld.nu) y ahora es MundoC.net.
Un saludo,
Sergio Pacho
http://www.mundoc.net