PIANO ELECTRÓNICO CON PIC16F877A

MATERIALES

• 
  
•      pic16f877a
•     cables
•    pulsadores
•   resistencias
•    parlante
•      potenciómetro
•      protoboar
•       LCD

PROGRAMACION  EN MIKROC

        void main()

{  unsigned short leer;

     sound_init(&portd,0);

     trisb=0x00;

     trisc=0xff;

     portd=0;

lcd_config(&portb,1,0,2,7,6,5,4);

lcd_cmd(lcd_clear);

lcd_cmd(lcd_cursor_off);

lcd_out(1,6,"NOTAS !");

   x8:

   leer=portc;

   leer=leer & 0xff;

  

   if(leer==0x01)

   goto x1;

   if(leer==0x02)

   goto x2;

   if(leer==0x04)

   goto x3;

   if(leer==0x08)

   goto x4;

   if(leer==0x10)

   goto x5;

   if(leer==0x20)

   goto x6;

   if(leer==0x40)

   goto x7;

   if(leer==0x80)

   goto x9;

   goto x8;

  

     x1:

     sound_play (261,250);// do

     lcd_out(2,6,"DO !");

     goto x8;

     x2:

     sound_play(294,250);// re

     lcd_out(2,6,"RE !");

     goto x8;

     x3:

     sound_play(330,250);//mi

     lcd_out(2,6,"MI !");

     goto x8;

     x4:

     sound_play(350,250);//fa

     lcd_out(2,6,"FA !");

     goto x8;

     x5:

     sound_play(392,250);//sol

     lcd_out(2,6,"SOL ");

     goto x8;

     x6:

     sound_play(440,250);//la

     lcd_out(2,6,"LA !");

     goto x8;

     x7:

     sound_play(493,250);//si

     lcd_out(2,6,"SI !");

     goto x8;

     x9:

         lcd_out(1,6,"ESTALIN");

      sound_play (329,800);

       sound_play(440,800);

       sound_play(415,800);

      sound_play(440,800);

      sound_play(493,800);

      sound_play(523,800);

      sound_play(443,800);

      sound_play (523,800);

       sound_play(293,800);

       sound_play(329,800);

      

      

      sound_play(392,800);

      sound_play(329,800);

      sound_play(440,800);

      sound_play(392,800);

          sound_play (329,800);

       sound_play(329,800);

       sound_play(393,800);

      sound_play(523,800);

      sound_play(293,800);

      sound_play(523,800);

      sound_play(440,800);

     

     

          sound_play (329,800);

       sound_play(440,800);

       sound_play(415,800);

      sound_play(440,800);

      sound_play(443,800);

      sound_play(523,800);

      sound_play(443,800);

        sound_play (523,800);

       sound_play(293,800);

       sound_play(329,800);

      

      

      sound_play(392,800);

      sound_play(329,800);

      sound_play(440,800);

      sound_play(392,800);

        sound_play (329,800);

       sound_play(329,800);

       sound_play(393,800);

      sound_play(593,800);

      sound_play(293,800);

      sound_play(523,800);

      sound_play(440,800);

     

     

       sound_play(329,800);

       sound_play(440,800);

      sound_play(415,800);

      sound_play(440,800);

      sound_play(415,800);

      sound_play(440,800);

       sound_play(415,800);

       sound_play(440,800);

      sound_play(443,800);

      sound_play(523,800);

     

      

      sound_play(523,800);

      sound_play(440,800);

        sound_play (392,800);

       sound_play(440,800);

       sound_play(392,800);

      sound_play(329,800);

        goto x8;

}

                                                                  PROTEUS