單片機電子琴自動演奏簡短程序

1.單片機簡易電子琴程序

;R5音調延時值；R6從內存中讀到的數據 ；9H--TABLE1~11數據；20H--TL1初值；21H--TH1初值；22H--修正后的按鍵值；30H--TABLE1~11地址計數器 ；0AH--彈奏音調延時值；0BH--內存地址；0CH--讀寫到內存的數據；0DH--按鍵值；0EH--內存器件地址 PORT1 EQU P1 PORT2 EQU P2 SCK BIT P3.0 SDA BIT P3.1 ORG 0H SJMP MAIN ORG 0BH LJMP TIME0 ORG 1BH LJMP TIME1 ORG 30H ;-------------------------------------------------------------------------- MAIN: CLR TR0 CLR TR1 MOV SP,#4FH MOV R0,#100 CLR P3.4 LCALL DELAY5 MOV 9H,#0 MOV 0AH,#0 MOV 0BH,#0 MOV 0CH,#0 MOV TMOD,#11H MOV IE,#8AH MOV 0DH,#88H ；------------掃描放歌和彈奏建------------------------------------ XIAN: JB P3.2,QT1 ；沒按下放歌建跳qt1 SETB P3.4 ；按下放歌建LED發光 LCALL DELAY1 LCALL DELAY1 JNB P3.2，$ ；放歌建沒釋放原地等待 LCALL DELAY1 LCALL DELAY1 Q1: LCALL SAO CJNE R0,#0,Q11 SJMP Q1 Q11: LCALL TRANF JZ MAIN MOV 0DH,A ;0DH=按鍵值 LJMP SING0 QT1: JB P3.3,QT4 ；沒按彈奏建跳QT3 SETB P3.4 LCALL DELAY1 LCALL DELAY1 JNB P3.3，$ ；彈奏鍵沒釋放原地等待 LCALL DELAY1 LCALL DELAY1 QT2: LCALL SAO CJNE R0,#0,QT3 SJMP QT2 QT3: LCALL TRANF CJNE A,#0BH,QT11 ；若按鍵值=11轉（B鍵）MAIN;!=11鍵轉QT11 LJMP MAIN QT11: JC MAIN ；若按鍵值<11轉MAIN;>11繼續 CJNE A,#0CH,M4 ；若按鍵值！=12轉M1;=12(C鍵)繼續 ；即C鍵沒按下轉M1 MOV PORT1,#11101111B JNB P1.3，$ ；若C鍵沒釋放原地等待 MOV 0BH,#0 LJMP LOOP ；輸入樂曲存儲并演奏 M4: LCALL DELAY1 LCALL DELAY1 LCALL RWX80 ；擦寫內存數據；全部為1 LJMP MAIN QT4: LJMP XIAN ；返回重新掃描放歌和彈奏建 ；-------------------------------------------------------------------------- RWX80: CJNE A,#0DH,MM2 ;A!=13(D鍵)轉M2；若為D鍵繼續；D鍵沒按下轉M2 MOV 0EH,#0A2H ;0EH=162=10100010B;0EH為24c16頁地址 SJMP MM MM2: CJNE A,#0EH,MM3 ;A!=14(E鍵)轉M3;。

2.用單片機實現8個按鍵的簡單電子琴

說明：由單片機的p1.0口輸出音頻信號，在p1.0口接三極管以驅動喇叭，最好用兩個三極管構成達林頓結構。p2口連接8個一端接地的按鍵作為輸入，當然也需要連接8只10k的電阻至電源作為上拉電阻。p2.0~p2.7依次為do、re、mi、fa、so、la、si、do（高）音。

buzz equ p1.0

org 0000h

ljmp main

org 000bh

ljmp int_t0

org 0100h

main:

mov sp,#60h ；初始化堆棧指針

mov 30h,#00 ；定時器初值清零

mov 31h,#00

mov p1,#0ffh ；設置p1口為輸入模式

mov tmod,#01h ；設置定時器0為工作模式1

setb et0 ；開定時器0中斷

setb ea ；開總中斷

clr tr0 ；關閉定時器0

start:

mov r0,p2

cjne r0,#0ffh,key1 ；鍵盤掃描

clr tr0

sjmp start

key1:

cjne r0,#0feh,key2 ;k1鍵按下

mov 30h,#0fbh ；設置音階1

mov 31h,#0e9h

ljmp set_timer

key2:

cjne r0,#0fdh,key3 ;k2鍵按下

mov 30h,#0fch ；設置音階2

mov 31h,#5ch

ljmp set_timer

key3:

cjne r0,#0fbh,key4 ;k3鍵按下

mov 30h,#0fch ；設置音階3

mov 31h,#0c1h

ljmp set_timer

key4:

cjne r0,#0f7h,key5 ;k4鍵按下

mov 30h,#0fch ；設置音階4

mov 31h,#0efh

ljmp set_timer

key5:

cjne r0,#0efh,key6 ;k5鍵按下

mov 30h,#0fdh ；設置音階5

mov 31h,#045h

ljmp set_timer

key6:

cjne r0,#0dfh,key7 ;k6鍵按下

mov 30h,#0fdh ；設置音階6

mov 31h,#92h

ljmp set_timer

key7:

cjne r0,#0bfh,key8 ;k7鍵按下

mov 30h,#0fdh ；設置音階7

mov 31h,#0d6h

ljmp set_timer

key8:

cjne r0,#7fh,nokey ;k8按下

mov 30h,#0fdh ；設置音階8

mov 31h,#0fbh

set_timer:

setb tr0 ；發聲

sjmp start

nokey:

clr tr0 ；無鍵按下

sjmp start

int_t0: ;t0中斷服務程序

mov th0,30h ；定時器賦初值

mov tl0,31h

cpl buzz ；輸出方波

reti

end

這是一款用51單片機控制的玩具電子琴，用到了51的定時器和鍵盤技術，很適合初學者學習制作。

我還有一個更復雜的帶播放、歌譜的程序，由于程序超過10000字在這里不能提交。有需要的話給我郵箱，我可以給你發過去

3.急需單片機—簡易電子琴的C語言程序,希望各位大蝦幫幫忙,小女非

22. 電子琴 1. 實驗任務 （1. 由4X4組成16個按鈕矩陣，設計成16個音。

（2. 可隨意彈奏想要表達的音樂。 2. 電路原理圖 圖4.22.1 3. 系統板硬件連線 （1. 把“單片機系統”區域中的P1.0端口用導線連接到“音頻放大模塊”區域中的SPK IN端口上； （2. 把“單片機系統“區域中的P3.0-P3.7端口用8芯排線連接到“4X4行列式鍵盤”區域中的C1-C4 R1-R4端口上； 4. 相關程序內容 （1. 4X4行列式鍵盤識別； （2. 音樂產生的方法； 一首音樂是許多不同的音階組成的，而每個音階對應著不同的頻率，這樣我們就可以利用不同的頻率的組合，即可構成我們所想要的音樂了，當然對于單片機來產生不同的頻率非常方便，我們可以利用單片機的定時/計數器T0來產生這樣方波頻率信號，因此，我們只要把一首歌曲的音階對應頻率關系弄正確即可。

現在以單片機12MHZ晶振為例，例出高中低音符與單片機計數T0相關的計數值如下表所示 音符 頻率（HZ） 簡譜碼（T值） 音符 頻率（HZ） 簡譜碼（T值） 低1 DO 262 63628 # 4 FA# 740 64860#1 DO# 277 63731 中 5 SO 784 64898 低2 RE 294 63835 # 5 SO# 831 64934#2 RE# 311 63928 中 6 LA 880 64968 低 3 M 330 64021 # 6 932 64994 低 4 FA 349 64103 中 7 SI 988 65030# 4 FA# 370 64185 高 1 DO 1046 65058 低 5 SO 392 64260 # 1 DO# 1109 65085# 5 SO# 415 64331 高 2 RE 1175 65110 低 6 LA 440 64400 # 2 RE# 1245 65134# 6 466 64463 高 3 M 1318 65157 低 7 SI 494 64524 高 4 FA 1397 65178 中 1 DO 523 64580 # 4 FA# 1480 65198# 1 DO# 554 64633 高 5 SO 1568 65217 中 2 RE 587 64684 # 5 SO# 1661 65235# 2 RE# 622 64732 高 6 LA 1760 65252 中 3 M 659 64777 # 6 1865 65268 中 4 FA 698 64820 高 7 SI 1967 65283 下面我們要為這個音符建立一個表格，有助于單片機通過查表的方式來獲得相應的數據 低音0-19之間，中音在20-39之間，高音在40-59之間 TABLE: DW 0,63628,63835,64021,64103,64260,64400,64524,0,0 DW 0,63731,63928,0,64185,64331,64463,0,0,0 DW 0,64580,64684,64777,64820,64898,64968,65030,0,0 DW 0,64633,64732,0,64860,64934,64994,0,0,0 DW 0,65058,65110,65157,65178,65217,65252,65283,0,0 DW 0,65085,65134,0,65198,65235,65268,0,0,0 DW 0 2、音樂的音拍，一個節拍為單位（C調） 曲調值 DELAY 曲調值 DELAY 調4/4 125ms 調4/4 62ms 調3/4 187ms 調3/4 94ms 調2/4 250ms 調2/4 125ms 對于不同的曲調我們也可以用單片機的另外一個定時/計數器來完成。 下面就用AT89S51單片機產生一首“生日快樂”歌曲來說明單片機如何產生的。

在這個程序中用到了兩個定時/計數器來完成的。其中T0用來產生音符頻率，T1用來產生音拍。

5. 程序框圖 貼不了.7. C語言源程序#include unsigned char code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71}; unsigned char temp; unsigned char key; unsigned char i,j; unsigned char STH0; unsigned char STL0; unsigned int code tab[]={64021,64103,64260,64400,64524,64580,64684,64777,64820,64898,64968,65030,65058,65110,65157,65178}; void main(void) { TMOD=0x01; ET0=1; EA=1; while(1) { P3=0xff; P3_4=0; temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { for(i=50;i>0;i--) for(j=200;j>0;j--); temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { temp=P3; temp=temp & 0x0f; switch(temp) { case 0x0e:key=0; break; case 0x0d:key=1; break; case 0x0b:key=2; break; case 0x07:key=3; break; } temp=P3; P1_0=~P1_0; P0=table[key]; STH0=tab[key]/256; STL0=tab[key]%256; TR0=1; temp=temp & 0x0f; while(temp!=0x0f) { temp=P3; temp=temp & 0x0f; } TR0=0; } } P3=0xff; P3_5=0; temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { for(i=50;i>0;i--) for(j=200;j>0;j--); temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { temp=P3; temp=temp & 0x0f; switch(temp) { case 0x0e:key=4; break; case 0x0d:key=5; break; case 0x0b:key=6; break; case 0x07:key=7; break; } temp=P3; P1_0=~P1_0; P0=table[key]; STH0=tab[key]/256; STL0=tab[key]%256; TR0=1; temp=temp & 0x0f; while(temp!=0x0f) { temp=P3; temp=temp & 0x0f; } TR0=0; } } P3=0xff; P3_6=0; temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { for(i=50;i>0;i--) for(j=200;j>0;j--); temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { temp=P3; temp=temp & 0x0f; switch(temp) { case 0x0e:key=8; break; case 0x0d:key=9; break; case 0x0b:key=10; break; case 0x07:key=11; break; } temp=P3; P1_0=~P1_0; P0=table[key]; STH0=tab[key]/256; STL0=tab[key]%256; TR0=1; temp=temp & 0x0f; while(temp!=0x0f) { temp=P3; temp=temp & 0x0f; } TR0=0; } } P3=0xff; P3_7=0; temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { for(i=50;i>0;i--) for(j=200;j>0;j--); temp=P3; temp=temp & 0x0f; if (temp!=0x0f) { temp=P3; temp=temp & 0x0f; switch(temp) { case 0x0e:key=12; break; case 0x0d:key=13; break; case 0x0b:。

4.求簡易電子琴程序（c51編寫）

軟件是keil2.0的

#include"reg51.h"

unsigned char i,j,temp

sbit p3_3=p3^3

void d0();

void ra();

void mi();

void fa();

void so();

void la();

void xi();

void hd0();

void music();

main()

{ie=0;

tmod=0x10;

tr1=1;

while(1)

{do

{p1=0xff;

temp=p1;

temp=~temp

}:

while(temp==0x00)

switch(temp)

{case 0x01:d0();break;

case 0x02:ra();break

case 0x04:mi();break;

case 0x08:fa();break

case 0x10:so();break

case 0x20:la();break

case 0x40:xi();break

default:hd0();break

}

music()

}

}

void d0()

{i=0x21;

j=0xf9

}

void ra()

{i=0xe0;

j=0xf9

}

void mi()

{i=0x8b

j=0xfa;

}

void fa()

{i=0xd7

j=0xfa;

}

void so()

{i=0x67;

j=0xfb

}

void la()

{i=0xe8;

j=0xfb

}

void xi()

{i=0x5b

j=0xfc

}

void hd0()

{j=0x8e;

j=0xfc

}

void music()

{tl1=i

th1=j;

do

{while(tf1!=1)

tf1=0

tl1=i;th1=j

p3_3=~p3_3

temp=~p1

}

while(temp!=0x00)

p3_3=1

}

5.單片機簡單的電子琴程序（C語言的）,需要用4*4按鍵控制,簡單點

#include unsigned char temp;unsigned char key;unsigned char i,j;unsigned char STH0;unsigned char STL0;unsigned int code tab[]={64021,64103,64260,64400,64524,64580,64684,64777,64820,64898,64968,65030,65058,65110,65157,65178};void main(void){TMOD=0x01;ET0=1;EA=1;while(1){P3=0xff； //將P3口取出P3_4=0； //使P3_4為低電平，這樣可以判斷第一豎排有沒有鍵按下temp=P3;temp=temp & 0x0f; if (temp!=0x0f) //有鍵按下{for(i=50;i>0;i--)for(j=200;j>0;j--)； //延時temp=P3; temp=temp & 0x0f;if (temp!=0x0f) //再判斷是否有鍵按下{temp=P3;temp=temp & 0x0f;switch(temp) //判斷是哪個鍵按下{case 0x0e:key=0;break;case 0x0d:key=1;break;case 0x0b:key=2;break;case 0x07:key=3;break;}temp=P3;P1_0=~P1_0;P0=table[key];STH0=tab[key]/256； //找出鍵對應的頻率的時間，作為定時器中斷初始值STL0=tab[key]%256;TR0=1;temp=temp & 0x0f;while(temp!=0x0f){temp=P3;temp=temp & 0x0f;}TR0=0;}}P3=0xff;P3_5=0； //跟上面差不多，現在是判斷第二排的按鍵temp=P3;temp=temp & 0x0f;if (temp!=0x0f){for(i=50;i>0;i--)for(j=200;j>0;j--);temp=P3;temp=temp & 0x0f;if (temp!=0x0f){temp=P3;temp=temp & 0x0f;switch(temp){case 0x0e:key=4;break;case 0x0d:key=5;break;case 0x0b:key=6;break;case 0x07:key=7;break;}temp=P3;P1_0=~P1_0;P0=table[key];STH0=tab[key]/256;STL0=tab[key]%256;TR0=1;temp=temp & 0x0f;while(temp!=0x0f){temp=P3;temp=temp & 0x0f;}TR0=0;}}P3=0xff;P3_6=0;temp=P3;temp=temp & 0x0f;if (temp!=0x0f){for(i=50;i>0;i--)for(j=200;j>0;j--);temp=P3;temp=temp & 0x0f;if (temp!=0x0f){temp=P3;temp=temp & 0x0f;switch(temp){case 0x0e:key=8;break;case 0x0d:key=9;break;case 0x0b:key=10;break;case 0x07:key=11;break;}temp=P3;P1_0=~P1_0;P0=table[key];STH0=tab[key]/256;STL0=tab[key]%256;TR0=1;temp=temp & 0x0f;while(temp!=0x0f){temp=P3;temp=temp & 0x0f;}TR0=0;}}P3=0xff;P3_7=0;temp=P3;temp=temp & 0x0f;if (temp!=0x0f){for(i=50;i>0;i--)for(j=200;j>0;j--);temp=P3;temp=temp & 0x0f;if (temp!=0x0f){temp=P3;temp=temp & 0x0f;switch(temp){case 0x0e:key=12;break;case 0x0d:key=13;break;case 0x0b:key=14;break;case 0x07:key=15;break;}temp=P3;P1_0=~P1_0;P0=table[key];STH0=tab[key]/256;STL0=tab[key]%256;TR0=1;temp=temp & 0x0f;while(temp!=0x0f){temp=P3;temp=temp & 0x0f;}TR0=0;}}}}void t0(void) interrupt 1 using 0{TH0=STH0;TL0=STL0;P1_0=~P1_0；}電路圖和原理我都有，剛好我也在做這個。

你自己看下程序吧，我也不愿意注釋。 這個是能發出16個音符聲音的，你寫的AD89S52，應該是AT89S52吧。

6.單片機簡易8鍵電子琴程序

keybuf equ 30h sth0 equ 31h stl0 equ 32h temp equ 33h org 00h ljmp start org 0bh ljmp int_t0 start: mov tmod,#01h setb et0 setb ea wait: mov p2,#0ffh clr p2.4 mov a,p2 anl a,#0fh xrl a,#0fh jz nokey1 lcall dely10ms mov a,p2 anl a,#0fh xrl a,#0fh jz nokey1 mov a,p2 anl a,#0fh cjne a,#0eh,nk1 mov keybuf,#0 ljmp dk1 nk1: cjne a,#0dh,nk2 mov keybuf,#1 ljmp dk1 nk2: cjne a,#0bh,nk3 mov keybuf,#2 ljmp dk1 nk3: cjne a,#07h,nk4 mov keybuf,#3 ljmp dk1 nk4: nop dk1: mov a,keybuf mov dptr,#table movc a,@a dptr mov p0,a mov a,keybuf mov b,#2 mul ab mov temp,a mov dptr,#table1 movc a,@a dptr mov sth0,a mov th0,a inc temp mov a,temp movc a,@a dptr mov stl0,a mov tl0,a setb tr0 dk1a: mov a,p2 anl a,#0fh xrl a,#0fh jnz dk1a clr tr0 nokey1: mov p2,#0ffh clr p2.5 mov a,p2 anl a,#0fh xrl a,#0fh jz nokey2 lcall dely10ms mov a,p2 anl a,#0fh xrl a,#0fh jz nokey2 mov a,p2 anl a,#0fh cjne a,#0eh,nk5 mov keybuf,#4 ljmp dk2 nk5: cjne a,#0dh,nk6 mov keybuf,#5 ljmp dk2 nk6: cjne a,#0bh,nk7 mov keybuf,#6 ljmp dk2 nk7: cjne a,#07h,nk8 mov keybuf,#7 ljmp dk2 nk8: nop dk2: mov a,keybuf mov dptr,#table movc a,@a dptr mov p0,a mov a,keybuf mov b,#2 mul ab mov temp,a mov dptr,#table1 movc a,@a dptr mov sth0,a mov th0,a inc temp mov a,temp movc a,@a dptr mov stl0,a mov tl0,a setb tr0 dk2a: mov a,p2 anl a,#0fh xrl a,#0fh jnz dk2a clr tr0 nokey2: mov p2,#0ffh clr p2.6 mov a,p2 anl a,#0fh xrl a,#0fh jz nokey3 lcall dely10ms mov a,p2 anl a,#0fh xrl a,#0fh jz nokey3 mov a,p2 anl a,#0fh cjne a,#0eh,nk9 mov keybuf,#8 ljmp dk3 nk9: cjne a,#0dh,nk10 mov keybuf,#9 ljmp dk3 nk10: cjne a,#0bh,nk11 mov keybuf,#10 ljmp dk3 nk11: cjne a,#07h,nk12 mov keybuf,#11 ljmp dk3 nk12: nop dk3: mov a,keybuf mov dptr,#table movc a,@a dptr mov p0,a mov a,keybuf mov b,#2 mul ab mov temp,a mov dptr,#table1 movc a,@a dptr mov sth0,a mov th0,a inc temp mov a,temp movc a,@a dptr mov stl0,a mov tl0,a setb tr0 dk3a: mov a,p2 anl a,#0fh xrl a,#0fh jnz dk3a clr tr0 nokey3: mov p2,#0ffh clr p2.7 mov a,p2 anl a,#0fh xrl a,#0fh jz nokey4 lcall dely10ms mov a,p2 anl a,#0fh xrl a,#0fh jz nokey4 mov a,p2 anl a,#0fh cjne a,#0eh,nk13 mov keybuf,#12 ljmp dk4 nk13: cjne a,#0dh,nk14 mov keybuf,#13 ljmp dk4 nk14: cjne a,#0bh,nk15 mov keybuf,#14 ljmp dk4 nk15: cjne a,#07h,nk16 mov keybuf,#15 ljmp dk4 nk16: nop dk4: mov a,keybuf mov dptr,#table movc a,@a dptr mov p0,a mov a,keybuf mov b,#2 mul ab mov temp,a mov dptr,#table1 movc a,@a dptr mov sth0,a mov th0,a inc temp mov a,temp movc a,@a dptr mov stl0,a mov tl0,a setb tr0 dk4a: mov a,p2 anl a,#0fh xrl a,#0fh jnz dk4a clr tr0 nokey4: ljmp wait dely10ms: mov r6,#10 d1: mov r7,#248 djnz r7,$ djnz r6,d1 ret int_t0: mov th0,sth0 mov tl0,stl0 cpl p1.0 reti table: db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h db 7fh,6fh,77h,7ch,39h,5eh,79h,71h table1: dw 64021,64103,64260,64400 dw 64524,64580,64684,64777 dw 64820,64898,64968,65030 dw 65058,65110,65157,65178 end。

轉載請注明出處華閱文章網 » 單片機電子琴自動演奏簡短程序