// Connections
sbit LED    at LATA4_bit;  // Dahili LED RA4 Pinine Bagli
sbit BUZZER at LATE1_bit;  // Buzzer D1 Pinine Bagli

// TTP223B Baglantilari
sbit DO  at RD0_bit;  // DO  Dokunmatik Butonu D0 Pinine Bagli
sbit RE  at RD1_bit;  // RE  Dokunmatik Butonu D1 Pinine Bagli
sbit MI  at RD2_bit;  // MI  Dokunmatik Butonu D2 Pinine Bagli
sbit FA  at RD3_bit;  // FA  Dokunmatik Butonu D3 Pinine Bagli
sbit SOL at RD4_bit;  // SOL Dokunmatik Butonu D4 Pinine Bagli
sbit LA  at RD5_bit;  // LA  Dokunmatik Butonu D5 Pinine Bagli
sbit SI  at RD6_bit;  // SI  Dokunmatik Butonu D6 Pinine Bagli
sbit JB  at RD7_bit;  // JB  Dokunmatik Butonu D7 Pinine Bagli

// Nota Listesi
const unsigned int _DO   = 523;   // DO  = c
const unsigned int _RE   = 587;   // RE  = d
const unsigned int _MI   = 659;   // MI  = e
const unsigned int _FA   = 698;   // FA  = f
const unsigned int _SOL  = 784;   // SOL = g
const unsigned int _LA   = 880;   // LA  = a
const unsigned int _SI   = 987;   // SI  = b

// JingleBells Melodisi
char JingleBells[]="2e2e3e1 2e2e3e1 2e2g3c1d4e4 2f2f3f0 1f2f2e2e0 1e1e2g2g2f2d4c4 ";

void PlayMelody(char *melody, unsigned int tempo){
  unsigned int i;
  unsigned int frequency;
  unsigned short beats;
  
  for(i=0; melody[i]!='\0'; i+=2){      // i=0'dan basla ve melody[i] degeri \0 (dizi sonu karakteri) degilse i'yi 2 arttir
    // Vurus secimi
    beats=melody[i]-48;                 // 0 karakterinin tamsayi karsiligi 48'dir. (0->48, 1->49, 2->50,...)
                                        // Karakter formundaki sayisal degerlerden 48 çikararak
                                        // tamsayi formuna dönüstürebiliriz.
    // Frekans secimi
    switch(melody[i+1]){
      case 'c': frequency=_DO;  break;
      case 'd': frequency=_RE;  break;
      case 'e': frequency=_MI;  break;
      case 'f': frequency=_FA;  break;
      case 'g': frequency=_SOL; break;
      case 'a': frequency=_LA;  break;
      case 'b': frequency=_SI;  break;
    }
    
    Sound_Play(frequency, tempo*beats); // Belirlenen frekansta, belirlenen tempoda ve belirlenen vurus süresi kadar ses üret.
    vdelay_ms(tempo/5);                 // Tempo süresinin %20'si kadar bir süre bekleme
  }
}

void main() {
  // Port Giris-Çikis Seçimi (0:Çikis, 1:Giris)
  TRISA=0b00000000;// [][][][LED][][][][]
  TRISB=0b00000000;// [][][][][][][][]
  TRISC=0b00000000;// [][][][][][][][]
  TRISD=0b11111111;// [DO][RE][MI][FA][SOL][LA][SI][OTO]
  TRISE=0b00000000;// [][][][][][][BUZZER][]

  // Port Analog-Dijital Giris Seçimi (0:Dijital, 1:Analog)
  ANSELA=0b00000000;// [][][][][][][][]
  ANSELB=0b00000000;// [][][][][][][][]
  ANSELC=0b00000000;// [][][][][][][][]
  ANSELD=0b00000000;// [][][][][][][][]
  ANSELE=0b00000000;// [][][][][][][][]

  // Port Temizleme
  LATA=0x00;
  LATB=0x00;
  LATC=0x00;
  LATD=0x00;
  LATE=0x00;

  Sound_Init(&PORTE, 1);  // Buzzer'i Hazirla
  
  // Sonsuz Dongu
  while(1){
         if(DO)  Sound_Play(_DO,  100);           // DO  notasini 100ms çal
    else if(RE)  Sound_Play(_RE,  100);           // RE  notasini 100ms çal
    else if(MI)  Sound_Play(_MI,  100);           // MI  notasini 100ms çal
    else if(FA)  Sound_Play(_FA,  100);           // FA  notasini 100ms çal
    else if(SOL) Sound_Play(_SOL, 100);           // SOL notasini 100ms çal
    else if(LA)  Sound_Play(_LA,  100);           // LA  notasini 100ms çal
    else if(SI)  Sound_Play(_SI,  100);           // SI  notasini 100ms çal
    else if(JB)  PlayMelody(JingleBells, 150);    // JingleBells melodisini 150ms'lik tempo ile çal

  }
}