/*

Utilizando as funções:
                    tone( pino , frequencia );
                    noTone( pino );


                   _ __  _  __ _ _ __   ___  
                  | '_ \| |/ _` | '_ \ / _ \ 
                  | |_) | | (_| | | | | (_) |
                  | .__/|_|\__,_|_| |_|\___/ 
                  | |                        
                  |_| 

                                 |--------- CENTRAL -----------|
                                 
         CSL DSL     FSL GSL ASL     CS  DS      FS  GS  AS      CSH DSH     FSH GSH ASH
         _   _       _   _   _       _   _       _   _   _       _   _       _   _   _         
     ___//|_//|_____//|_//|_//|_____//|_//|_____//|_//|_//|_ ___//|_//|_____//|_//|_//|__    
    /  /// ///  /  /// /// ///  /  /// ///  /  /// /// ///  /  /// ///  /  /// /// ///  /|
   /  ||/ ||/  /  ||/ ||/ ||/  /  ||/ ||/  /  ||/ ||/ ||/  /  ||/ ||/  /  ||/ ||/ ||/  / /
  /___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/___/ /
  |___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|___|/
   CL  DL  EL  FL  GL  AL   BL  C   D   E   F   G   A   B  CH  DH  EH  FH  GH  AH  BH
                                                   440 
                                                    Hz
 
 CL  = 131 Hz
 CLS = 139 Hz
 DL  = 147 Hz
 DLS = 156 Hz
 EL  = 165 Hz
 FL  = 175 Hz
 FLS = 185 Hz
 GL  = 196 Hz
 GLS = 208 Hz
 AL  = 220 Hz
 ALS = 233 Hz 
 BL  = 247 Hz
 C   = 261 Hz
 CS  = 277 Hz
 D   = 294 Hz
 DS  = 311 Hz
 E   = 329 Hz
 F   = 349 Hz
 FS  = 370 Hz
 G   = 391 Hz
 GS  = 415 Hz
 A   = 440 Hz
 AS  = 455 Hz
 B   = 466 Hz
 CH  = 523 Hz
 CSH = 554 Hz
 DH  = 587 Hz
 DSH = 622 Hz
 EH  = 659 Hz
 FH  = 698 Hz
 FSH = 740 Hz
 GH  = 784 Hz
 GSH = 830 Hz
 AH  = 880 Hz
 ASH = 910 Hz 
 BH  = 932 Hz
 
*/

//============== NOMEAR PINOS ===============
#define BOT 4
#define BUZZ 8
 
//=========== INCLUIR BIBLIOTECAS ===========


//=========== VARIÁVEIS E TABELAS ===========

 
#define C    261
#define CS   277
#define D    294
#define DS   311
#define E    329
#define F    349
#define FS   370
#define G    391
#define GS   415
#define A    440 //CENTRAL:A4
#define AS   455
#define B    466
#define CH   523
#define CSH  554
#define DH   587
#define DSH  622
#define EH   659
#define FH   698
#define FSH  740
#define GH   784
#define GSH  830
#define AH   880
#define ASH  910
#define BH   932


//================ SUB-ROTINAS ==============




//================== SETUP ==================


void setup() {

pinMode(4, INPUT);
pinMode(8, OUTPUT);
  
//---------- CONDIÇÕES INICIAIS ----------


 
}//fecha void setup()



//============== LOOP INFINITO ===============

void loop() {
 
if(digitalRead(BOT)==1) {
tone(BUZZ,A);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,F);delay(350);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(1450);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,F);delay(350);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(150);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(650);noTone(BUZZ);delay(25);
noTone(BUZZ);delay(500);
tone(BUZZ,EH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,EH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,EH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,FH);delay(350);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(150);noTone(BUZZ);delay(25);
tone(BUZZ,GS);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,F);delay(350);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(150);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(650);noTone(BUZZ);delay(25);
noTone(BUZZ);delay(500);
tone(BUZZ,AH);delay(650);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(300);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(150);noTone(BUZZ);delay(25);
tone(BUZZ,AH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,GSH);delay(325);noTone(BUZZ);delay(25);
tone(BUZZ,GH);delay(175);noTone(BUZZ);delay(25);
tone(BUZZ,FSH);delay(125);noTone(BUZZ);delay(25);
tone(BUZZ,FH);delay(125);noTone(BUZZ);delay(25);
noTone(BUZZ);delay(325);
tone(BUZZ,AS);delay(250);noTone(BUZZ);delay(25);
tone(BUZZ,DSH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,DH);delay(325);noTone(BUZZ);delay(25);
tone(BUZZ,CSH);delay(175);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(125);noTone(BUZZ);delay(25);
tone(BUZZ,B);delay(125);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(250);noTone(BUZZ);delay(25);
noTone(BUZZ);delay(350);
tone(BUZZ,F);delay(250);noTone(BUZZ);delay(25);
tone(BUZZ,GS);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,F);delay(350);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(125);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(500);noTone(BUZZ);delay(25);
tone(BUZZ,A);delay(375);noTone(BUZZ);delay(25);
tone(BUZZ,CH);delay(125);noTone(BUZZ);delay(25);
tone(BUZZ,EH);delay(650);noTone(BUZZ);delay(25);
delay(500);}
if(digitalRead(BOT)==0) {noTone(BUZZ);}

}//fecha void loop()