// Himno de la Alegria Mozart

int pinBuzzer = 6;
int Do = 523.25;
int DoS = 554.37;
int Re = 587.33;
int ReS = 622.25;
int Mi = 659.26;
int Fa = 698.46;
int FaS = 739.99;
int Sol = 783.99;
int SolS = 830.61;
int La = 880;
int LaS = 932.33;
int Si = 987.77;
int Pausa = 0;

int redonda = 250; // 4000
int blanca = 125; // 2000
int negra = 62; // 1000
 int corchea = 31; // 500
int semicorchea = 15; // 250
int fusa = 7;   // 125
int semifusa = 3; // 62
int retardo = 100 ; // 750

 
void nota(int nota, int duracion){  //Básicamente estamos creando una función que no retorna nada llamada nota
 tone(pinBuzzer,nota, duracion);  // donde tiene que llevar dos datos de entrada, uno para indicarle la nota y
  delay(duracion);                     // otra para indicarle la duracion.Ya dentro de la función simplemente sustituimos
 noTone(pinBuzzer);                 // los valores para reproducir la nota con esa duracion, hacemos luego el retardo,
 delay(duracion);                      // detenemos la reproduccio, y agregamos otro retardo.

}
 
void setup() {
 
}
 
void loop() {
  
  //  Primer compas 
  nota(Mi, negra);
  nota(Mi, negra);
  nota(Fa, negra);
  nota(Sol, negra);
//  Segundo compas 
  nota(Sol, negra);
  nota(Fa, negra);
  nota(Mi, negra);
  nota(Re, negra);
  //  Tercer compas 
 nota(Do, negra);
  nota(Do, negra);
  nota(Re, negra);
  nota(Mi, negra);
//  Cuarto compas 
   nota(Mi, negra);
  nota(Pausa,corchea);
  nota(Re, corchea);
  nota(Re, blanca);
 //  Quinto compas 
  nota(Mi, negra);
  nota(Mi, negra);
  nota(Fa, negra);
  nota(Sol, negra);
 //  Sexto compas 
  nota(Sol, negra);
  nota(Fa, negra);
  nota(Mi, negra);
  nota(Re, negra);
//  Septimo compas 
   nota(Do, negra);
  nota(Do, negra);
  nota(Re, negra);
  nota(Mi, negra);
//  Octavo compas 
 nota(Re, negra);
  nota(Pausa, corchea);
  nota(Do, corchea);
  nota(Do, blanca);
//  Noveno compas 
  nota(Re, negra);
  nota(Re, negra);
  nota(Mi, negra);
  nota(Do, negra);
  //  Decimo compas 
  nota(Re, negra);
  nota(Mi, corchea);  
  nota(Fa, corchea);  
  nota(Mi, negra);
  nota(Do, negra);
   //  Decimo Primer compas 
  nota(Re, negra);
  nota(Mi, corchea);  
  nota(Fa, corchea);  
  nota(Mi, negra);
  nota(Re, negra);
   //  Decimo Segundo compas 
  nota(Do, negra);
  nota(Re, negra);  
  nota(Sol, blanca);  
  //  Decimo Tercer compas 
  nota(Mi, negra);
  nota(Mi, negra);
  nota(Fa, negra);
  nota(Sol, negra);
  // Decimo Cuarto Compas
  nota(Sol, negra);
  nota(Fa, negra);
  nota(Mi, negra);
  nota(Re, negra);
    //  Decimo quinto  compas 
 nota(Do, negra);
  nota(Do, negra);
  nota(Re, negra);
  nota(Mi, negra);
  //  Decimo Sexto Compas 
  nota(Re, negra);
  nota(Pausa, corchea);
  nota(Do, corchea);
  nota(Do, blanca);

delay(retardo);
}