85问答库 > 用八个按钮控制p1端口使电子琴发出do，re，mi，fa，so，la，si，deo（用单片机汇编语言编程用蜂鸣器发生

用八个按钮控制p1端口使电子琴发出do，re，mi，fa，so，la，si，deo（用单片机汇编语言编程用蜂鸣器发生

2025-02-22 06:05:47

推荐回答（3个）

回答1：

这是以前写的，用的是P0口。
T0H EQU 30H
T0L EQU 31H
ORG 0000H
LJMP MAIN
ORG 000BH
LJMP T0ISR
ORG 0030H
MAIN:
MOV SP,#5FH
MOV TMOD,#01H
SETB ET0
SETB EA
LOOP:
MOV DPTR,#FREQ
MOV A,P2 ;控制高中低音区
MOV R1,#0
ANL A,#03H
JB ACC.0,LOOP01
MOV R1,#14
SJMP LOOP0
LOOP01:
JB ACC.1,LOOP0
MOV R1,#28
LOOP0:
JB P0.0,LOOP1 ;控制音频1234567
MOV A,R1
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP1:
JB P0.1,LOOP2
MOV A,R1
ADD A,#2
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#2
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP2:
JB P0.2,LOOP3
MOV A,R1
ADD A,#4
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#4
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP3:
JB P0.3,LOOP4
MOV A,R1
ADD A,#6
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#6
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP4:
JB P0.4,LOOP5
MOV A,R1
ADD A,#8
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#8
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP5:
JB P0.5,LOOP6
MOV A,R1
ADD A,#10
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#10
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP6:
JB P0.6,LOOP7
MOV A,R1
ADD A,#12
MOVC A,@A+DPTR
MOV T0H,A
INC DPTR
MOV A,R1
ADD A,#12
MOVC A,@A+DPTR
MOV T0L,A
LJMP LOOP
LOOP7:
CLR TR0
LJMP LOOP
;-----------------------------
T0ISR:
CLR TR0
MOV TH0,T0H
MOV TL0,T0L
SETB TR0
CPL P3.0
RETI
;-----------------------------
FREQ:
DB 0F2H,03DH ;低音1
DB 0F3H,0BDH ;低音2
DB 0F5H,014H ;低音3
DB 0F5H,0B1H ;低音4
DB 0F6H,0D0H ;低音5
DB 0F7H,0D1H ;低音6
DB 0F8H,0B5H ;低音7

DB 0F9H,01EH ;中音1
DB 0F9H,0DEH ;中音2
DB 0FAH,08AH ;中音3
DB 0FAH,0D8H ;中音4
DB 0FBH,068H ;中音5
DB 0FBH,0E8H ;中音6
DB 0FCH,05AH ;中音7

DB 0FCH,08FH ;高音1
DB 0FCH,0EFH ;高音2
DB 0FDH,045H ;高音3
DB 0FDH,06CH ;高音4
DB 0FDH,0B4H ;高音5
DB 0FDH,0F4H ;高音6
DB 0FEH,029H ;高音7
;-----------------------------
END

回答2：

　　蜂鸣器效果不太好不如直接用个喇叭
　　org 0000h
　　ljmp main
　　org 0100h
　　main:mov p0,0ffh

　　aa:mov p0,#0ffh
　　mov p2,#0ffh
　　clr tf1
　　jnb p2.1,l1
　　JnB p2.2,l2
　　jnb p2.3,l3
　　jnb p2.4,l4
　　jnb p2.5,l5
　　jnb p2.6,l6
　　jnb p2.7,l7
　　jnb p1.0,l11
　　jmp aa
　　l5:ljmp l8
　　l6:ljmp l9
　　l7:ljmp l10
　　l11:ljmp l12

　　l1:mov tmod,#10h
　　mov th1,#0fch
　　mov tl1,#44h
　　setb tr1
　　loop1:jnb tf1,loop1
　　clr tf1
　　cpl p2.0
　　mov th1,#0fch
　　mov tl1,#44h
　　jnb p2.1,loop1
　　ljmp aa

　　l2:mov tmod,#10h
　　mov th1,#0fch
　　mov tl1,#0ach
　　setb tr1
　　loop2:jnb tf1,loop2
　　clr tf1
　　cpl p2.0
　　mov th1,#0fch
　　mov tl1,#0ach
　　jnb p2.2,loop2

　　ljmp aa

　　l3:mov tmod,#10h
　　mov th1,#0fdh
　　mov tl1,#09h
　　setb tr1
　　loop3:jnb tf1,loop3
　　clr tf1
　　cpl p2.0
　　mov th1,#0fdh
　　mov tl1,#09h
　　JnB p2.3,loop3

　　ljmp aa

　　l4:mov tmod,#10h
　　mov th1,#0fdh
　　mov tl1,#34h
　　setb tr1
　　loop4:jnb tf1,loop4
　　clr tf1
　　cpl p2.0
　　mov th1,#0fdh
　　mov tl1,#34h
　　jnb p2.4,loop4
　　ljmp aa

　　l8:mov tmod,#10h
　　mov th1,#0fdh
　　mov tl1,#82h
　　setb tr1
　　loop5:jnb tf1,loop5
　　clr tf1
　　cpl p2.0
　　mov th1,#0fdh
　　mov tl1,#82h
　　jnb p2.5,loop5

　　ljmp aa

　　l9:mov tmod,#10h
　　mov th1,#0fdh
　　mov tl1,#0c8h
　　setb tr1
　　loop6:jnb tf1,loop6
　　clr tf1
　　cpl p2.0
　　mov th1,#0fdh
　　mov tl1,#0c8h
　　jnb p2.6,loop6
　　ljmp aa

　　l10:mov tmod,#10h
　　mov th1,#0feh
　　mov tl1,#06h
　　setb tr1
　　loop7:jnb tf1,loop7
　　clr tf1
　　cpl p2.0
　　mov th1,#0feh
　　mov tl1,#06h
　　jnb p2.7,loop7

　　ljmp aa

　　l12:mov tmod,#10h
　　mov th1,#0feh
　　mov tl1,#22h
　　setb tr1
　　loop8:jnb tf1,loop8
　　clr tf1
　　cpl p2.0
　　mov th1,#0feh
　　mov tl1,#22h
　　jnb p1.0,loop8

　　ljmp aa
　　end
　　图不好发，看看应该能明白

回答3：

简易电子琴.rar Proteus仿真

最新问答

英语小短文用现在进行时怎样写

放当别人问你贵姓是，你是不是有点尴尬

2016北京生物高考题 30 31哪个难

第18届奥运会,首次用卫星向全世界进行大会实况直播,举办的城市是?

各种饮料类英文单词

周星驰的电影喜剧之王和李连杰的笑傲江湖之东方不败为什么找不到

用八个按钮控制p1端口使电子琴发出do，re，mi，fa，so，la，si，deo（用单片机汇编语言编程 用蜂鸣器发生

用八个按钮控制p1端口使电子琴发出do，re，mi，fa，so，la，si，deo（用单片机汇编语言编程用蜂鸣器发生