标题: 基于单片机的矩阵式键盘电子琴仿真课程设计 原创作品 [打印本页]
作者: 15764334643    时间: 2017-5-19 17:52
标题: 基于单片机的矩阵式键盘电子琴仿真课程设计 原创作品
电子琴的仿真我在本科阶段的一个课程设计题目，以51单片机为核心，电子琴按键是4乘4的矩阵式键盘，代码是用汇编语言写的，都是原创。


51单片机源程序：
  1. //附录一 程序清单
  2. BUFF EQU 30H
  3. STH0 EQU 31H
  4. STL0 EQU 32H
  5. TEMP EQU 33H
  6. ORG 0000H
  7. LJMP START
  8. ORG 000BH
  9. LJMP INT_T0
  10. ORG 001BH
  11. LJMP TIM1
  12. START:MOV TMOD,#01H
  13.       SETB ET0
  14.           SETB EA
  15. MAIN:MOV P1,#0FFH                        ;置为高电平
  16.      CLR P1.4                                ;扫第一行
  17.          MOV A,P1
  18.          ANL A,#0FH
  19.          XRL A,#0FH
  20.          JZ KKEY1                                ;为零无键按下转移
  21.          LCALL DELY10MS
  22.          MOV A,P1                                ;到底有没有键按下啊，去抖
  23.          ANL A,#0FH
  24.          XRL A,#0FH
  25.          JZ KKEY1                               
  26.          MOV A,P1
  27.          ANL A,#0FH
  28.          CJNE A,#0EH,KK1                    ;相等说明这回是真有键按下了，不骗人        00001110第一列
  29.          MOV BUFF,#0                        ;给个键值
  30.          LJMP NDK1                                ;终于出声音了巴拉巴拉巴拉巴拉
  31. KK1:CJNE A,#0DH,KK2                    ;第二列00001101
  32.      MOV BUFF,#1
  33.          LJMP NDK1                                                                                                               
  34. KK2:CJNE A,#0BH,KK3                        ;第三列00001011
  35.     MOV BUFF,#2
  36.         LJMP NDK1
  37. KK3:CJNE A,#07H,KK4                        ;第四列0000 0111
  38.     MOV BUFF,#3
  39.         LJMP NDK1
  40. KK4:NOP                                                 ;空
  41.                            ;下面都是一样的套路扫描第二三四行，复制三遍OK
  42. KKEY1:MOV P1,#0FFH                       
  43.      CLR P1.5                                ;扫第二行
  44.          MOV A,P1
  45.          ANL A,#0FH
  46.          XRL A,#0FH
  47.          JZ KKEY2                               
  48.          LCALL DELY10MS
  49.          MOV A,P1                               
  50.          ANL A,#0FH
  51.          XRL A,#0FH
  52.          JZ KKEY2                               
  53.          MOV A,P1
  54.          ANL A,#0FH
  55.          CJNE A,#0EH,KK5               
  56.          MOV BUFF,#4                       
  57.          LJMP NDK1                               
  58. KK5:CJNE A,#0DH,KK6               
  59.      MOV BUFF,#5
  60.          LJMP NDK1                                                                                                               
  61. KK6:CJNE A,#0BH,KK7                       
  62.     MOV BUFF,#6
  63.         LJMP NDK1
  64. KK7:CJNE A,#07H,KK8                       
  65.     MOV BUFF,#7
  66.         LJMP NDK1
  67. KK8:NOP

  69. KKEY2:MOV P1,#0FFH                       
  70.      CLR P1.6                                ;扫第三行
  71.          MOV A,P1
  72.          ANL A,#0FH
  73.          XRL A,#0FH
  74.          JZ KKEY3                               
  75.          LCALL DELY10MS
  76.          MOV A,P1                               
  77.          ANL A,#0FH
  78.          XRL A,#0FH
  79.          JZ KKEY3                               
  80.          MOV A,P1
  81.          ANL A,#0FH
  82.          CJNE A,#0EH,KK9               
  83.          MOV BUFF,#8                       
  84.          LJMP NDK1                               
  85. KK9:CJNE A,#0DH,KK10               
  86.      MOV BUFF,#9
  87.          LJMP NDK1                                                                                                               
  88. KK10:CJNE A,#0BH,KK11                       
  89.     MOV BUFF,#10
  90.         LJMP NDK1
  91. KK11:CJNE A,#07H,KK12                       
  92.     MOV BUFF,#11
  93.         LJMP NDK1
  94. KK12:NOP

  96. KKEY3:MOV P1,#0FFH                       
  97.      CLR P1.7                                ;扫第四行
  98.          MOV A,P1
  99.          ANL A,#0FH
  100.          XRL A,#0FH
  101.          JZ KKEY4                               
  102.          LCALL DELY10MS
  103.          MOV A,P1                               
  104.          ANL A,#0FH
  105.          XRL A,#0FH
  106.          JZ KKEY4                               
  107.          MOV A,P1
  108.          ANL A,#0FH
  109.          CJNE A,#0EH,KK13               
  110.          MOV BUFF,#12                       
  111.          LJMP NDK1                               
  112. KK13:CJNE A,#0DH,KK14               
  113.      MOV BUFF,#13
  114.          LJMP NDK1                                                                                                                                                                                  
  115. KK14:CJNE A,#0BH,KK15                       
  116.     MOV BUFF,#14
  117.         LJMP NDK1
  118. KK15:CJNE A,#07H,KK16                       
  119.     MOV BUFF,#15
  120.         LJMP NDK1
  121. KK16:NOP

  123. NDK1: MOV A,BUFF                                                ;给键值
  124.       MOV DPTR,#TABLE                               
  125.           MOVC A,@A+DPTR                                ;到表里找到它段码
  126.           MOV P0,A                                                ;给数码管数码管
  127.           MOV A,BUFF                                       
  128.           RL A                                                       
  129.           MOV TEMP,A                                       
  130.           MOV DPTR,#TABLE1                               
  131.           MOVC A,@A+DPTR                                ;到表里找到它的T/2
  132.       MOV STH0,A                                       
  133.           MOV TH0,A                                               
  134.           INC TEMP                                               
  135.           MOV A,TEMP
  136.           MOVC A,@A+DPTR
  137.           MOV STL0,A
  138.           MOV TL0,A                                           ;给定时器高低位
  139.           SETB TR0
  140. NDK1A: MOV A,P1                                      ;松手了吗亲 ，不松手继续出声
  141.        ANL A,#0FH
  142.            XRL A,#0FH
  143.            JNZ NDK1A
  144.            CLR TR0
  145. KKEY4: MOV A,#0FFH
  146.        MOV P2,A
  147.            MOV A,P2
  148.            JB ACC.0,KKEY5                                  ;中断按下了吗，按下就唱歌了，想好了再按
  149.            LCALL DELY10MS
  150.            MOV A,P2
  151.            JB ACC.0,KKEY5
  152.            MOV BUFF,#16
  153.            MOV P0,#7FH
  154.            LJMP START22
  155. START22:MOV A,BUFF
  156.         CJNE A,#16,KKEY5
  157.                 LJMP START2
  158. KKEY5: LJMP MAIN
  159. START2:MOV TMOD,#10H            ；准备播放音乐
  160.                 MOV IE,#88H
  161. START0:         MOV 30H,#00
  162. NEXT:        MOV A,30H
  163.                 MOV DPTR,#TAB                         ;拿到简谱码表
  164.                 MOVC A,@A+DPTR
  165.                 MOV R2,A
  166.                 JZ EN0
  167.                 ANL A,#0FH
  168.                 MOV R5,A                 ;节拍放入R5
  169.                 MOV A,R2
  170.                 SWAP A
  171.                 ANL A,#0FH
  172.                 JNZ SING
  173.                 CLR TR1
  174.                 LJMP D1
  175. SING:        DEC A
  176.                 MOV 23H,A
  177.                 RL A
  178.                 MOV DPTR,#TAB1                  
  179.                 MOVC A,@A+DPTR
  180.                 MOV TH1,A
  181.                 MOV 24H,A                                  
  182.                 MOV A,23H
  183.                 RL A
  184.                 INC A
  185.                 MOVC A,@A+DPTR
  186.                 MOV TL1,A
  187.                 MOV 25H,A                               
  188.                 SETB TR1                                       
  189. D1:     CALL DELAY1                                                  
  190.                 INC 30H
  191.                 JMP NEXT
  192. EN0:    CLR  TR1
  193.                 LJMP START
  194. TIM1:   PUSH ACC
  195.         PUSH PSW
  196.                 MOV TL1,25H
  197.                 MOV TH1,24H
  198.                 CPL P3.0
  199.                 CPL P3.1
  200.                 POP PSW
  201.                 POP ACC
  202.                 RETI
  203. DELAY1: MOV R4,#02                             ;187MS
  204. DELAY2:    MOV R3,#187
  205. DELAY3:    MOV R2,#248
  206.         DJNZ R2,$
  207.                 DJNZ R3,DELAY3
  208.                 DJNZ R4,DELAY2
  209.                 DJNZ R5,DELAY1
  210.                 RET
  211. DELY10MS:MOV R6,#10                              ;10MS
  212. D10:     MOV R7,#248
  213.          DJNZ R7,$
  214.               DJNZ R6,D10
  215.              RET
  216. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

全部资料下载地址：
电子琴仿真及程序代码.rar (329.4 KB, 下载次数: 84)


作者: 初学者呆呆    时间: 2017-5-22 16:56
支持支持，不过不会汇编啊，有C语言的吗?
作者: vampire-22    时间: 2017-6-8 21:25
还是不太懂啊。。。
作者: 小菜鸟的鸟    时间: 2018-6-20 09:20
老哥真的厉害



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1