找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

搜索
查看: 4688|回復(fù): 0
收起左側(cè)

用51單片機(jī)制作簡(jiǎn)易電子琴程序

[復(fù)制鏈接]
ID:511857 發(fā)表于 2019-10-1 15:58 | 顯示全部樓層 |閱讀模式
/*************************************************************
* 程序功能 : 對(duì)4×4矩陣鍵盤(pán)進(jìn)行掃描,顯示鍵值和輸出音響
**************************************************************/
#include <reg51.h>
#include <intrins.h>
#define uint unsigned int
#define uchar unsigned char

sbit SPK = P3^7;                  //P3.7外接揚(yáng)聲器
uint FreqTemp;
unsigned int code Freqtab[] = {     //定時(shí)半周期的初始值
     64021,64103,64260,64400,     //    低音3 4 5 6
     64524,64580,64684,64777,      // 低音7,中音1 2 3     
     64820,64898,64968,65030,          //中音4 5 6 7  
     65058,65110,65157,65178};     //高音1 2 3 4


uchar Keyscan(void)
{
     uchar i, j, temp, Buffer[4] = {0xfe, 0xfd, 0xfb, 0xf7};
     for(j = 0; j < 4; j++) {    //循環(huán)四次,掃描四行
       P2 = Buffer[j];           ///在低四位分別輸出一個(gè)低電平
       _nop_();
       temp = 0x80;              //    計(jì)劃先讀出P1.7位
       for(i = 0; i < 4; i++) { // 循環(huán)四次,檢查四列
         if(!(P2 & temp)) {      //從高四位,截取1位
           return (i + j * 4); // 返回取得的按鍵值
         }
         temp >>= 1;             //換右邊一位
     } }
     return 16;                  //沒(méi)有鍵按下就返回16
}

void Display(uchar k)
{
     P0 = ((k / 10) << 4) + (k % 10);
}

void Main(void)
{
     uchar Key_Value = 16, Key_Temp1, Key_Temp2;//     讀出的鍵值
     TMOD = 0x01;                   //T0定時(shí)方式1
     ET0 = 1;                       // 允許T0中斷
     EX0 = 1;                       //允許X0中斷
     EA = 1;
     while(1) {
       TR0 = 0;                     // 暫不發(fā)音
       Key_Temp1 = Keyscan();       // 讀入按鍵
       if(Key_Temp1 != 16) {        // 有鍵按下
         Display(Key_Value);        //顯示鍵值、延時(shí)消抖
         Key_Temp2 = Keyscan();     //再讀一次
         if (Key_Temp1 == Key_Temp2) {// 兩次相等
           Key_Value = Key_Temp1; //就確認(rèn)下來(lái)
           FreqTemp = Freqtab[Key_Value]; // 根據(jù)鍵值,取出定時(shí)半周期的初始值
           Display(Key_Value);      // 顯示
           TR0 = 1;                 // 啟動(dòng)定時(shí)器,發(fā)音
           while (Keyscan() < 16); //等待釋放
           SPK = 1;                 //    停止發(fā)音
} } } }
//===============================================                                                   
void T0_INT(void) interrupt 1
{
     TL0 = FreqTemp;                //載入定時(shí)半周期的初始值
     TH0 = FreqTemp >> 8;
     SPK = ~SPK;                        //發(fā)音
}
//===============================================

電子琴.zip

73.8 KB, 下載次數(shù): 24, 下載積分: 黑幣 -5

回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表