標題: 單片機4*4矩陣鍵盤電子琴仿真和源程序 [打印本頁]
作者: 1024793563    時間: 2018-9-23 18:54
標題: 單片機4*4矩陣鍵盤電子琴仿真和源程序
4x4電子琴 發(fā)出不同的聲音。學校要求做無聊就做了.....
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）


Altium Designer畫的原理圖和PCB圖如下：(51hei附件中可下載工程文件)


單片機源程序如下:
  1. #include <reg51.h>
  2. #define uint unsigned int
  3. #define uchar unsigned char
  4. #define output P1
  5. #define input P1
  6. enum KEY{key0,key1,key2,key3,key4,key5,key6,key7,key8,key9,key10,key11,key12,key13,key14,key15};
  7. unsigned int code Freqtab[] = {        
  8.      64021,64103,64260,64400,     
  9.      64524,64580,64684,64777,      
  10.      64820,64898,64968,65030,      
  11.      65058,65110,65157,65178};     
  12. uint FreqTemp;
  13. sbit SPEAK = P3^7;
  14. void delay1ms(uint n)   
  15. {
  16.     uint a,b,c;
  17.         for(c=n;c>0;c--)
  18.             for(b=199;b>0;b--)
  19.                 for(a=1;a>0;a--);
  20. }

  22. uint key_input(void)
  23. {
  24.         uchar temp1,temp2;                       
  25.         uchar num = 16;                          
  26.         output = 0x0f;               
  27.            temp1 = input;                       
  28.         if(0x0f != temp1)          
  29.         {                                          
  30.                 delay1ms(5);               
  31.                 temp1 = input;                       
  32.                 if(0x0f != temp1)                       
  33.                 {
  34.                         temp1 = temp1 & 0x0f;       
  35.                         output = 0xf0;                       
  36.                         delay1ms(1);                       
  37.                         temp2 = input;                       
  38.                         temp2 = temp2 & 0xf0;       
  39.                         temp1 = temp1 | temp2;       
  40.                 }
  41.         }
  42.         switch(temp1)
  43.         {
  44.                 case 0xee:num=0;break;  
  45.         case 0xde:num=1;break;  
  46.         case 0xbe:num=2;break;   
  47.         case 0x7e:num=3;break;
  48.                 case 0xed:num=4;break;               
  49.         case 0xdd:num=5;break;           
  50.         case 0xbd:num=6;break;            
  51.         case 0x7d:num=7;break;   
  52.                 case 0xeb:num=8;break;   
  53.         case 0xdb:num=9;break;   
  54.         case 0xbb:num=10;break;   
  55.         case 0x7b:num=11;break;   
  56.                 case 0xe7:num=12;break;   
  57.         case 0xd7:num=13;break;   
  58.         case 0xb7:num=14;break;   
  59.         case 0x77:num=15;break;      
  60.                 default:break;
  61.         }
  62.         return num;
  63. }
  64. void T0_INT(void) interrupt 1
  65. {
  66.      TL0 = FreqTemp;               
  67.      TH0 = FreqTemp >> 8;
  68.      SPEAK = ~SPEAK;                  
  69. }
  70. int main()
  71. {
  72.         TMOD = 0X01;               
  73.         EA = 1;
  74.         ET0 = 1;
  75.         TR0 = 0;
  76.         while(1)
  77.         {
  78.                 uint num,temp;
  79.                 num = key_input();
  80.                 temp = num;
  81.         if(16 != num)
  82.                 {
  83.                         FreqTemp = Freqtab[num];
  84.                         TR0 = 1;
  85.                         while(0xf0 != output);       
  86.                         TR0 = 0;
  87.                         SPEAK = 1;       
  88.                 }               
  89.         }
  90.         return 0;
  91. }
復制代碼


所有資料51hei提供下載:
電子琴30.rar (91.92 KB, 下載次數(shù): 76)


作者: hhhhhhhh974    時間: 2020-1-5 22:13
你這個proteus不行啊



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1